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

• #28218 Delila_1 veterán coldfirexx #28217

  Új Válasz 2015-08-25 13:58:56 #28218

  Ú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 coldfirexx #28217 üzenetére

  Sub Elrejt()
  Dim terulet As Range, CV As Range
  Set terulet = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
  
  For Each CV In terulet
  If CV = "Elrejtve" Then
  Rows(CV.Row).EntireRow.Hidden = True
  Else
  Rows(CV.Row).EntireRow.Hidden = False
  End If
  Next
  End Sub

  Talán ez jó lesz.

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