GOTO or FIND NEXT function - any suggestions please?

[cheekyrich]

Hi,

I have a range of data, lets say A1:D50. I am concerned only with column C. In that column, I want my VBA macro to go to (in turn) the next cell with the number '0330' in it (assuming all cells have different numbers). I will then perform a few bits of macro around that cell before my search will continue on to find the next '0330' in column C.

I know this is a simple one but have searched the forum and am getting all sorts except for the answer I need!

Thanks so much for your help in advance. Reeally appreciated,

Rich

 

[jindon]

Hi
Try

Private Sub CommandButton2_Click()
    
    TakeFocusOnClick = False
    Worksheets("GL07").Activate
    Application.ScreenUpdating = True
    Dim copyIndex As Integer
    Dim rowFound As Boolean
    rowFound = False
    copyIndex = 61
With Worksheets("GL07").

Dim r As Range, ff As String
Set r = .Range("G61:G1000").Find("xyz", .Range("G1000"), xlValues, xlPart,,xlPrevious)
If Not r Is Nothing Then
   ff = r.Address
   Do
            Set r = .Range("g61:g1000").FindNext(r)
            r.Offset(0, -5).Value = "'1001"
            r.Offset(0, -4).Value = "'1000"
            r.Offset(0, -3).Value = "'002"
            r.Offset(0, -2).Value = "'01"
            If Trim(r.Offset(0, 12).Text) = "te" Then
            r.Offset(0, -1).Value = "'1100"
            End If
   Loop Until ff = r.Address
End If
End With

End Sub