Using Button on User Form to save Data to specific Cell??

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" <DarnTootn@discussions.microsoft.com> skrev i melding
news:9643BE61-B118-4B1F-9822-96934BDFFB95@microsoft.com...
> 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" <DarnTootn@discussions.microsoft.com> skrev i melding
> news:9643BE61-B118-4B1F-9822-96934BDFFB95@microsoft.com...
> > 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!!!!!!!
>
>
>