values writes to column E - change Sh1 to ur sheet

Sub vbaMatch()

Dim d, g, h, t
Sheets("Sh1").Activate
d = Cells(65535, 4).End(xlUp).Row
g = Cells(65535, 7).End(xlUp).Row
h = Cells(65535, 8).End(xlUp).Row
On Error Resume Next

For t = 1 To d
Range("E" & t) = Range("G" & Range("H1:H" & h).Find(Range("D" & t),
LookIn:=xlValues).Row)
Next

End Sub



" skrev:

On Apr 28, 5:12 pm, wrote:
hi everyone

I m trying to convert this worksheet formula

=INDEX($H$1:$H$499,MATCH(D1,$G$1:$G$499,0))

=INDEX(Range to Search,MATCH(Cell to Match, Range in which to search
for match, FALSE)

to macro [in sub, not function ]

no.of rows are unknown .......plz help me convert above formula to vba
code

I hop i get support from u experts as i got earlier
many thanks in advance for u time n effort

i would lik to add one more thing here that my match value "d1" in
above formula

but in macro i want to match all values in column "d" [i.e.
d1,d2....d(n)] in column g (where no.of rows are unknwon )
and no. of rows in column H [ range in which value to b srchd ] are
also unknown

waitng 4 ur replys
many thanx