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

• #33647 Delila_1 veterán #04331520 #33641

  Új Válasz 2017-01-13 09:55:04 #33647

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

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target <> 0 Then Rows(Target.Row).RowHeight = 25
If Target.Column = 1 And Target = 0 Then Rows(Target.Row).RowHeight = 60
End Sub

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