Új hozzászólás Aktív témák

• #7491 Delila_1 veterán Bicé #7490

  Új Válasz 2010-07-06 17:24:13 #7491

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #7490 üzenetére

  Szívesen.

• #7489 Delila_1 veterán Bicé #7488

  Új Válasz 2010-07-06 17:22:06 #7489

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #7488 üzenetére

  A másik lapon a képlet =Ha(HOSSZ(Munka1!D1)=11;Munka1!D1;"")
  Ezt lemásolod, ameddig kell, utána beteszel egy autoszűrőt (Adatok - Szűrő - Autoszűrő), szűröd a listát az üres cellákra, és azokat törlöd.

• #7156 WildBoarTeam senior tag Bicé #7154

  Új Válasz 2010-05-10 14:52:33 #7156

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  WildBoarTeam

  senior tag

  válasz Bicé #7154 üzenetére

  Hát lehet, hogy még egyszerűbb, ha a B oszlopot kimásolod egy üres Excel-táblába, majd mentés másként és Formázott szöveg (szóközzel tagolt)-at állítasz be fájltípusnak.

• #7155 lappy őstag Bicé #7154

  Új Válasz 2010-05-10 14:51:23 #7155

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Bicé #7154 üzenetére

  Szia
  Akkor kijelölöd a B oszlopot (ill az adott cellákat) B1:b100 Ctrl+V el és ezt fogod irányított beillesztéssel, de amúgy a 3. pont szerint: )

• #7153 lappy őstag Bicé #7152

  Új Válasz 2010-05-10 14:14:28 #7153

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Bicé #7152 üzenetére

  Szia
  Én fordítva tudom hogy kell, talán próbáld és és ha jó akkor használd!!

  Leírom lépésről lépésre is, ha esetleg nem jelenne meg a bemutató:

  1. Megalkotjuk Word fájlunkat és oda lépünk benne, ahova be szeretnénk szúrni a táblázatunkat.

  2. Megalkotunk egy Excel táblázatot.

  (Nagyítások torzítások utólag nem szerencsések, ezért lehetőleg akkorára csináljuk, amekkorába be szeretnénk szúrni. – pl betűméretekre ügyeljünk)

  3. Kijelöljük a Word-be illesztendő részt és másolás

  4. Átváltunk Word-re és a Szerkesztés/Irányított beillesztés… menüpontra klikk.

  Itt 2 választási lehetőségünk van.

  A) – Beágyazunk, azaz beágyazzuk, amitől a Wordünkben lesz ez az Excel fájl.

  B) – Csatoljuk, azaz csak hivatkozunk rá és ugyan látszani fog a tartalma, de az Excel fájl nélkül számításokra nem lesz jó.

  Az A) verziót akkor használjuk, ha a fájlt úgy küldenénk át, hogy az önállóan használható legyen számításokra. Átküldéskor vigyázz, mert a beillesztett Excel fájl minden részéhez hozzá lehet férni, így bizalmas adatok ne maradjanak benne.

  A B) verzió saját gépen használatra jó.

• #7151 Delila_1 veterán Bicé #7149

  Új Válasz 2010-05-10 13:36:07 #7151

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #7149 üzenetére

  Ha tudok...
  Írd a kérdést!

• #7148 Delila_1 veterán Bicé #7147

  Új Válasz 2010-05-10 12:04:02 #7148

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #7147 üzenetére

  Nincs mit.

• #7146 Delila_1 veterán Bicé #7145

  Új Válasz 2010-05-10 12:00:48 #7146

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #7145 üzenetére

  A következő munkalap A oszlopában a képlet: =alap1!B10

• #6064 Fire/SOUL/CD félisten Bicé #6063

  Új Válasz 2010-01-18 12:01:38 #6064

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Bicé #6063 üzenetére

  Hali!

  Esetleg ha publikus, beraknád a kódot, kíváncsi vagyok a megoldására, sokat lehet ilyen kódból tanulni.

  Fire.

