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

• #25664 Delila_1 veterán mikroli #25663

  Új Válasz 2015-02-28 17:23:20 #25664

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

  Semmi akadálya.

  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