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

• #41378 Fferi50 Topikgazda HREH #41377

  Új Válasz 2019-07-15 17:40:56 #41378

  Ú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

  

  Fferi50

  Topikgazda

  válasz HREH #41377 üzenetére

  Szia!
  Ez azért van, mert itt csak egy cellányi változásra készítettük fel.
  Próbáld így:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Dim cl As Range
For Each cl In Target.Cells
cl.Offset(0, 1).Interior.Color = RGB(Application.Hex2Dec(Left(cl.Value, 2)), Application.Hex2Dec(Mid(cl.Value, 3, 2)), Application.Hex2Dec(Right(cl.Value, 2)))
Next
Application.EnableEvents = True
End If
End Sub

  Üdv.

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