Check out this video: How to Create Data Entry Form with Multiple Search function and Protection in Excel studio.ua-cam.com/users/videowMmsmolIX_k/edit
@@DJOamen Thanks for the reply, would you have a tutorial anywhere (even if I have to pay for it) It's the last thing I need to finish of my form. Thanks in advance and Happy Christmas!
@DJ Oamen . The tutorial is awesome, just a request to add a code in comments which should show us a prompt on click Delete button so it should ask first that are you sure to delete the record. That will be super helpful. Regards
Hi, I have learned a lot from your tutorials , I really like how you explain things. Do you think if you can make a few tutorial using Javascrip API for excel , I believe all of us would appreciate that.
Content well presented and very helpful. Just a question. Delete button code comes up with a compile error, variable not defined. It then goes on to highlight lstDisplay. Please help. Thank you.
Thank you for your valuable presentation. I have the code nearly working but I am missing something it seems. In the search I am not picking up the current region but instead only column A. So I search and I use criteria ref number and that is ok.....great so far. but if I use any other search criteria for the other column data it returns invalid data etc with the msgbox
Hello i am having difficulties using your code for DELETE function, everytime I am selecting a row to delete it is deleting the previous one not the seletecd one. is there any advice you can give me ?
Correct Code for Delete: Dim i As Integer For i = 1 To Range("A65356").End(xlUp).Row - 1 If lstDisplay.Selected(i) Then Rows(i + 1).Select Selection.Delete End If Next i
DV Thankyou for this very informative video. i have a problem i have been following you tutorial. Everything is working very well but for some reason my Search Button is giving me an error, namely "Variable not found" I am not sure how to get the code to you so as to see precisely where the problem lies. If I look at my code it is exactly the same as your code, i only changed the field names to suite my project.
Below are the lines of code used for the search function. Compare it with your codes. Good luck Dim iSearch As Long, i As Long iSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count For i = 10 To iSearch If Trim(Sheet1.Cells(i, 1)) Trim(txtSearch.Text) And i = iSearch Then MsgBox ("Invalid data") txtSearch.Text = "" txtSearch.SetFocus End If If Trim(Sheet1.Cells(i, 1)) = Trim(txtSearch.Text) Then txtRef.Text = Sheet1.Cells(i, 1) txtFirstname.Text = Sheet1.Cells(i, 2) txtSurname.Text = Sheet1.Cells(i, 3) txtAddress.Text = Sheet1.Cells(i, 4) txtPostCode.Text = Sheet1.Cells(i, 5) txtTelephone.Text = Sheet1.Cells(i, 6) txtDateReg.Text = Sheet1.Cells(i, 7) txtProve.Text = Sheet1.Cells(i, 8) txtMemberType.Text = Sheet1.Cells(i, 9) txtMemberFees.Text = Sheet1.Cells(i, 10) Exit For End If Next i
Thank you, i worte the codes exactly and still getting the error "Object required (Error 424)" in search button code, and the same error is occuring in Reset, the reset button works when i remove (txt.search.Text = "") but the search code is still having the error. can you help please?
Is it possible to down load this code? I downloaded the excel spreadsheet but I'm having problems with the Delete function. I have it all typed out but I'm still working with some errors. Thanks great info.
Sent! Check your email However, the correct code for delete is in the description, see it below as well. Correct Code for Delete: Dim i As Integer For i = 1 To Range("A65356").End(xlUp).Row - 1 If lstDisplay.Selected(i) Then Rows(i + 1).Select Selection.Delete End If Next i ======================================= See the correct code for the search function: Change For i = 10 To iSearch To For i = 1 To iSearch =======================================
James, click on the link below and I will grant you access to the project. Do it now, I am waiting to grant you access. Channel Members can Download the Excel VBA Data Entry Form With Search Function and modify it for their own personal use: drive.google.com/file/d/1MejxVwHvHwZMUIALx3BAXdwn5TFnEM72/view?usp=sharing
hi mate how do i write the code if i want the input is number only for example for the reference number textbox when the user input character it should not accept but numbers only. hoping for your positive feedback . I'm your big fun from phil.
great tutorial, I am wondering if there is a way I can search with name(specially if I have multiple records with same name but are different from each other. So if I put name and keep clicking on search it should start showing records one by one. or may be I can give 2 criteria to be more specific? is that possible? would be great if you can guide or help. Thanks in advance!
@@DJOamen Thanks for taking time and reply. Will this also work if I search for 'Tony''? Like there are multiple Tony how can I move to next record. Should I just click on Search again?
@@DJOamen Thanks for your quick reply. I was unable to do it so what I instead did is based on text change I populated only specific customer name to list and from that I picked up the exact reference no I was looking for. It works ! But thanks for your response and wonderful videos. Have a nice day!
Private Sub cmdExit_Click() Dim iExit As VbMsgBoxResult iExit = MsgBox("Confirm if you want to exit", vbQuestion + vbYesNo, "Registration System") If iExit = vbYes Then Unload Me End If
Hi Sir, thank you for sharing this video. I am having some trouble with Search button. It says that the variable is not declared. You´ve written Sheet1 after for loop: for 1=10 to iSearch If Trim(Database.Cells(i, 1)) Trim(Search_TXT2.Text) And i = isearch Then My sheet name is Database and if I rename it to the same as yours (Sheet1), then also it says that the variable is not defined.
Hi Dj Oamen! My name is george from tanzania, i would like to learn more about MICROSOFT EXCEL AND ACCESS FROM BEGIN TO ADVANCED, USING VISUAL BASIC. DO YOU HAVE WEBSITE THAT I CAN LEARN ONLINE MICROSOFT EXCEL AND ACCESS FROM BASIC TO ADVANCED USING VISUAL BASIC OR MACROS
Hi Dj Oamen, i watched and follow your tutorial but when i tried the Search Button it won't Search. I followed all the codes but the search button won't function.What can i do with this? kindly help.
======================================= See the correct code for the search function: Change For i = 10 To iSearch To For i = 1 To iSearch =======================================
Channel members download the Excel VBA Data Entry Form With Search Function using Userform source code here: drive.google.com/file/d/1MejxVwHvHwZMUIALx3BAXdwn5TFnEM72/view?usp=sharing OR Join this channel to get access to codes, perks, and see more interesting videos. ua-cam.com/channels/Ftw9CfTfMKU9aHZsT2teYg.htmljoin
See the correct code for the search function "For i = 1 To iSearch" Dim iSearch As Long, i As Long 'Dim iSearch, i As String iSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count 'If txtSearch.Text = "" Then 'MsgBox ("Enter a value to search") 'txtSearch.SetFocus 'End If For i = 1 To iSearch If Trim(Sheet1.Cells(i, 1)) Trim(txtSearch.Text) And i = iSearch Then MsgBox ("Name not found") txtSearch.Text = "" txtSearch.SetFocus End If If Trim(Sheet1.Cells(i, 1)) = Trim(txtSearch.Text) Then txtRef.Text = Sheet1.Cells(i, 1) txtFirstname.Text = Sheet1.Cells(i, 2) txtSurname.Text = Sheet1.Cells(i, 3) txtAddress.Text = Sheet1.Cells(i, 4) txtPostCode.Text = Sheet1.Cells(i, 5) txtTelephone.Text = Sheet1.Cells(i, 6) txtDateReg.Text = Sheet1.Cells(i, 7) txtProve.Text = Sheet1.Cells(i, 8) txtMemberType.Text = Sheet1.Cells(i, 9) txtMemberFees.Text = Sheet1.Cells(i, 10) Exit For End If Next i
======================================= See the correct code for the search function: Change For i = 10 To iSearch To For i = 1 To iSearch =======================================
Below is the Correct delete code on the video description Correct Code for Delete: Dim i As Integer For i = 1 To Range("A65356").End(xlUp).Row - 1 If lstDisplay.Selected(i) Then Rows(i + 1).Select Selection.Delete End If Next i
Great tutorial, only one problem when I do the code for the search part, it brings back an error in the code and I have followed it line for line, below is where the problem is isearch = worksheet("sheet1").range("a1").currentregion.rows.count
Another excellent tutorial. Easy to follow and easy to understand.
Glad it was helpful!
Exactly what I am looking !!! Top +1 Thank you sir !!!
Glad to help!
Thanks for the video.. it helps me a lot
It's my pleasure, c
I am following your videos............I found them very informative, and useful for excel user... Thank you sir for your efforts
Thanks
Exactly what I am looking for, very good tutorial, thank you very much!
Thks
Thank you sir! one of best tutorial for learning excel. One query I could not able to create the button(macro) of this form. May you please help me.
Try again or search for how to create macro button on UA-cam
@@DJOamen thankyou my problem is solved
Well done 👍
Daaamn, Cap your are the best, thank you very much for the tutorial
My pleasure!
Great Tutorial Worked Perfectly Fine, Just One Question How Can I Make The Search Function Work For More Than One Criteria.
Check out this video: How to Create Data Entry Form with Multiple Search function and Protection in Excel
studio.ua-cam.com/users/videowMmsmolIX_k/edit
Great video, helped me out a lot. Is there a way after search if a user updates the data in the form it can be saved over what is already there??
Yes
@@DJOamen Thanks for the reply, would you have a tutorial anywhere (even if I have to pay for it) It's the last thing I need to finish of my form. Thanks in advance and Happy Christmas!
Great for beginners to learn... kudos to you
So nice of you
Hi ! Thank you sir ;) You're the best +1
Happy to help
Exactly what I'm looking for. Will this code work in Google Sheets Script do you think? Could you print it to a sheet I wonder? Thanks, great vid.
It should
Good tutorial sir and it worked perfectly.
Well done 👍
Dear sir kindly making Invoicing system with custom invoice style ……… for shopping mall shop
Down
thank you its so useful :)
You're welcome!
@DJ Oamen . The tutorial is awesome, just a request to add a code in comments which should show us a prompt on click Delete button so it should ask first that are you sure to delete the record. That will be super helpful.
Regards
Great suggestion!
Very nice tutorial Sir
👍
I have learnt a lot. thanks
Nice one Joseph, make sure you subscribe to my channel for more video. 👍
Thank you so much
You're most welcome
Hello new friend here! Great video! Let's stay connected!
Thanks and sure
Nice tutorial.
Thanks
Hi, I have learned a lot from your tutorials , I really like how you explain things. Do you think if you can make a few tutorial using Javascrip API for excel , I believe all of us would appreciate that.
Great suggestion! But 🤞
Thank you sir.
So nice of you
Content well presented and very helpful. Just a question.
Delete button code comes up with a compile error, variable not defined. It then goes on to highlight lstDisplay. Please help. Thank you.
Check description for the correct code
Thank you for your valuable presentation.
I have the code nearly working but I am missing something it seems.
In the search I am not picking up the current region but instead only column A.
So I search and I use criteria ref number and that is ok.....great so far.
but if I use any other search criteria for the other column data it returns invalid data etc with the msgbox
The search function is designed for one column
Hello
i am having difficulties using your code for DELETE function,
everytime I am selecting a row to delete it is deleting the previous one not the seletecd one. is there any advice you can give me ?
Correct Code for Delete:
Dim i As Integer
For i = 1 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i
Check your email
@@DJOamen i also have the correct code but it is deleting the previous one also. Please help
See the description of the video for the correct code
It would be super perfect if there's an update button too
That's easy, you can add an update button
@@DJOamen sadly I have no idea how to do it.. hehe
Excellent,
How to save delete data another sheet?
Implement a function to save deleted data
DV Thankyou for this very informative video. i have a problem i have been following you tutorial. Everything is working very well but for some reason my Search Button is giving me an error, namely "Variable not found" I am not sure how to get the code to you so as to see precisely where the problem lies. If I look at my code it is exactly the same as your code, i only changed the field names to suite my project.
Below are the lines of code used for the search function. Compare it with your codes. Good luck
Dim iSearch As Long, i As Long
iSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
For i = 10 To iSearch
If Trim(Sheet1.Cells(i, 1)) Trim(txtSearch.Text) And i = iSearch Then
MsgBox ("Invalid data")
txtSearch.Text = ""
txtSearch.SetFocus
End If
If Trim(Sheet1.Cells(i, 1)) = Trim(txtSearch.Text) Then
txtRef.Text = Sheet1.Cells(i, 1)
txtFirstname.Text = Sheet1.Cells(i, 2)
txtSurname.Text = Sheet1.Cells(i, 3)
txtAddress.Text = Sheet1.Cells(i, 4)
txtPostCode.Text = Sheet1.Cells(i, 5)
txtTelephone.Text = Sheet1.Cells(i, 6)
txtDateReg.Text = Sheet1.Cells(i, 7)
txtProve.Text = Sheet1.Cells(i, 8)
txtMemberType.Text = Sheet1.Cells(i, 9)
txtMemberFees.Text = Sheet1.Cells(i, 10)
Exit For
End If
Next i
@@DJOamen Hi this is code need set worksheet?
This is very valuable
Thanks
You just great man
😂👍Thanks
VERY USEFUL
Thank you
Genius :)
Thanks
can be this use in Google sheet?
I have never tried it
Thank you, i worte the codes exactly and still getting the error "Object required (Error 424)" in search button code, and the same error is occuring in Reset, the reset button works when i remove (txt.search.Text = "") but the search code is still having the error. can you help please?
See solution on the Description area of the video
Brilliant
THANKS
Is it possible to down load this code? I downloaded the excel spreadsheet but I'm having problems with the Delete function. I have it all typed out but I'm still working with some errors.
Thanks great info.
Sent! Check your email
However, the correct code for delete is in the description, see it below as well.
Correct Code for Delete:
Dim i As Integer
For i = 1 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i
=======================================
See the correct code for the search function:
Change
For i = 10 To iSearch
To
For i = 1 To iSearch
=======================================
@@DJOamen I copied and pasted your text but I got a RUN TIME ERROR.
James, click on the link below and I will grant you access to the project. Do it now, I am waiting to grant you access.
Channel Members can Download the Excel VBA Data Entry Form With Search Function and modify it for their own personal use:
drive.google.com/file/d/1MejxVwHvHwZMUIALx3BAXdwn5TFnEM72/view?usp=sharing
Access grant to the project, check your email
hello sir where should i put this?
To
For i = 1 To iSearch
something like this?
Exit For
End If
Next i
To
For i = 1 To iSearch ??
That's for the search button
hi mate how do i write the code if i want the input is number only for example for the reference number textbox when the user input character it should not accept but numbers only. hoping for your positive feedback . I'm your big fun from phil.
Private Sub txtShift1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Debug.Print KeyAscii
If KeyAscii >= 48 And KeyAscii
@@DJOamen you're such a good man mate I wasn't expecting your fast reply but look you did it in timely manner ,wow I love you captain
Thanks man, and you stay safe. Have a nice one
Amazing
👍
thanks
You're welcome!
great tutorial, I am wondering if there is a way I can search with name(specially if I have multiple records with same name but are different from each other. So if I put name and keep clicking on search it should start showing records one by one. or may be I can give 2 criteria to be more specific? is that possible? would be great if you can guide or help. Thanks in advance!
Check this out: How to Create Data Entry Form with Multiple Search function and Protection in Excel
ua-cam.com/video/wMmsmolIX_k/v-deo.html
@@DJOamen Thanks for taking time and reply. Will this also work if I search for 'Tony''? Like there are multiple Tony how can I move to next record. Should I just click on Search again?
Yes
@@DJOamen Thanks for your quick reply. I was unable to do it so what I instead did is based on text change I populated only specific customer name to list and from that I picked up the exact reference no I was looking for. It works ! But thanks for your response and wonderful videos. Have a nice day!
Thanks dude, have a nice one
Sir please help insert picture from userform or any folder in a excel sheet in a particular area with fixed size
See the video tutorial link below of how pictures was added using image object.
ua-cam.com/users/videob9uinhCC7Jk
hello sir why i have error on exit command code Expected list or seperate ? ty
Private Sub cmdExit_Click()
Dim iExit As VbMsgBoxResult
iExit = MsgBox("Confirm if you want to exit", vbQuestion + vbYesNo, "Registration System")
If iExit = vbYes Then
Unload Me
End If
Hi Sir, thank you for sharing this video. I am having some trouble with Search button. It says that the variable is not declared. You´ve written Sheet1 after for loop:
for 1=10 to iSearch
If Trim(Database.Cells(i, 1)) Trim(Search_TXT2.Text) And i = isearch Then
My sheet name is Database and if I rename it to the same as yours (Sheet1), then also it says that the variable is not defined.
Sheets("Database")
@@DJOamen Thank you so much. It worked.
Hi Dj Oamen! My name is george from tanzania, i would like to learn more about MICROSOFT EXCEL AND ACCESS FROM BEGIN TO ADVANCED, USING VISUAL BASIC. DO YOU HAVE WEBSITE THAT I CAN LEARN ONLINE MICROSOFT EXCEL AND ACCESS FROM BASIC TO ADVANCED USING VISUAL BASIC OR MACROS
No web site
hello sir. i follow your code. but in search function for invalid data, even the data available it still shows invalid data msgbox. not sure why
Try again, check your code
Hi, AddNew doesnt work for mee :( please help
Carefully watch the video tutorial and check your code
Hi Dj Oamen, i watched and follow your tutorial but when i tried the Search Button it won't Search. I followed all the codes but the search button won't function.What can i do with this? kindly help.
=======================================
See the correct code for the search function:
Change
For i = 10 To iSearch
To
For i = 1 To iSearch
=======================================
I paid for the membership to download the spreadsheet and it isn’t working.
Access to download was grant this day 15/08/2023. Check your email
You should have a udemy course
I will look into it
Hello please help me,When typing the code for the Delete buttom it gives me an error error 424
Dim i As Integer
For i = 0 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i
lstDisplay not clear to me Sir
its showing me bug
hi, i want to insert a drop down, but how?
Is on the toolbox
@@DJOamen I mean the code :(
Channel members download the Excel VBA Data Entry Form With Search Function using Userform source code here:
drive.google.com/file/d/1MejxVwHvHwZMUIALx3BAXdwn5TFnEM72/view?usp=sharing
OR
Join this channel to get access to codes, perks, and see more interesting videos. ua-cam.com/channels/Ftw9CfTfMKU9aHZsT2teYg.htmljoin
@@DJOamen for print code. it doesn't work, I copied everything you did in the vid, huhu
hi, I still have problems with the delete button
Fernanda Aguilar, you did not subscribe?
i have also problem in my search box when i try to click search button nothing happens i already change the text box to txtSearch
See the correct code for the search function
"For i = 1 To iSearch"
Dim iSearch As Long, i As Long
'Dim iSearch, i As String
iSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
'If txtSearch.Text = "" Then
'MsgBox ("Enter a value to search")
'txtSearch.SetFocus
'End If
For i = 1 To iSearch
If Trim(Sheet1.Cells(i, 1)) Trim(txtSearch.Text) And i = iSearch Then
MsgBox ("Name not found")
txtSearch.Text = ""
txtSearch.SetFocus
End If
If Trim(Sheet1.Cells(i, 1)) = Trim(txtSearch.Text) Then
txtRef.Text = Sheet1.Cells(i, 1)
txtFirstname.Text = Sheet1.Cells(i, 2)
txtSurname.Text = Sheet1.Cells(i, 3)
txtAddress.Text = Sheet1.Cells(i, 4)
txtPostCode.Text = Sheet1.Cells(i, 5)
txtTelephone.Text = Sheet1.Cells(i, 6)
txtDateReg.Text = Sheet1.Cells(i, 7)
txtProve.Text = Sheet1.Cells(i, 8)
txtMemberType.Text = Sheet1.Cells(i, 9)
txtMemberFees.Text = Sheet1.Cells(i, 10)
Exit For
End If
Next i
=======================================
See the correct code for the search function:
Change
For i = 10 To iSearch
To
For i = 1 To iSearch
=======================================
Why does the delete code shows error 424 by showing end and debug
Check description
@@DJOamen all I did was going all the ways you went through in the video to test it right and encoded your codes but it showed me the error I stated.
I corrected the error and the correction is on the description area of the video tutorial
@@DJOamen where can I get that sir?
Below is the Correct delete code on the video description
Correct Code for Delete:
Dim i As Integer
For i = 1 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i
Can I get this code sir?
Yes you can, see the description
Sir sometimes it's working sometimes it's not why
Check your code
I have question y is it you say i = 10
Yes, because I have 10 columns
Great tutorial, only one problem when I do the code for the search part, it brings back an error in the code and I have followed it line for line, below is where the problem is
isearch = worksheet("sheet1").range("a1").currentregion.rows.count
See the solution for the search function in the description