Most Urgent----CONVERT FORMULA INTO CODE

[fari1]

Hi, i want to convert my below formula to code, which loop through entire column A and bring me those rows which contain 10-(along with there can be anything).

=INDEX($A$2:$A$401,MATCH("10-*",$A$2:$A$401,0))

urgent help is required

 

[taurean]

Irrespective of the sheet names, if the sheet number 1 and 2 (Serially in the workbook) is what you want to work on then:

Public Sub FindData()
Dim lLastRow As Long
With Sheets(1)
lLastRow = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lLastRow
If InStr(1, .Range("A" & i).Value, "10-") > 0 Then
.Rows(i).Copy Destination:=Sheets(2).Range("A" & Rows.Count).End(xlUp)(2)
End If
Next i
Application.CutCopyMode = False
End With
End Sub

 

[kpark91]

thats great kevin,u just came in and telling him about my qualities, gud,

It does help the replier great deal.
It's about who's new to VBA and who's not.

If the questioner has very little knowledge in VBA. the answerer cannot ask the questioner to replace X with Y.