Explain in the utmost magnificence ... Ask your presence to search in more than sheet and the result appear in the listbox by writing in the textbox ... Thank you so much for all your presentation of the explanations and codes distinct
@@DJOamen is those variable q and p refering to some cell on worksheet? im really sorry to bother you for what im not understanding yet sir, thankyou very much for all of your video
Declared variables are storage location, the two variables q and p are used to store values within the VBA. Read more about variable here, see link: launchschool.com/books/ruby/read/variables
Private Sub ComboBox1_Change() On Error GoTo ErrorHandler Dim q As Long Dim p As Long q = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) If q = 0 Then MsgBox "No data found in column A.", vbExclamation Exit Sub End If For p = 1 To 15 Me("Textbox" & p).Value = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), _ Sheet1.Range("A" & 2, "P" & q), p + 1, 0) Next p Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical End Sub
That vlookup coding part is clever part. Amazing, learnt something new.
Glad to hear that! Thanks KB
Explain in the utmost magnificence ... Ask your presence to search in more than sheet and the result appear in the listbox by writing in the textbox ... Thank you so much for all your presentation of the explanations and codes distinct
Thank you
Exactly what I needed. Thanks
Glad it helped!
Great Teacher...
Thank you! 😃
You are the realy best teacher.
Thank you 👍
very nice, thanks
Most welcome
Thank you sir, very helpful
Thank you👍
Terimakasih ilmunya
Terima kasih dan saya senang Anda menyukai tutorialnya, ingatlah untuk berlangganan. Semoga harimu menyenangkan
Thank sir I like your way
Most welcome
Thank you
You're welcome
What if I need to change a value using the form?
The tutorial is all about Vlookup in Excel with VBA using Userform.
Thank you sir
Thank you
what if i want to leave out one of the columns? Like i have 9 but i only want to use 7 of it
For nine columns that's (A to I), see below:
lstDisplay.ColumnCount = 9
lstDisplay.RowSource = "A1:I65356"
Sir, would you mind to explain what do you mean by dim q and p, thank you very much sir
Variable declared e.g q and p.
@@DJOamen is those variable q and p refering to some cell on worksheet? im really sorry to bother you for what im not understanding yet sir, thankyou very much for all of your video
Declared variables are storage location, the two variables q and p are used to store values within the VBA. Read more about variable here, see link: launchschool.com/books/ruby/read/variables
@@DJOamen thankyou very much sir,... really2 thankyou
If I enter a student ID which is not in the database, the application will crash. Any solutions for that?
Private Sub ComboBox1_Change()
On Error GoTo ErrorHandler
Dim q As Long
Dim p As Long
q = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
If q = 0 Then
MsgBox "No data found in column A.", vbExclamation
Exit Sub
End If
For p = 1 To 15
Me("Textbox" & p).Value = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), _
Sheet1.Range("A" & 2, "P" & q), p + 1, 0)
Next p
Exit Sub
ErrorHandler:
MsgBox "An error occurred: " & Err.Description, vbCritical
End Sub
@@DJOamen Great ... Thank you sir