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

• #4533 Delila_1 veterán Garffi #4532

  Új Válasz 2009-02-18 08:42:41 #4533

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

  Az előző egy kis kiegészítéssel:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then Cells(Target.Row, 1).Font.Bold = True
  If Target.Column = 2 And Cells(Target.Row, 2) = "" Then _
  Cells(Target.Row, 1).Font.Bold = False
  End Sub

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