Forum Discussion

Luiz_Martins_86's avatar
Luiz_Martins_86
Copper Contributor
May 30, 2022
Solved

VBA statement with a IF

Hi everyone, i not a advanced in VBA on excel and i need your help. I need to create a if statement that, when a colunm called "Last update time", have more then 30 days, the interior color of this...
excel
Formulas and Functions
Macros and VBA
Office Scripts
  • OliverScheurich's avatar
    OliverScheurich
    May 30, 2022

    Luiz_Martins_86 

    Sub color()

Dim i As Integer

Range("D:D").Interior.ColorIndex = 0

For i = 2 To 27

If Cells(i, 4).Value < Date - 60 And Cells(i, 5) <> "specific group" Then
Cells(i, 4).Interior.ColorIndex = 3

Else
    If Cells(i, 4).Value < Date - 30 And Cells(i, 5) <> "specific group" Then
    Cells(i, 4).Interior.ColorIndex = 6
    
    Else
    End If

End If

Next i

End Sub

    Maybe with these lines of code. In the attached file you can click the button in cell H2 to start the macro.

Luiz_Martins_86's avatar
Luiz_Martins_86
Copper Contributor
May 31, 2022

THank you for you answer.

 

But i have a drop down list row in the column "assigment group" and when i change the group there, the color doesn´t change like your demo spreadsheet.

  • Luiz_Martins_86's avatar
    Luiz_Martins_86
    Copper Contributor
    May 31, 2022
    What you did different from the other ? You only created the drop down list ?
    In my spreadsheet doesn´t work yet 😞
    • HansVogelaar's avatar
      HansVogelaar
      MVP
      May 31, 2022

      Luiz_Martins_86 

      I only added data validation to column B.

       

      Could you attach a sample workbook (without sensitive data), or if that is not possible, make it available through OneDrive, Google Drive, Dropbox or similar? Thanks in advance.

Resources