userform feeding into worksheets

**lisabell1** · 11-22-2010, 10:53 AM

I have designed a user form and I am now trying to feed the information from that into worksheets. I have managed to do part of them but am now stuck as im still a excell learner.

I would be very gratefull if someone would help me.

Thanks

**royUK** · 11-22-2010, 11:03 AM

Take a look at the database form example

Private Sub cmd_Save_Click()

  Dim NextRw As Long
    
  With Sheets("Requests Fullfilled")
  NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row = 1
  'not sure why, your code overwrites
  ' .Cells(NextRw, 1).Value = cmb_Item.Value
   .Cells(NextRw, 1).Value = txt_Date.Value
   .Cells(NextRw, 2).Value = txt_CostCentre.Value

**lisabell1** · 11-22-2010, 11:40 AM

Hi Thanks for your help,
So in the "new request top 50 tab. How would I get the items I chose on the user form to show in the correct row / colum in the request fullfilled worksheet?

Thanks

**royUK** · 11-22-2010, 11:47 AM

Dim NextRw As Long

Private Sub cmd_Save_Click()

   With Sheets("Requests Fullfilled")
    NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
   
    .Cells(NextRw, 1).Value = Me.txt_Date.Value
    .Cells(NextRw, 2).Value = Me.txt_CostCentre
    .Cells(NextRw, Me.cmb_Item.ListIndex + 3).Value = Me.txt_Quantity.Value
    .Cells(NextRw, 33).FormulaR1C1 = "=SUM(RC[-45]:RC[-1])"
  End With
    txt_Date.Value = ""
    txt_CostCentre.Value = ""
    txt_Quantity.Value = ""
    cmb_Item.Value = ""
End Sub





Private Sub cmdAddAnother_Click()

 With Sheets("Requests Fullfilled")
    NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
  
    .Cells(NextRw, Me.cmb_Item.ListIndex + 3).Value = Me.txt_Quantity.Value
    .Cells(NextRw, 33).FormulaR1C1 = "=SUM(RC[-45]:RC[-1])"
  End With
    txt_Date.Value = ""
    txt_CostCentre.Value = ""
    txt_Quantity.Value = ""
    cmb_Item.Value = ""

End Sub

Delete the rest of the code in the form, I don't think it is necessary

**lisabell1** · 11-22-2010, 11:57 AM

Front sheet - 1st button - New Request (top 50)

Worksheet - Request Fullfilled

**royUK** · 11-22-2010, 12:10 PM

Here's an example

**lisabell1** · 11-22-2010, 12:29 PM

Thanks so much, you have been real helpful

userform feeding into worksheets

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

userform feeding into worksheets

Re: userform feeding into worksheets

Re: userform feeding into worksheets

Re: userform feeding into worksheets

Re: userform feeding into worksheets

Re: userform feeding into worksheets

Re: userform feeding into worksheets

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions