creating a macro to find a cell value and return a statement in a
Try this
Sub findValue()
Const whatColumn = "B" 'Change to your needs
Dim i As Long 'i = 5 Starting row of data change to your needs
Dim lastRow As Long
Dim cellPointer As Variant
lastRow = Range(whatColumn & Rows.Count).End(xlUp).Row
For i = 5 To lastRow
Set cellPointer = Worksheets("Sheet1").Cells(i, 2)
If cellPointer = 42285 Then
cellPointer.Offset(0, 3).Value = "European Trade"
End If
Next i
End Sub
"PAG" wrote:
Hi
Can someone please help me create a macro to search an Excel worksheet(in
column B) for a cell value("42285") and return a statement("European Trade")
in column "E". The data can always change and the rows of data can be up to
3,000 rows.
I have the below code but it needs alot of work.
Dim rowCount As Integer
rowCount = ActiveSheet.UsedRange.Rows.Count
Dim i As Integer
For i = 1 To rowCount
Range("B" & i).Select
If ActiveCell.Value = "42285" Then
GoTo loopAgain
Else
ActiveCell.Offset(0, 4) = Sheets("Sheet1").ActiveCell.Offset(6, 4)
' write code to do whatever(return your activecell.offset value)
End If
loopAgain:
Next i
End Sub
Thank You
Peter
|