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

• #42947 Delila_1 veterán daddy9 #42944

  Új Válasz 2020-02-04 10:44:33 #42947

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

  Ezt a makrót modulba kellene tenni, nem eseményvezéreltbe. Bár így is jó, bármelyik cellára kattintasz, lefut.
  Modulba:

  Sub Rejt()
Dim LastColumn, i As Integer
Application.ScreenUpdating = False

LastColumn = 27 'Last Column
For i = 5 To LastColumn 'Lopping through each Column
If Cells(36, i) = "" Then
Columns(i).EntireColumn.Hidden = True
Else
Columns(i).EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

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