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

• #42338 Delila_1 veterán Sutyi73 #42332

  Új Válasz 2019-12-02 07:13:29 #42338

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

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "p" Then
With Target.Borders(xlDiagonalUp)
.ColorIndex = 3
.Weight = xlMedium
End With
Else
Target.Borders(xlDiagonalUp).LineStyle = xlNone
End If
End Sub

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