I am new on VBA and need help

[KingGoku]

Hi there,

I am getting error on following code. can't seem to get find last row function working. i have tried last row as range and long. please help.

 

[My Aswer Is This]

Dim Lastrow as long

 

[KingGoku]

Dim Lastrow as long

I done that before and it still didn't work

 

[KingGoku]

 

[My Aswer Is This]

I done that before and it still didn't work

There must be something else wrong with your code.

 

[My Aswer Is This]

Please post your code here in the forum and not an image of your code

 

[KingGoku]

Dim i As Integer
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet
Dim NextRow As Long
Dim LastRow As Long
Dim wsName As String





wsName = FormSelectSht.ComboBoxMachines.Value

For Each ws In wb.Sheets
If ws.Name = wsName Then ws.Activate


LastRow = ws.Cells("A", Rows.Count).End(xlUp).Row



Next








'Find Last row
'LastRow = ws.Cells.Find("*", [A4], , , xlByRows, xlPrevious).Row




'Find next empty row to enter data

NextRow = LastRow + 1

'énter data into active sheet
ws.Range("A" & NextRow) = Date
ws.Range("B" & NextRow) = FormSelectSht.ComboBoxProduct.Value
'ws.Range("C" & NextRow) = juliandt
ws.Range("D" & NextRow) = FormSelectSht.TextBoxOperator1.Value
ws.Range("E" & NextRow) = FormSelectSht.TextBoxOperator2.Value
ws.Range("F" & NextRow) = FormSelectSht.TextBoxLot.Value


End Sub

 

[Peter_SSs]

Your syntax for Cells is the wrong way around. It should be

LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

 

[KingGoku]

Your syntax for Cells is the wrong way around. It should be

LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

Thanks Peter

 

[Peter_SSs]

You're welcome. Glad to help. Thanks for the follow-up.

Another option is to use RANGE instead of Cells, then the column does come first.

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row