• #6060 Fire/SOUL/CD félisten Bicé #6057

  Új Válasz 2010-01-15 14:45:34 #6060

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Bicé #6057 üzenetére

  Hali!

  Mint előbb ulrik19 említette, más megoldást kell választanod.
  Nem írtad, mennyire vagy jártas VBA-ban, úgy hogy nem biztos hogy ez a kód segít.
  Ez Listbox-al dolgozik, ami a Munka1 lapon van ListBox1 néven, az adatok amikkel kitölti(üres cellákat kihagyja), az meg a Munka2, A oszlopában (bármelyikben lehet, csak módosítani kell egy elég egyértelmű sorban) A kód a munkafüzet megnyitásakor fut le, de a későbbiekben szükséges lesz belőle szubrutint készítened, hisz több esetben is szükség lesz, hogy lefusson.(Például, amikor módosítasz az adatokon)

  Private Sub Workbook_Open()
  
  Dim MySrcColumn As String
  Dim MySrcSheet As String, MyDestSheet As String
  Dim SourceRange As Range
  Dim LB1 As Object
  
  Application.ScreenUpdating = False
  
  MySrcSheet = "Munka2"
  MySrcColumn = "A"
  MyDestSheet = "Munka1"
  
  Set LB1 = Sheets(MyDestSheet).ListBox1
  
  Sheets(MySrcSheet).Activate
  
  MyUsedRange = Range(MySrcColumn & "65536").End(xlUp).Row
  Set SourceRange = Sheets(MySrcSheet).Range(MySrcColumn & "1:" & MySrcColumn & MyUsedRange)
  LB1.Clear
  LB1.MultiSelect = fmMultiSelectExtended
  For i = 0 To SourceRange.Rows.Count - 1
  MyItem = Cells(SourceRange.Row + i, SourceRange.Column)
  If Not IsEmpty(MyItem) Then
  LB1.AddItem MyItem
  End If
  Next i
  Sheets(MyDestSheet).Activate
  
  Application.ScreenUpdating = True
  
  End Sub

  Fire.

• #6059 Delila_1 veterán Bicé #6057

  Új Válasz 2010-01-15 14:45:27 #6059

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #6057 üzenetére

  Valószínű, hogy a választható listát az Űrlap eszköztárról vett kombi panellel, vagy a Vezérlők eszköztáráról a beviteli lista segítségével akartad megoldani.
  Ne ezeket alkalmazd, hanem adj nevet az elemeket tartalmazó területnek (Beszúrás/Név/Név megadása), és a másik lapon a választható listát az Adatok/Érvényesítésnél add meg. A Megengedve mezőben Lista legyen, a Forrás pedig
  =Adott_név
  Ezt akárhány cellába (egyszerre is) beviheted, mindegyikben az ott kiválasztott érték marad meg.
  Ha azonos lapon vannak a választható elemek és az érvényesítés, még elnevezni sem kell a tartományt, csak beírni pl. =$A$5:$A$15
  Ha a tartomány A:A, akkor a teljes oszlopban szereplő elnevezések szerepelnek majd az érvényesítésben, követi az értékek számának bővülését, de a csökkenést nem, azok helyére üres sort ad. A csökkenés követéséhez érdemes az OFSZET függvény bevetése.

• #6058 ulrik19 tag Bicé #6057

  Új Válasz 2010-01-15 10:49:38 #6058

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ulrik19

  tag

  válasz Bicé #6057 üzenetére

  legördülőben egyszerre csak egy érték választható.

  ha a klikkelés eseményhez olyan eljárást rendelsz, ami nem felülírja a cellát, hanem a tartalmához hozzáfűzi az újonnan választott értéket, akkor szépen sorban belekerülnek a kiválasztott értékek.

  konkrétabb javaslathoz látni kellene a fájlodat.

  ha a választási lehetőséget mindenképp egyszerre kell megoldani, akkor másik vezérlő(ke)t kell alkalmazni.

• #5379 Delila_1 veterán Bicé #5378

  Új Válasz 2009-09-16 17:02:23 #5379

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #5378 üzenetére

  Idézet az előző válaszomból:
  Az így kijelölt lapokon egyszerre törölheted, amit kell.

  Állj az első olyan lapra, ahonnan törölni akarod a sort és az oszlopot.
  Nyomd le a Ctrl billentyűt, és klikkelj egy másik a lap a fülére, ahol szintén törölni kell.
  Töröld a sort és oszlopot. Ellenőrizd, hogy mindkét kijelölt lapon el van végezve a feladat.
  Ezzel a módszerrel az összes lapról egyszerre törölheted a sort és oszlopot.

• #5377 Delila_1 veterán Bicé #5376

  Új Válasz 2009-09-16 15:13:41 #5377

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bicé #5376 üzenetére

  Jelöld ki együtt a lapokat. Ha egymás után vannak a lapok, amiken törölni kell, akkor az első lapon állva a Shift lenyomása mellett kattints az utolsó kijelölendő lap fülére, ha nem, akkor a Ctrl billentyűvel. Az így kijelölt lapokon egyszerre törölheted, amit kell.
  Ez az együttes kijelölés arra is jó, hogy több lapon egyszerre vigyél be azonos adatokat, képleteket, formázásokat.

Új hozzászólás Aktív témák