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

• #25041 Fferi50 Topikgazda Mindless #25040

  Új Válasz 2015-01-15 21:56:35 #25041

  Ú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

  

  Fferi50

  Topikgazda

  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 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.

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