Macro - If Cell in Column is Blank then input Text into Same row in another Column

[tribalbydesign]

Hello,

I am looking for a Macro that will search a column for blank cells, and when one is found will add text to the same row in another column. For example: The below is a spreadsheet. I am trying to find something that will search through column "C" in this case and add text (of my choice) to Column "A" if the cell is Blank. So Since cell C1 is Blank then Type "ERROR" is cell A1.

   A B C D E
1 X X    X X
2 X X    X X
3 X X X X X
4 X X X    X
5 X X X X

Thanks!

 

[mikerickson]

Range(y).Value = Evaluate(y & "if(" & x & "<>"""", """"," & myChoice & ")")

 

[smyk]

Hi thanks for reply but it doesnt work for me i get #VALUE! in all cels in G column

 

[mikerickson]

Silly me, I put the first & outside of the quote marks, this should do it.

Range(y).Value = Evaluate(y & "& if(" & x & "<>"""", """"," & myChoice & ")")

 

[jindon]

Hi all,
Sorry to dig out such an old topic but I have got very similar problem.

Dim myChoice
Dim x As String, y As String
myChoice = "A/R"
If Not IsNumeric(myChoice) Then myChoice = Chr(34) & myChoice & Chr(34)
x = Range("k1:k" & Range("g" & Rows.Count).End(xlUp).Row).Address
y = Range("g1:g" & Range("g" & Rows.Count).End(xlUp).Row).Address
Range.Value = Evaluate("if(" & x & "<>""""," & y & "," & myChoice & ")")

That is a small part of my macro, the problem is that at the moment when excel finds blank cell in column K it will replace whatever is in the same row in column G with A/R and I would like it to add A/R not replace the data. Sorry for my english, thanks in advance!
Lukasz

try

Range(y).Value = Evaluate("if(" & x & "<>""""," & y & "," & y & myChoice & ")")