VBA Command Button to input data in first row of column with no text

[conorbrowne]

I have a multiple command buttons on one sheet, when one is pressed I want to enter a corresponding number into a column in the next sheet. Does anyone know how I input the number into the next row of data that contains no text?

Thanks

 

[breynolds0431]

I have a multiple command buttons on one sheet, when one is pressed I want to enter a corresponding number into a column in the next sheet. Does anyone know how I input the number into the next row of data that contains no text?

Thanks

Hi. Try the below.

Sub commandbutton_click()

'copy the below to your specific commandbutton_click event

Dim tWB As Workbook: Set tWB = ThisWorkbook
Dim tWS As Worksheet: Set tWS = tWB.Sheets("newnumber") 'Update sheet name

'Finds the last row in column A. Update column to suit
Dim tLROW As Long: tLROW = tWS.Range("A" & tWS.Rows.Count).End(xlUp).Row

With tWS
    .Cells(tLROW + 1, 1).Value = "600" 'Put the number you want between the quotes
End With

End Sub

 

[portews]

' change to whatever Ranges you need
LastRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A" & LastRow+1)=Sheets("Sheet1").Range("B7")