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

• #25661 Delila_1 veterán mikroli #25659

  Új Válasz 2015-02-28 16:57:10 #25661

  Ú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 mikroli #25659 üzenetére

  Arra az esetre

  Sub Paratlanok()
  Dim sor As Long
  
  sor = 2
  Do While Cells(sor, 1) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 1)
  sor = sor + 1
  Loop
  
  sor = 2
  Do While Cells(sor, 2) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)
  sor = sor + 1
  Loop
  End Sub

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