-
GAMEPOD.hu
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
-
Fferi50
őstag
válasz Mindless #25040 üzenetére
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 SubTermé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.
Új hozzászólás Aktív témák
- DIGI Mobil
- Háztartási gépek
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- OLED TV topic
- Android alkalmazások - szoftver kibeszélő topik
- Mibe tegyem a megtakarításaimat?
- Androidos fejegységek
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- World of Warcraft Shadowlands Collectors edition EU EN
- Canva Pro előfizetés - 1 éves