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

  • Delila_1

    Topikgazda

    válasz HREH #44040 üzenetére

    Ezt egy modulba másold, és indíthatod, amikor ki akarod színezni az A4 cella hátterét.
    Sub Zold_Narancs()
    If Range("A1").Interior.Color = vbGreen And Range("A2").Interior.Color = vbGreen And _
    Range("A3").Interior.Color = vbGreen Then
    Range("A4").Interior.Color = vbGreen
    Else
    Range("A4").Interior.Color = RGB(255, 198, 83)
    End If
    End Sub

    Automatizálhatod, ha a laphoz rendeled a lenti makrót.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Interior.Color = vbGreen And Range("A2").Interior.Color = vbGreen And _
    Range("A3").Interior.Color = vbGreen Then
    Range("A4").Interior.Color = vbGreen
    Else
    Range("A4").Interior.Color = RGB(255, 198, 83)
    End If
    End Sub

    Ha viszont az A1:A3 tartományt feltételes formázással színezed, más a helyzet. Akkor az A4 cellába is feltételes formázás kell.

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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