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

• #7028 Delila_1 veterán k.zola219 #7027

  Új Válasz 2010-04-30 08:52:44 #7028

  Ú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 k.zola219 #7027 üzenetére

  Ímé:

  Sub valami()
  Dim cv As Object
  
  For Each cv In Range("C2:N40")
  If IsEmpty(cv.Value) And Application.CountA(Range(Cells(2, cv.Column), _
  Cells(40, cv.Column))) = 0 Then
  Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select
  Selection.Delete Shift:=xlToLeft
  End If
  Next
  End Sub

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