IF THEN Function and Color Cell

[Jones1413]

Hello,

I am having trouble figuring out the code to do the following:

If the data in column A says "Internal" and column B is empty then I want column B to fill with:

cell.Interior.Color = 16776960

If there is data in column B, I don't want it to do anything.

If the data in column A says "Conversion" and column C is empty then I want column C to fill with:

cell.Interior.Color = 16776960

I also want it to loop through the worksheet until the end of the data.

Thanks!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Jones1413()
   Dim Usdrws As Long
   
   With ActiveSheet
      Usdrws = Range("A" & Rows.Count).End(xlUp).Row
      .Range("A1:C" & Usdrws).AutoFilter 1, "Internal"
      .Range("A1:C" & Usdrws).AutoFilter 2, ""
      .AutoFilter.Range.Offset(1).Columns(2).Resize(Usdrws - 1).Interior.Color = 16776960
      .Range("A1:C" & Usdrws).AutoFilter 1, "Conversion"
      .Range("A1:C" & Usdrws).AutoFilter 2
      .Range("A1:C" & Usdrws).AutoFilter 3, ""
      .AutoFilter.Range.Offset(1).Columns(2).Resize(Usdrws - 1).Interior.Color = 16776960
      .AutoFilterMode = False
   End With
End Sub

 

[Jones1413]

Hello! Thank you!

If I wanted it to filter multiple things were it says "Conversion". How would I add that in?

 

[Fluff]

Like

Sub Jones1413()
   Dim Usdrws As Long
   
   With ActiveSheet
      Usdrws = Range("A" & Rows.Count).End(xlUp).Row
      .Range("A1:C" & Usdrws).AutoFilter 1, "Internal"
      .Range("A1:C" & Usdrws).AutoFilter 2, ""
      .AutoFilter.Range.Offset(1).Columns(2).Resize(Usdrws - 1).Interior.Color = 16776960
      .Range("A1:C" & Usdrws).AutoFilter 1, Array("Conversion", "something", "else"), xlFilterValues
      .Range("A1:C" & Usdrws).AutoFilter 2
      .Range("A1:C" & Usdrws).AutoFilter 3, ""
      .AutoFilter.Range.Offset(1).Columns(2).Resize(Usdrws - 1).Interior.Color = 16776960
      .AutoFilterMode = False
   End With
End Sub