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

• #28224 Delila_1 veterán coldfirexx #28223

  Új Válasz 2015-08-25 14:49:53 #28224

  Ú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 #28223 ü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
  szam = CV.Row
  End If
  Next
  Range("B" & szam & ":N" & szam).Borders(xlEdgeTop).Weight = xlMedium
  End Sub

  Akkor az utolsó, nem rejtett sornak adunk felső szegélyt.

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