VBA If Then Statement

[jtbrolly]

Hey guys,

Not that good with coding, trying to make an if-then statement basically saying if it says something in column c, then write this with this formatting in column a. I've been looking all over for the exact coding and can't seem to find how to do it. Would really appreciate any help.

Thanks,
Jimmy

 

[jtbrolly]

To be more specific, looking for o99 in C, then want to write Default in A and highlight it yellow.

 

[bensonsearch]

Hi,
I wouldnt use VBA code at all.

Place this formula in A1

=IF(C1="099","default","")

then place conditional formatting on coloum A that color changes it if it says default

 

[jtbrolly]

The thing is the sheet I'm working with isn't conducive to formulas. It's not the same sheet everyday, so rather than running a macro to write the formula, I'd rather just run a macro to write the words.

 

[Yahya]

may be this code

Sub Test()
Dim LR As Long, c As Range
LR = Range("c" & Rows.Count).End(xlUp).Row
For Each c In Range("c1:c" & LR)
    If c.Value <> "" Then
        c.Offset(, -2).Value = c.Value
    End If
Next c
End Sub

 

[jtbrolly]

Ah that's close. That one is writing in A, but it's copying the value from C. What would I change to have it write something different than just pulling the value from that column?

And what would I have to add so that if it isn't the number I'm looking for, leave it blank?

 

[Yahya]

you mean just number from c to a
and don't move text

 

[jtbrolly]

I mean, for example, with this one: I want it to look in column C for o99, then if it sees that, in column A I want it to write Default and then color the cell Yellow. I think coloring the cell might be a conditional formatting function so I'll try to figure that out, but I'm having some trouble with the coding for this one.

There's a bunch of different things I want to write dependent on what's in column C, but I gave this specific example so try to see the code and understand it, so then I can apply it to the other cells as well.

 

[jtbrolly]

And what the code you gave was doing was copying the value over from C to A.

I also wanted it to not write anything if it's not the value I'm looking for.

 

[hippiehacker]

Sub Test()
Dim LR As Long, c As Range
LR = Range("c" & Rows.Count).End(xlUp).Row
For Each c In Range("c1:c" & LR)
    If c.Value <> "" Then
        c.Offset(, -2).Value = "default"
    End If
Next c
    Columns("A:A").Select
    With Selection
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""default"""
    .FormatConditions(1).Interior.ColorIndex = 3
    End With
End Sub