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

• #28222 Delila_1 veterán coldfirexx #28221

  Új Válasz 2015-08-25 14:43:42 #28222

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

  Sub Elrejt()
  Dim szam As Long, CV As Range
  
  For Each CV In Range("A39:A83")
  If CV = "Elrejtve" Then
  Rows(CV.Row).EntireRow.Hidden = True
  Else
  Rows(CV.Row).EntireRow.Hidden = False
  End If
  szam = CV.Row
  Next
  Range("B" & szam & ":N" & szam).Borders(xlEdgeBottom).Weight = xlMedium
  End Sub

  Nem világos, hogy az alsó, látható adat, vagy az utolsó elrejtett sor aljára akarsz-e vastag vonalat?
  Ha az utóbbi, akkor a szam = CV.Row sort az Else fölé tedd át. Ebben az esetben viszont nem látszik, mert ez a sor rejtett.

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