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

• #43462 Delila_1 veterán lappy #43461

  Új Válasz 2020-03-31 15:46:01 #43462

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

  Sub Elrejt()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row

For sor = usor To 1 Step -1
If Cells(sor, "C") = "" Then Rows(sor).EntireRow.Hidden = True
Next
End Sub

  Sub Felfed()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row + 1
For sor = 1 To usor
If Cells(sor, "C") = "" Then Rows(sor).EntireRow.Hidden = False
Next
End Sub

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