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

• #25658 Delila_1 veterán mikroli #25657

  Új Válasz 2015-02-28 16:45:25 #25658

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

  Makró arra az esetre, mikor az A és B oszlopban azonos mennyiségű szám van, és az adatok a 2. sorban kezdődnek (címsor az első).

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