Conditional copy paste

[Its_Prabhu]

Hello All,

Need help to create a Macro. Column A has few names like, ABC, XYZ, so I need a macro if Column A has ABC, Column B should have a name: DDE and if its XYZ in Column A, Column B should have a name ADE. Also the number of rows varies weekly when a fresh dump is taken. Please help. Thanks !

Prabhu

 

[VoG]

Try

Sub dtest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        Select Case .Value
            Case "ABC": .Offset(, 1).Value = "DDE"
            Case "XYZ": .Offset(, 1).Value = "ADE"
        End Select
    End With
Next i
End Sub

 

[Its_Prabhu]

Hello VoG

Thanks for your quick response, I tried the below Code, Column B is blank. Maybe its because Column B is not mentioned anywhere in the Code. Please advise.

Thanks,

Prabhu

 

[VoG]

Working fine here. Offset(,1) refers to column B.

 

[Its_Prabhu]

Hi VoG,

Yes, working fine, my actual data is in Column J and N. Just modified and its perfect. Thanks very much.

Prabhu