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

• #10986 Delila_1 veterán mr.nagy #10984

  Új Válasz 2011-07-29 17:30:27 #10986

  Ú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 mr.nagy #10984 üzenetére

  Most látom, hogy még délelőtt hozzáírtál.

  Az 5. sor a címsor? Ha igen, nem kell módosítanod a kódon, ha az már adatsor, akkor a For kezdetű sorban a 6-ot írd át 5-re.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim usor%, sor%
  usor% = Range("A65536").End(xlUp).Row
  
  If Not Intersect(Range("A1"), Target) Is Nothing Then
  If Target = "" Then
  Rows("5:50000").Hidden = False
  Else
  For sor% = 6 To usor%
  If Cells(sor%, 1) <> Cells(1) Then Rows(sor%).Hidden = True
  Next
  End If
  End If
  End Sub

  Az A1 cellába történő beíráskor elrejti azokat a sorokat, amik nem egyenlőek annak a tartalmával. A cella törlésekor minden sort felfed.
  Abban az esetben, mikor az oszlopban nem található adatot írsz az A1-be, minden sort elrejt, de ekkor is láthatóvá teheted újra a sorokat az A1 tartalmának a törlésével.

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