Simple Code Debugging

[MrCameronExcel]

Hi MrExcel users,

I am new to VBA, and am following along with a youtube channel to learn:

(https://www.youtube.com/watch?v=S55...Hv2ztGjIkrW7suD6oNDaOk3vbR&index=8#t=0.576114)

Although I am following his steps exactly, my VBA sheet needs bugging, and his does not. Is there something missing in my code - see below? Also, if you have any recommendations on how to self-teach Excel VBA, I would love to know how to best learn this language!

Thank you


Sub Test1()


Dim mrsheet As Worksheet




Set mrsheet = ThisWorkbook.Sheets("My Report")
'Get last row of worksheet
Lastrow = mrsheet.Cells(Rows.Count, 1).End(x1up).Row




'Clears out last report
mrsheet.Range("a2:c" & Lastrow).ClearContents




For x = 2 To 500


mrsheet.Cells(x, 1) = Date + 7


mrsheet.Cells(x, 2) = x * 15

If mrsheet.Cells(x, 2) > 100 Then
mrsheet.Cells(x, 3) = True
Else
mrsheet.Cells(x, 3) = False
End If

Next x






End Sub

 

[MARK858]

It might help if you stated where it is "bugging" out and what the error message states.

 

[MARK858]

Actually I can see 1 error.
It is xlUp not x1Up (a lower case L).

 

[MrCameronExcel]

Actually I can see 1 error.
It is xlUp not x1Up (a lower case L).

Hi Mark,
This was the solution! Thank you very much. Couldn't tell the difference when watching the video.
It makes sense now, xlup meaning in the variable x, look up

 

[MARK858]

Happy it helped (actually it is as simple as xl and Up as in the xl is just short for Excel and used in most parameters ).