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

• #3887 Delila_1 veterán Alex123 #3886

  Új Válasz 2008-09-14 13:15:24 #3887

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

  A lenti makró elvégzi a munkát.
  Ha biztos vagy benne, hogy az A oszlopban minden cím csak egyszer szerepel, akkor így jó lesz a makró, ha nem biztos, akkor az Exit For sort töröld a futtatás előtt.

  Sub egyezo_torles()
  ucsoA = Range("A65536").End(xlUp).Row
  ucsoB = Range("B65536").End(xlUp).Row
  Cells(1, 3).FormulaR1C1 = "=COUNTIF(C[-2],RC[-1])"
  Range("C1").Select
  Selection.AutoFill Destination:=Range("C1:C" & ucsoB)
  For sorB = 1 To ucsoB
  If Cells(sorB, 2) > 0 Then
  email = Cells(sorB, 2)
  For sorA = 1 To ucsoA
  Cells(sorA, 1).Select
  If Cells(sorA, 1) = email Then
  Selection.Delete Shift:=xlUp
  Exit For
  End If
  Next
  End If
  Next
  Columns("C:C").Select
  Selection.ClearContents
  Range("A1").Select
  End Sub

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