I can make my button work this way...
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Billing Sheet")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'copy data to database
With ws
.Cells(iRow, 1).Value = Me.txtCoopName.Value
End With

'clear the data
Me.txtCoopName.Value = ""
Me.txtCoopName.SetFocus
End Sub

But I need the Data to go to a specific Cell rather than the first open row
exel finds on the specified sheet.. If I take out...
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
then it gives me an error
PLEASE HELP!!!!!!!

..Cells(3, 2).Value = Me.txtCoopName.Value

will write to row 3 column 2, aka B3.

HTH. Best wishes Harald

"DarnTootn" skrev i melding
...
I can make my button work this way...
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Billing Sheet")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'copy data to database
With ws
.Cells(iRow, 1).Value = Me.txtCoopName.Value
End With

'clear the data
Me.txtCoopName.Value = ""
Me.txtCoopName.SetFocus
End Sub

But I need the Data to go to a specific Cell rather than the first open
row
exel finds on the specified sheet.. If I take out...
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
then it gives me an error
PLEASE HELP!!!!!!!

Thank you ... that does the trick...my best to you


"Harald Staff" wrote:


..Cells(3, 2).Value = Me.txtCoopName.Value

will write to row 3 column 2, aka B3.

HTH. Best wishes Harald

"DarnTootn" skrev i melding
...
I can make my button work this way...
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Billing Sheet")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'copy data to database
With ws
.Cells(iRow, 1).Value = Me.txtCoopName.Value
End With

'clear the data
Me.txtCoopName.Value = ""
Me.txtCoopName.SetFocus
End Sub

But I need the Data to go to a specific Cell rather than the first open
row
exel finds on the specified sheet.. If I take out...
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
then it gives me an error
PLEASE HELP!!!!!!!