Xlookup VBA

[bench205]

Hi,

Please help me i'm only a beginner in VbA.
I got a lot of names in cell B more than 60 names and 31 rows for date. BTW this is for a leave tracker.

My code is
For x = 5 to 55

Cells(x, 3) = application.evaluate("=xlookup(B&C2,NAME&DATE,LEAVE,"" "")")

Cells(x, 4) = application.evaluate("=xlookup(B&D2,NAME&DATE,LEAVE,"" "")")


Cells(x, 5) = application.evaluate("=xlookup(B&E2,NAME&DATE,LEAVE,"" "")")

Until

Cells(x, 33) = application.evaluate("=xlookup(B&AG2,NAME&DATE,LEAVE,"" "")")

Next X

End sub



Please excel masters help me

 

[bench205]

Here is some pictures. I cant download the file because this is a work laptop. Thank you

 

[bench205]

Here is some pictures. I cant download the file because this is a work laptop. Thank you

Hi please help me for this VBA code.
Sheet 1 is leave planner
Sheet 2 is Data (name &date&leave) are all in there

The native excel formula is

=xlookup = b5&c2, NAME&DATE, LEAVE,"")
And then drag it until
=xlookup = b5&AG2, NAME&DATE, LEAVE,"")

And also drag it down from
=xlookup = b5&c2, NAME&DATE, LEAVE,"")
=xlookup = b6&c2, NAME&DATE, LEAVE,"")
=xlookup = b7&c2, NAME&DATE, LEAVE,"")
=xlookup = b8&c2, NAME&DATE, LEAVE,"")


but im having a hard time please check my code. Im still new here i just need to finish this project please.

the result im getting is only for the first i need to get the same result like in normal excel.

For x = 5 to 55

Cells(x, 3) = application.evaluate("=xlookup(B&C2,NAME&DATE,LEAVE,"" "")")

Cells(x, 4) = application.evaluate("=xlookup(B&D2,NAME&DATE,LEAVE,"" "")")


Cells(x, 5) = application.evaluate("=xlookup(B&E2,NAME&DATE,LEAVE,"" "")")

Until

Cells(x, 33) = application.evaluate("=xlookup(B&AG2,NAME&DATE,LEAVE,"" "")")

Next X

End sub