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.
Gyorskeresés
Legfrissebb anyagok
- Bemutató Route 66 Chicagotól Los Angelesig 2. rész
- Helyszíni riport Alfa Giulia Q-val a Balaton Park Circiut-en
- Bemutató A használt VGA piac kincsei - Július I
- Bemutató Bakancslista: Route 66 Chicagotól Los Angelesig
- Tudástár AMD Radeon undervolt/overclock
Általános témák
LOGOUT.hu témák
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] [gban:] Ingyen kellene, de tegnapra
- [Re:] [HThomas:] Az ideális home office monitor nyomában
- [Re:] [bambano:] Bambanő háza tája
- [Re:] [ldave:] New Game Blitz - 2024
- [Re:] [Luck Dragon:] MárkaLánc
- [Re:] [attilasd:] A laposföld elmebaj: Vissza a jövőbe!
- [Re:] [ubyegon2:] Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- [Re:] [Szevam:] Érzelmi magabiztosság/biztonság - miért megyünk sokan külföldre valójában?
- [Re:] eBay-es kütyük kis pénzért
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD.hu témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
Fferi50
őstag
Szia!
Próbáld ezt.
Sub hasonlito()
Dim sh1 As Worksheet, sh2 As Worksheet, cl As Range, vane
Set sh1 = Sheets("Munka1")
Set sh2 = Sheets("Munka2")
For Each cl In sh1.Range("O:O").Cells
If IsEmpty(cl) Then Exit For
vane = Application.Match(cl.Value, sh2.Columns("O"), 0)
If IsError(vane) Then
vane = sh2.Range("O30000").End(xlUp).Row: If Not IsEmpty(sh2.Cells(vane, "O")) Then vane = vane + 1
End If
sh1.Rows(cl.Row).Copy sh2.Rows(vane)
Next
MsgBox "Vége a programnak", vbInformation
End Sub
Természetesen a Munka1 és Munka2 helyére a saját munkalapjaid nevét írd.
A makró a Munka1 munkalapról másolja át az adatokat a Munka2 munkalapra.
Ha van az O oszlopban olyan érték, akkor oda, ha nincs, akkor a Munka2 végére az egész sort.
Remélem, ilyesmire gondoltál.
Üdv.
