Help to do Macro: Find a predefined Text, Move one cell right and write a Text

[crazysenses]

Hello experts, i nned your help im trying to do the following macro.

a	b	c
node1
node2
node3
node1
node4

<tbody>
</tbody>

The macro needs to find the text "node1 ", and move to B1 and write PLATFORM1,
so for the next row, find the text "node2", and move to B2 ant wirte PLATFORM2, then node 3 and move to B3.

I have this

Cells.Replace What:="node1", Replacement:="PLATFORM1"
Cells.Replace What:="node2", Replacement:="PLATFORM2"
Cells.Replace What:="node3", Replacement:="PLATFORM1"
But this replace the content, and i want the new text will wriiten in the next cell.


Thten i try this, but it only execute for the first fild i select and i need to be executed for all the cells i select.


Cells.Find What:="node1"
ActiveCell.Offset(0, 1).FormulaR1C1 = "PLATFORM1"

 

[Momentman]

When its NODE3 or NODE4, whats the value in column B gonna be?

 

[crazysenses]

When its NODE3 or NODE4, whats the value in column B gonna be?

it would be fro example

node3 -> PLATFORM1
node4 -> PLATFORM2

I would have a catalog, with the nodes and the platform that is assigned.

Thanks

 

[Momentman]

This is an example, you use a select case statement and list all the possible cases

Sub findnode()

For I = 2 To Range("A" & Rows.Count).End(xlUp).Row
    Select Case Range("A" & I).Value
        Case "NODE1"
            Range("B" & I).Value = "PLATFORM1"
        Case "NODE2"
            Range("B" & I).Value = "PLATFORM2"
        Case "NODE3"
            Range("B" & I).Value = "PLATFORM3"
        Case "NODE4"
            Range("B" & I).Value = "PLATFORM4"
    End Select
Next I
End Sub