23 thoughts on “How to get data from worksheet into combobox and textboxes on user form”

1. hi,
   my problem is I have a combo box in sheet1 and the value of that combo box should be in sheet 2 how can I populate it?

   Thanks,

2. Hello,

   Thank for for all your help and making the codes available.

   I have written an almost similar code ( see below )
   The only difference is that my first column is a date one.
   When I try to run the code there is an error on the following line preventing the code to continue to run
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
   I am not sure why as my knowledge is limited in vab and wondered whether you could help and let me know why.
   Thanks in advance

   Bruno

   Private Sub ComboBox1_DropButtonClick()
   Dim i As Long, LastRow As Long
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
   If Me.ComboBox1.ListCount = 0 Then
   For i = 2 To LastRow
   Me.ComboBox1.AddItem Sheets(“Sheet1”).Cells(i, “A”).Value
   Next i
   End If
   End Sub
   Private Sub ComboBox1_Change()
   Dim i As Long, LastRow As Long
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
   For i = 2 To LastRow
   If Sheets(“Sheet1”).Cells(i, “A”).Value = (Me.ComboBox1) Or _
   Sheets(“Sheet1”).Cells(i, “A”).Value = Val(Me.ComboBox1) Then
   Me.TextBox1 = Sheets(“Sheet1”).Cells(i, “D”).Value
   Me.TextBox2 = Sheets(“Sheet1”).Cells(i, “E”).Value
   End If
   Next
   End Sub

   1. change the quotes

3. Code does not work… stops at
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row

4. Code does not work… stops at
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row

5. Code does not work… stops at
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row

   Kindly upload excel file if possible. with code and sample data

   1. while pasting the code, pl replace “ (wherever found) with “

6. Code doesnt work. please assist. same problem like the others.

7. serial no. name Telphone previous kwts current kws usage Rate amount
   julC1 CAABI 615666662 399 419 20 1.3 $26.00

   i use such type of excel i want help to get a userform which can help me to fiil large amount of date in limited time
   for example a usserfor which has blank current kwts and if i fill that blank space it calculayes the rest and saves according to the serial number

8. It display nothing, Can anyone help please.
   There is my code
   Private Sub ComboBox1_DropButtonClick()
   Dim i As Long, LastRow As Long
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
   If Me.ComboBox1.ListCount = 0 Then
   For i = 2 To LasRow
   Me.ComboBox1.AddItem Sheets(“Sheet1”).Cells(i, “A”).Value
   Next i
   End If
   End Sub

   Private Sub ComboBox1_Change()
   Dim i As Long, LastRow As Long
   LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
   For i = 2 To LastRow
   If Sheets(“Sheet1”).Cells(i, “A”).Value = (Me.ComboBox1) Or _
   Sheets(“Sheet1”).Cell(i, “A”).Value = Val(Me.ComboBox1) Then
   Me.TextBox1 = Sheets(“Sheet1”).Cells(i, “B”).Value
   End If
   Next

   End Sub

   Private Sub UserForm_Click()
   End Sub

   and my range A1 is component and B1 is price.
   Thanks

   1. change the quotes

9. Thank you so much for help for code to “get data from worksheet into combobox and textboxes on user form”

10. Dear Sir
    I have watched your video a few times now and have copied and pasted the code you have above to the combobox but it stops at…. LastRow = Sheets(“List”).Range(“A” & Rows.Count).End(xlUp).Row
    My combobox is populated by rowsource in the properties by a dynamic list called “Name” could that be the trouble

    1. change the quotes

11. when we run this program find subscript out of range run time 9 error

12. I’ll tell you guys who found the codes not to be working, act your brain. Don’t just always copy-paste the code- type the code. Some may found the code to be wrong in quotes. Change them, your code will work definitely. Thank you for understanding.

13. Hello, first I would like to thank you for Sharing your knowledge, I have been Struggling with the Quotes like a few others have. It was strange because I change the quotes and the issues still occurred. But after a while, it seemed to work.

    Just wanted to say thank you.

14. Code does not work… stops at
    LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row

    Kindly upload excel file if possible. with code and sample data

15. That was grate Dear Mr. Kumar
    would you explane about option button, how can populate it in userform ?
    Best regards

16. Dear Sir,

    can you shear such sample copy of Excel sheet of following project to my mail as [email protected] or whatsapp on 9928094668

17. This is a great tutorial. Great explanation.
    I wonder how to changes ranges to range in tables?
    Thanks for this again.

18. The VBA codes stop at
    LastRow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
    because when copy and paste the code directly the (” ” ) is not at the correct font.

    Please make sure the ” ” is retyped

19. please help me sir
    Private Sub txtDescription_Change()
    Dim i As Long, LastRow As Long
    LastRow = Sheets(“Product_Master”).Range(“B” & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
    If Sheets(“Product_Master”).Cells(i, “B”).Value = (Me.txtDescription) Or _
    Sheets(“Product_Master”).Cells(i, “B”).Value = Val(Me.txtDescription) Then
    Me.txtUnitPrice = Sheets(“Product_Master”).Cells(i, “C”).Value
    Me.txtHsnSac = Sheets(“Product_Master”).Cells(i, “E”).Value
    End If
    Next
    End Sub
    this code error runtime error ” 9″
    subscript out of range
    what i do help me

Comments are closed.