Put an X in a cell based on data in 2 other cells?

[TAPS_MikeDion]

Hi All,

Is there a formula that can be put into a macro to place an X in a cell based on data in two other cells?

What I'm trying to do is create a macro that when run will put an X in column C (starting from C5 to C???) only if there is either a numeric value in cell I5 or an X in cell J5. And this would need to run through from C5 to the last row in column C with data.

As always, thank you for any help given!

 

[TAPS_MikeDion]

I was trying to figure out your formula to edit it, but you are way beyond my knowledge of Excel.

I guess just going with col J being blank isn't going to work. In the attached pic you can see that it would also need to put an X in col C if col J val =0.00.

Where it shows 0.00, that should have an X in col C too. It will always be 0.00 unless col I has a numeric value, then col J will show the hours (formatted as #.##) and should not have an X in that rows col C.

Please see 2 attached pics. Thank you.

 

[Fluff]

Ok, try

Sub Taps()
   With Range("C5:C" & Range("I" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate("if((not(isnumber(" & .Offset(, 6).Address & ")))*((" & .Offset(, 7).Address & "="""")+(" & .Offset(, 7).Address & "=0)),""X"","""")")
   End With
End Sub

 

[TAPS_MikeDion]

Hallelujah!

Thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[TAPS_MikeDion]

Hi Fluff (or anyone who is capable of understanding Fluff's code),
After working on payroll today I realized I need to add one more thing to the code. It would also need to NOT put an X in col C if there is an existing X in col A.

Hopefully that can be added into the code.

Thank you very much!

 

[Fluff]

Maybe

Sub Taps()
   With Range("C5:C" & Range("I" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate("if((not(isnumber(" & .Offset(, 6).Address & ")))*(" & .Offset(, -2).Address & "<>""X"")*((" & .Offset(, 7).Address & "="""")+(" & .Offset(, 7).Address & "=0)),""X"","""")")
   End With
End Sub

 

[TAPS_MikeDion]

Wow, you're like lightning!

Thanks again Fluff.

Worked like a charm. I appreciate it.

 

[Fluff]

Glad to help & thanks for the feedback.

 

[TAPS_MikeDion]

Hi everybody,

I know that Fluff initially solved this problem for me, which was fantastic, but I just ran into another issue. Can a check for data in column K be added to this formula as well? If any data is found in column K, then no X is put into the row in column C.

Thank you!

 

[Fluff]

How about

Sub Taps()
   With Range("C5:C" & Range("I" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate("if((not(isnumber(" & .Offset(, 6).Address & ")))*(" & .Offset(, 8).Address & "="""")*(" & .Offset(, -2).Address & "<>""X"")*((" & .Offset(, 7).Address & "="""")+(" & .Offset(, 7).Address & "=0)),""X"","""")")
   End With
End Sub