Displaying Text

[gauca001]

I am building a macro (below) which changes the text "This is Brown colour" to "Brown" in col D. This works perfect. now in Col G (same row) I need to add "A" if the result in D is "Brown" and "B" if the result in D is "Red". Please help.

Sub Adv_Cert()
'
' Adv_Cert Macro
'
Columns("D").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"This is Brown colour"
Cells.Replace What:= _
"This is Brown colour", Replacement:= _
"Brown", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Columns("D").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"This is Red colour"
Cells.Replace What:= _
"This is Red colour", Replacement:= _
"Red", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


End Sub

 

[Andrzejek]

How about:

Range("D2").Value = "This is Brown colour"

Cells.Replace What:= _
"This is Brown colour", Replacement:= _
"Brown", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
[blue]
Select Case Range("D2").Value
    Case "Brown"
        Range("G2").Value = "A"
    Case "Red"
        Range("G2").Value = "B"
End Select[/blue]

Have fun.

---- Andy

 

[SkipVought]

hi,

Something like this???

    Dim r As Range
    
    With ActiveSheet
        For Each r In Range(.Cells(2, "D"), .Cells(.UsedRange.Rows.Count + .UsedRange.Row - 1, "D"))
            Select Case r.Value
                Case "Red"
                    .Cells(r.Row, "G").Value = "A"
                Case "Brown"
                    .Cells(r.Row, "G").Value = "B"
            End Select
        Next
    End With

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}