copy values

[rollingzep]

Hi,

In my Excel workbook, I have a column BA called Sec which contains various values.
I have another column AH, which is product description.

I use VBA for coding. Among other values of Sec, for one particular value, "BARD" it has to be replaced by the value in product description column.
The col AG is product.

LastRow = ws.Range("AG" & Rows.Count).End(xlUp).Row

For i=2 To LastRow

If ws.Range("BA" & i).Value = "BARD" Then

   ws.Range("BA" & i).Value = .................................. ' (copy and paste the value of AH)

End If

Next i

How to get the values of AH into BA for that specific row. I mean it has to copy and paste the value of AH of that row to the row in BA.

TIA

 

[Cubist]

Something like this perhaps.

Sub ReplaceBARDWithProductDescription()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")
    LastRow = ws.Range("AG" & ws.Rows.Count).End(xlUp).Row

    For i = 2 To LastRow
        If ws.Range("BA" & i).Value = "BARD" Then
            ws.Range("BA" & i).Value = ws.Range("AH" & i).Value
        End If
    Next i
End Sub