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

• #44057 Delila_1 veterán HREH #44056

  Új Válasz 2020-05-20 08:09:53 #44057

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

  Mi a bevitel menete?
  Beírod a számot a D oszlopba, majd színezed a G:I oszlopokat?

  Legjobb lenne, ha a 3 cella színezését adnád meg először, majd beírnád a D oszlopba az értéket. Ebben az esetben a D oszlopba írást figyeltethetném. Amint beírod az értéket, arra a sorra lefutna a színezés.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Long

If Target.Row > 2 And Target.Column = 4 Then
sor = Target.Row
If Cells(sor, 7).Interior.Color = vbGreen And Cells(sor, 8).Interior.Color = vbGreen And _
Cells(sor, 9).Interior.Color = vbGreen Then
Cells(sor, 4).Interior.Color = vbGreen
Else
Cells(sor, 4).Interior.Color = RGB(255, 198, 83)
End If
End If
End Sub

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