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

• #23658 Delila_1 veterán tgumis #23657

  Új Válasz 2014-10-11 16:56:59 #23658

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

  Sub IsmTorl()
  Dim sor As Integer
  
  sorM = 2
  Range("D2:D700") = "=IF(COUNTIF(C2:C$2,C2)=1,C2,"""")"
  
  For sor = 700 To 2 Step -1
  If Len(Cells(sor, 4)) < 1 Then Cells(sor, 4).Delete shift:=xlUp
  Next
  End Sub

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