- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- Meggyi001: Anya, tudsz segíteni a matekban?....Nem érek rá kisfiam, majd segít a ChatGPT...
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- KRTLPC: Ki és hogyan élt túl? Volt ám fennakadás
- Rap, Hip-hop 90'
- Gurulunk, WAZE?!
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Imu
csendes tag
válasz
Delila_1 #35966 üzenetére
Köszi!
Közben addig próbálkoztam, míg sikerült megírni a kódot
Sub keres()
Dim ertek As String
Dim sor As Integer
Dim sor2 As Integer
Dim i As Integer
Dim j As Integer
sor = Sheets("Munka1").Range("A100").End(xlUp).Row
sor2 = Sheets("Munka2").Range("A100").End(xlUp).Row
For j = 1 To sor
ertek = Sheets("Munka1").Cells(j, 1).Value
For i = 1 To sor2
If Sheets("Munka2").Cells(i, 1) = ertek Then
Sheets("Munka2").Rows(i).Delete
End If
Next i
Next j
ThisWorkbook.Sheets("Munka2").Select
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select
Selection.Cut
ThisWorkbook.Sheets("Munka1").Select
ActiveSheet.Cells(sor + 1, 1).Select
ActiveSheet.Paste
End Sub -
Imu
csendes tag
Sziasztok!
Szükségem lenne egy makróra.
Van két munkalapom Munka3, Munka4. Mindkét munkalapon hasonló felépítésű táblázat van: 12 oszlop kb 500 sor. A sorok termékek cikkszáma, neve, ára stb. Az szeretném, hogy Munka4-en szereplő de a Munka3-on nem szereplő sorokat átmásolja a Munka3-as táblázat alá. A sorokat cikkszámmal lehet azonosítani ami a Munka4-en az E oszlop, a Munka3-on az A oszlop hivatkozik az F oszlopra ( pl A1 cellában =F1 ).Előre is köszi
-
Imu
csendes tag
válasz
Delila_1 #9717 üzenetére
Kedves Delila_1!
Köszönöm, hogy foglalkoztál a problémámmal, de valami nem okés a makróval, lehet rosszul fogalmaztam meg a problémámat
Az egész lényege, hogy amit kiszámol a táblázat az árajánlathoz, azt 2. lap tartalmazza nyomtatásra alkalmas formában. Ezt a formátumot és értékeket kellene átmásolni egy külön lapra, ez lenne a 3. lap. De és itt jön a lényeg ami lehet nem derült ki az első kérdésemnél, több termékre is kérhető ajánlat, és ezeket egymás alá kellen fűzni a 3. lapon. Tehát amint összeállítok egy terméket azt a gomb nyomása után átrakja a 3. lapra, ha még egyet számolok, akkor azt az előző után másolja be. A végén a 3. lapon szeretnék kapni egy olyan listát amit ki tudok nyomtatni.
-
Imu
csendes tag
Sziasztok!
Van egy excel munkafüzetem, 3 lappal. A 2. lap az elsőtől kap adatokat. Azt szeretném, hogy egy gomb lenyomása után a 2. lap A1:H40-es tartománya (csak cella formátum, cella érték és számformátum, képletek nem kellenek) átmásolódjon a 3. lapra A1-es kezdéssel, ha még egyszer megnyomom a gombot akkor viszont már csak a 2. lap A6:H40-es tartományt másolja át hasonlóan a 3. lap A41-től.
Mellékelek képeket az elképzelésemről
1 lépés
[link]
2. lépés
[link]
3. lépés
[link] -
Imu
csendes tag
Sziasztok!
Egy kis segítség kellene. Van egy táblázatom amibe e pdf állomány objektumként van beszúrva. Azt szeretném hogy egy commandbutton-al vagy vmilyen gombot megnyomva megnyitná ezt a pdf-et Adobe Readerbe.
Új hozzászólás Aktív témák
- Star Trek
- Miért álltak az oldalak egy hétig, mi történt?
- Realme GT 2 Pro - papírforma
- PROHARDVER! feedback: bugok, problémák, ötletek
- Xiaomi 14T - nem baj, hogy nem Pro
- Haladó fájlrendszerek, de mire jók? Ext4 vs Btrfs vs ZFS vs APFS
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Kezünkben a Honor Magic V5
- Milyen processzort vegyek?
- Milyen notebookot vegyek?
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- LicencAruhaz.hu OLCSÓ, LEGÁLIS SZOFTVEREK AZONNAL - Windows - Office - Win Server - ÖRÖK GARANCIÁVAL
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bomba ár! Lenovo ThinkPad L390 - i7-8GEN I 16GB I 512SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Gamer PC- Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 500GB SSD+ 2TB HDD
- Azonnali készpénzes nVidia RTX 2000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Gamer PC- Számítógép! Csere-Beszámítás! R9 3900X / RX 6700XT 12GB / 32GB DDR4 / 1TB SSD
- BESZÁMÍTÁS! Asus B450 R7 2700X 16GB DDR4 512GB SSD RTX 2070 8GB Rampage SHIVA Thermaltake 500W