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

• #33671 Delila_1 veterán #04331520 #33669

  Új Válasz 2017-01-16 17:03:01 #33671

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

  Szívesen.

• #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

• #33639 Delila_1 veterán #04331520 #33638

  Új Válasz 2017-01-12 07:52:51 #33639

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

  A lapodhoz rendeld a lenti rövid makrót.

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

  Mikor az A oszlopba viszel be bármilyen adatot, az aktuális sor magassága 25 lesz.

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