Hey there, thanks very much for this very useful guide. I just wanted to let you know that if you change the For statement in the Delete code just a little, you can stop the user from deleting the headings and crashing the macro. Specifically, change For i = 0 -> For i = 1 - that's it. The full code would be: 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 Thanks again, James.
This is great! Exactly what I was looking for. Thank you.It took me a little bit to understand that "lstDisplay" was the name of the Display box and I had a text box instead of a list box but once I figured that out it worked perfect.
@@DJOamen Very many thanks DJ, the most useful instructional material on the internet. I am following your Python database video now, exactly what I have been looking for.
Thank you very much. This is one of the most valuable videos to me. I've solved a problem, and learned the things I need from VBA very easily, to use them in the future.
Very nice detail explanation. Almost covers everything. I like very much. I would like to know these buttons were added in the third frame or at the bottom of 2nd frame...? will watch few time more and follow to make couple of sheets.
Yes, and that's correct, is your first achievement and believe me you can achieve more. Keep watch my video and you will learn some more. Well done 👍👍👍
Great video and explanations, but I was curious why you always use the entire worksheet range (eg. A65XXX to [lastcolumnused]65xxx) when there are more efficient ways of finding the last row and column that are dynamic relative references to the active sheet? ie: lastRow = Range("" & Rows.Count).End(xlUp).Row - finds the last row
Hi there. The delete button does not work for me with the given code: 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 Also - if I add a new record, I cannot click any additional buttons afterward. I can't reset the information after I've submitted a new record and I can't delete any records. What am I doing wrong? Also - thank you for your tutorial!
Correct Code for Delete: Watch the video and check your codes 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
You're amazing sir, I found your videos to be very useful. Though I would like to know how you separated you list box and buttons. I had to use the same frame for the buttons and list box combo and so I have problem, the sheet isn't connecting to the listbox.
a marvelous video and it's super amazing how you explain each and everything, but would you be so kind enough to share the code source file? it could be a bit tense to type the whole thing from pausing the video again and again. Best Regards,
Thank you DJ Oamen. Its very simple and effective solution. Just one quick question. On my selecting a row from listbox for deletion, VBA deletes one row above and now the row that i have selected. Am i missing something?
Is there a way to link the owner of this sheet to a master sheet? Context: Staff A handles his set of clients (and the information will be maintained in his sheet); however, when he onboards a new client, we need to simultaneously be able to copy the information over to a master sheet (that is visible by the department manager). Thanks!
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
Hi, I was wondering how do you managed to have all the codes together (one after the other) I have been trying to do the same as you do but I cannot seem to get that to work. Also, I copied the same code as your "Reset" command but I cannot get it to work. do you know why? Ps. Great video
Did you reference the frame? Watch this and see how I have referenced the frame, see the link below, and also the codes used. ruclips.net/video/uiO4qYCBNsk/видео.html Dim del For Each del In Frame3.Controls If TypeOf del Is msforms.TextBox Then del.Text = "" End If Next del
Correct Code for Delete is on the description area, also see below: 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
Thank you for the tutorial, it's worth the time. Please could you help me with this thing that is confusing me? I want to multiply two of the variable and store them in one of the columns. EG: I want to multiply "AddNew.Offset(0, 6).Value = txtRate" and "ext AddNew.Offset(0, 7).Value = txtTotalHours.Text" and store in "txtTotalCost.Text" but I'm not getting a response...
You are going about it the wrong way, easy way out is to complete the calculations using variables and then use AddNew.Offset to embed your result into the worksheet.
Hi! sir I'm having a problems on reset button only one frame clear but the other frames are not ? this is my code base on your instructions : Dim iControl As Control For Each iControl In Me.Controls If iControl.Name Like "txt*" Then iControl = vbNullString Next
Yes it is correct, but you must address the frame For example: For Each iControl In Frame2.Controls If iControl.Name Like "txt*" Then iControl = vbNullString Next OR For Each iControl In Frame1.Controls If iControl.Name Like "txt*" Then iControl = vbNullString Next You can only use Me.Controls, if the components are not on a Frame. Good luck
Isaac, you are not a channel member, click on the link below to join: Join this channel to get access to codes, perks, and see more interesting videos. ruclips.net/channel/UCFtw9CfTfMKU9aHZsT2teYgjoin
Hello Sir, Thanks a lot for your video and it really helped me. Can you tell us how to automatically generate the bill number or any number we need in userform. (Eg. If we are making any kinds of bill)
You have to click on the source code that you want to download because I have not received any request from you. Click on the link below, to gain access to the source code: Channel Members can Download the Excel Data Entry Form project and modify it for their own personal use: drive.google.com/file/d/19s78vO7WUDpnB4VnFLu8QvmPkjDH_qlT/view?usp=sharing
Add a commandbutton and a textbox, then copy and paste the code below into you commandbutton. Make sure you subscribe to my channel Dim prefix As String Static reference As Integer ' Increment the reference each time the button is clicked reference = reference + 1 prefix = "INV" TextBox1.Text = prefix & Format(0, "00") & reference For example, see below: Private Sub CommandButton2_Click() Dim prefix As String Static reference As Integer ' Increment the reference each time the button is clicked reference = reference + 1 prefix = "INV" TextBox1.Text = prefix & Format(0, "00") & reference End Sub
Selection.Deleted The codes below take care of that: 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 End Sub
I am getting a 'Run-time error '1004' Application - defined or object-defined error when I try to add a record. Any clues? Overall it is an amazing video. Well Done!
1. How can you send that form to someone far away from you to his/her particulars online. 2. How can you do that sheet 1, sheet 2 sheet 3, sheet 4... So that different groups can fill their sheet using the same form
What is the name of the Frame on your project called e.g Frame1, or Frame2, or Frame3, you will have to address the frame by number. See example below Dim txt For Each txt In Frame2.Controls If TypeOf txt Is msforms.TextBox Then txt.Text = "" End If Next txt
Can you send me your email so that I can grant you access. I think your membership name is different and that may be reason we are not receiving your request. Forward email, I promise to delete it from public view.
@@DJOamen reset button would work Private Sub reset_Click() Dim iControl As Control For Each iControl In Me.Controls If iControl.Name Like "txt*" Then iControl = vbNullString Next End Sub
See the Correct Code for Delete below: It was on the description area of the video 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
Thanks a lot for a great tutorial - It has been a big inspiration and help! If I want to search for a specific reference no - how would you solve that? Br
Thank you for this great video. you skipped how you created the button, please how do I bring my button to the form? I created from the excel using insert but I cannot bring it to my form.
Dear Sir, I m kindly appreciating your good data entry project in excel above video, but I want to insert the Edit button in order to edit the data by selecting row in list box . How can I code for this demand kindly request your instruction thanks sir
Has any of you actually made any money doing this type of work from home? I'm considering giving this a shot. I'm very good with computers and excel. I'm just leery of online "work"
Correct Code for Delete: 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
Correct Code for Delete: 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
I don't think your Delete Record code works correctly. If you select the first record in the list box, it's index number is 0, but your code deletes Row(0), which is not an actual row in the sheet. I changed "Rows(i).Select" to "Rows(i + 2).Select" to make this work. I think it appeared the delete code was working because you had many duplicate records. I may have missed something, but I had to change it to work for me. Otherwise, I like this form idea. For data like this, it would probably be better to use MS Access. Nice job anyway! Thanks
Hey there, thanks very much for this very useful guide. I just wanted to let you know that if you change the For statement in the Delete code just a little, you can stop the user from deleting the headings and crashing the macro. Specifically, change For i = 0 -> For i = 1 - that's it. The full code would be:
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
Thanks again, James.
James well spotted, thanks for the valuable contribution
Capt has been helping us for many years he is one of the best, hope you have a goodhealth and nice day Capt!
Till now
Thanks man, and stay blessed
This is great! Exactly what I was looking for. Thank you.It took me a little bit to understand that "lstDisplay" was the name of the Display box and I had a text box instead of a list box but once I figured that out it worked perfect.
Well done
Simple straight to the point, it's amazing that you managed to do this form with so few lines of code, you are a genius !
Thank you !
Glad I could help!
Very good. You created an easy to follow tutorial. Thank you😊
Glad it was helpful!
I like all your videos, although comments are turned off, nice one bro.
Still working. Thanks very much. I had trouble with the display section but figured out in the end.
Excellent!
@@DJOamen Very many thanks DJ, the most useful instructional material on the internet. I am following your Python database video now, exactly what I have been looking for.
This is a great tutorial and covers everything that I was looking for.
Glad you enjoyed it!
thank you sir Oamen learn a lot from your video as beginner using VBA
Glad to hear that
Thank you very much. This is one of the most valuable videos to me. I've solved a problem, and learned the things I need from VBA very easily, to use them in the future.
Thank you
Thank you Sir. This is really informative. I can not understand, why some people have disliked such a great video?
👍👍
Excellent tutorial. One of the best on I've seen on RUclips.
Thanks 👍
Practically useful and coding is much shorter and faster yet effective
Indeed it is!
Thank you very much sir. This is amazing. This really helped me in writing data about students in school.
Well done, Nasrullan. I am very pleased with your effort and you made my day. 👍
Thank you for this video, its easy to understand and learning new skills....
Glad it was helpful!
Very nice detail explanation. Almost covers everything. I like very much. I would like to know these buttons were added in the third frame or at the bottom of 2nd frame...? will watch few time more and follow to make couple of sheets.
That's the spirit, good on you 👍
Amazing, your really good lecturer
Thank you! 😃
great sir my first achievement because of you, you struggling to change the world i appreciate you and love you with thanks to do this for us
Yes, and that's correct, is your first achievement and believe me you can achieve more. Keep watch my video and you will learn some more. Well done 👍👍👍
Thanks for everything and the awesome lesson!!!
Thanks
I loved this video! Superb.
Hello Dinesh Kumar. Is very good to see your comment on my channel, I regularly visit your channel. Thank you so much, you made my day.
Thank you, Sir! I find it a very simple and easy Data Entry form. Thank you!
Glad it was helpful!
Very easy to follow and understand, highly recommended. Thank you.
👍
Excellent presentation and tutorial too.
Glad you liked it!
This has helped me tremendously. Thank you.
Glad it helped!
Your a Legendary Instructor! I Really Commend You! Thanks A Lot !!
Thank you
Outstanding tutorial Sir. Simple and very easy. Thank you so much.
Thanks
I love your work and explanation flow. Great job.
Glad you liked it!
thank you very much for this amazing tutorial... 10 stars
You're very welcome!
Great video and explanations, but I was curious why you always use the entire worksheet range (eg. A65XXX to [lastcolumnused]65xxx) when there are more efficient ways of finding the last row and column that are dynamic relative references to the active sheet? ie: lastRow = Range("" & Rows.Count).End(xlUp).Row - finds the last row
Good point!
Good tutorials i hope upload more videos
Thanks, you can check out my Excel playlist, see the link below.
ruclips.net/p/PLQNM7btXnKMs3ln8i-A0J3N7W9vRtwAvz
Ok sir i follow your page i hope poste more videos
Nice tutorial captain... i like it much thanks
Thank you
Thanks for sharing a good and fast way.
Thanks 👍
Nice teaching. Interesting
Thank you
THIS IS AMAZING....... LOVE IT
Glad it was helpful!
Thank u its very use full for me
Thank you
Hi there. The delete button does not work for me with the given code:
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
Also - if I add a new record, I cannot click any additional buttons afterward. I can't reset the information after I've submitted a new record and I can't delete any records. What am I doing wrong?
Also - thank you for your tutorial!
Correct Code for Delete: Watch the video and check your codes
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
One of the best tutorials, thank you
👍
Great input. Thanks DJ Oamen
Thank you
.
Thank you..
will get back
.
Thank you
Many thanks for your example
Thanks
You're amazing sir, I found your videos to be very useful. Though I would like to know how you separated you list box and buttons. I had to use the same frame for the buttons and list box combo and so I have problem, the sheet isn't connecting to the listbox.
Use frames to separated your listbox and buttons, and
at 29:24 minutes of the video you will see how the sheet was linked to the listbox
Very informative, thank you
Glad it was helpful!
a marvelous video and it's super amazing how you explain each and everything, but would you be so kind enough to share the code source file? it could be a bit tense to type the whole thing from pausing the video again and again.
Best Regards,
In the description
Thank you DJ Oamen. Its very simple and effective solution. Just one quick question. On my selecting a row from listbox for deletion, VBA deletes one row above and now the row that i have selected. Am i missing something?
See the description area of the video for correction.
Subscribe to my channel
thanks for the video, just excellent
Thanks
Excellent,
How to save delete data another sheet?
Implement a function to save deleted data
Great tutorial, thanks for this
Thanks 👍
Is there a way to add in combo boxes and list boxes? (instead of Text boxes only)? Thank you.
Yes you can
Sir plz tell me which Excel version you use
2016
Is there a way to link the owner of this sheet to a master sheet?
Context: Staff A handles his set of clients (and the information will be maintained in his sheet); however, when he onboards a new client, we need to simultaneously be able to copy the information over to a master sheet (that is visible by the department manager). Thanks!
Yes
Does this include database or just gui?
Yes
iloveyou bro from philippines
love you bro❤👍
Thank you very much Sir. How can I contact you? I have a question
Here
Brilliant! Thanks.
👍
Amazing
Thank you! Cheers!
Wow nice
👍👍
I am getting error message "Compile error, Variable not define. I followed exjact code from your presentation, would you pls suggest, thanks
You have to define the missing variable
The delete code is not working on my form what could be the problem?
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
Many thanks DJ for this. My question is can I have a userform for each worksheets in my workbook
Yes you can
Can I add a dropdown list and dependant dropdown list in the form?
Yes you can
Hi sir I have questions in frame3 is that a listbox?
Yes, it's a listbox
Hi, I was wondering how do you managed to have all the codes together (one after the other) I have been trying to do the same as you do but I cannot seem to get that to work. Also, I copied the same code as your "Reset" command but I cannot get it to work. do you know why?
Ps. Great video
Did you reference the frame?
Watch this and see how I have referenced the frame, see the link below, and also the codes used.
ruclips.net/video/uiO4qYCBNsk/видео.html
Dim del
For Each del In Frame3.Controls
If TypeOf del Is msforms.TextBox Then
del.Text = ""
End If
Next del
Great video. Thank you for posting.
I’d really like to be able to search for a field and edit it. Would you be able to assist with that?
Tutorial with search function 1: ruclips.net/video/HjgbLXlc2tQ/видео.html
Tutorial with search function 2: ruclips.net/video/C0tCqwpbCBg/видео.html
@@DJOamen thank you sir. I appreciate it. Stay safe.
Why my delete button always delete the one i selected above?
See the correct code in the Description area of the video tutorial
I got little problem on lstDisplay box. Whenever I delete selected item it deleted the item above that selected one. How can I fix this?
Correct Code for Delete is on the description area, also see below:
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
Thank you for the tutorial, it's worth the time. Please could you help me with this thing that is confusing me? I want to multiply two of the variable and store them in one of the columns. EG: I want to multiply "AddNew.Offset(0, 6).Value = txtRate" and "ext
AddNew.Offset(0, 7).Value = txtTotalHours.Text" and store in "txtTotalCost.Text" but I'm not getting a response...
You are going about it the wrong way, easy way out is to complete the calculations using variables and then use AddNew.Offset to embed your result into the worksheet.
Hi! sir I'm having a problems on reset button only one frame clear but the other frames are not ? this is my code base on your instructions :
Dim iControl As Control
For Each iControl In Me.Controls
If iControl.Name Like "txt*" Then iControl = vbNullString
Next
Yes it is correct, but you must address the frame
For example:
For Each iControl In Frame2.Controls
If iControl.Name Like "txt*" Then iControl = vbNullString
Next
OR
For Each iControl In Frame1.Controls
If iControl.Name Like "txt*" Then iControl = vbNullString
Next
You can only use Me.Controls, if the components are not on a Frame. Good luck
please i have subscribed but i cant Channel Member Download the Data Entry Form With UserForm in Excel VBA source code
Isaac, you are not a channel member, click on the link below to join:
Join this channel to get access to codes, perks, and see more interesting videos. ruclips.net/channel/UCFtw9CfTfMKU9aHZsT2teYgjoin
Hello Sir, Thanks a lot for your video and it really helped me. Can you tell us how to automatically generate the bill number or any number we need in userform. (Eg. If we are making any kinds of bill)
By using VBA code on userform or saving all outcomes of the worksheet. Thanks
I have paid the subscription however i still cannot download the content
You have to click on the source code that you want to download because I have not received any request from you.
Click on the link below, to gain access to the source code:
Channel Members can Download the Excel Data Entry Form project and modify it for their own personal use:
drive.google.com/file/d/19s78vO7WUDpnB4VnFLu8QvmPkjDH_qlT/view?usp=sharing
Hi sir I am watching all your video Plss help me how to auto generate alpha numeric serial number in userform initialisation like INV001, INV002…..
Add a commandbutton and a textbox, then copy and paste the code below into you commandbutton. Make sure you subscribe to my channel
Dim prefix As String
Static reference As Integer
' Increment the reference each time the button is clicked
reference = reference + 1
prefix = "INV"
TextBox1.Text = prefix & Format(0, "00") & reference
For example, see below:
Private Sub CommandButton2_Click()
Dim prefix As String
Static reference As Integer
' Increment the reference each time the button is clicked
reference = reference + 1
prefix = "INV"
TextBox1.Text = prefix & Format(0, "00") & reference
End Sub
@@DJOamen thank you so much sir 😊😊😊
You're welcome. Did you subscribe to my channel?
Brilliant
Thanks
Thank you! Great work, very well explained.
Can we add Edit Tab on the same
Yes
When u delete from the listbox how does it know to delete in the worksheet as well ?
Selection.Deleted
The codes below take care of that:
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
End Sub
@@DJOamen what time stamp in the video did he write that
That's the delete function, is also written on the description area of the video
@@DJOamen yes and you corrected it by i +1 because the listbox index starts with zero
I am getting a 'Run-time error '1004'
Application - defined or object-defined error when I try to add a record. Any clues? Overall it is an amazing video. Well Done!
Check your codes
@@DJOamen Yeah I did! Line by line and still doesn't work. I am using Excel 2016
Try this:
Dim wks As Worksheet
Dim AddNew As Range
Set wks = Sheet1
Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)
AddNew.Offset(0, 0).Value = txtRef.Text
AddNew.Offset(0, 1).Value = txtFirstname.Text
AddNew.Offset(0, 2).Value = txtSurname.Text
AddNew.Offset(0, 3).Value = txtAddress.Text
AddNew.Offset(0, 4).Value = txtPostCode.Text
AddNew.Offset(0, 5).Value = txtTelephone.Text
AddNew.Offset(0, 6).Value = txtDateReg.Text
AddNew.Offset(0, 7).Value = txtProve.Text
AddNew.Offset(0, 8).Value = txtMemberType.Text
AddNew.Offset(0, 9).Value = txtMemberFees.Text
lstDisplay.ColumnCount = 10
lstDisplay.RowSource = "B1:J65356"
@@DJOamen I apologize! It worked. Not sure what was wrong. Thanks a lot!
1. How can you send that form to someone far away from you to his/her particulars online.
2. How can you do that sheet 1, sheet 2 sheet 3, sheet 4... So that different groups can fill their sheet using the same form
Share it and enable editable
the reset command doesnt work for me .any suggestions ??
Check your codes
@@DJOamen i checked twice but didn't find the problem plz can you help me its for a study project
What is the name of the Frame on your project called e.g Frame1, or Frame2, or Frame3, you will have to address the frame by number. See example below
Dim txt
For Each txt In Frame2.Controls
If TypeOf txt Is msforms.TextBox Then
txt.Text = ""
End If
Next txt
How can I get a copy of the coding for this form?
Become a channel member
DJ Oamen I did subscribe. It that the same thing? If not, then how do I become a member? I am new to you tube.
To Become a Channel member click on the link below to JOIN:
ruclips.net/channel/UCFtw9CfTfMKU9aHZsT2teYgjoin
useful for us
Thks 👍
I am facing a problem in downloading the code / file .. i already sent you a request to enable me but i have not received anything till now !!!!
Join this channel to get access to codes, perks, and see more interesting videos. ruclips.net/channel/UCFtw9CfTfMKU9aHZsT2teYgjoin
I have joind the channel but i still cannot download due to the access on the Google drive
Can you send me your email so that I can grant you access. I think your membership name is different and that may be reason we are not receiving your request. Forward email, I promise to delete it from public view.
I can send you screenshot as a confirmation of my membership
Any good news ?
How do you protect the header row? If I delete too many rows, the header row is deleted and interrupts the code.
Set up heading, see details on this video tutorial after about 19:24 minutes you will see how headings are set up. ruclips.net/user/videor2M2H_akGZk
The reset buttons wouldnt work for me after I put the codes in. I'm going watch the rest of the video, maybe I missed something.
Check your codes
@@DJOamen reset button would work
Private Sub reset_Click()
Dim iControl As Control
For Each iControl In Me.Controls
If iControl.Name Like "txt*" Then iControl = vbNullString
Next
End Sub
Hi capt. Paul Oamen
Excellent tutorial.
delete button will not work at all
worked 3 times now does not checked code all correct
See the Correct Code for Delete below: It was on the description area of the video
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
Hi capt. Paul Oamen
solved the problem
deleted sub form initalise. all working now
Thank you very much
How did you create the display window?
I used a UserForm and VBA codes
Thanks a lot for a great tutorial - It has been a big inspiration and help!
If I want to search for a specific reference no - how would you solve that?
Br
Check out this tutorial with search function: ruclips.net/user/videoHjgbLXlc2tQ
Why it didn't delete the selected data/row?
See description area for the correct code
the delete button is not deleting the exact selected row but it deletes the previous row, why?
See the Description area of the video for the correct codes for delete
where the lstdisplay come from?it's not working .how can i fix it?
lstDisplay is the ListBox
Thank you for this great video. you skipped how you created the button, please how do I bring my button to the form? I created from the excel using insert but I cannot bring it to my form.
Watch this tutorial you will see how the buttons are created:
ruclips.net/video/PZ3PLD9SGtg/видео.html
Dear Sir, I m kindly appreciating your good data entry project in excel above video, but I want to insert the Edit button in order to edit the data by selecting row in list box . How can I code for this demand kindly request your instruction thanks sir
Watch the video and try pay attention to details
perfect
Thanks, bro. 👍👍
Genius
👍👍 THANK YOU
genuis
Thanks
Why you use "i" before the variable name ? Sorry if you had said in video, my english is not so good.
Is just my way of naming variables sometimes.
@@DJOamen reset is not working?
Can i have your code please?
Check description
Has any of you actually made any money doing this type of work from home? I'm considering giving this a shot. I'm very good with computers and excel. I'm just leery of online "work"
Yes, you will make some money, if you meet RUclips Monetisation requirement, but don't give up your day job. Good luck
For me it had module no form ):
Ok
I have a problem on delete cmd...
Problem in row (i). Select function not defined
Correct Code for Delete:
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
Correct Code for Delete:
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
I don't think your Delete Record code works correctly. If you select the first record in the list box, it's index number is 0, but your code deletes Row(0), which is not an actual row in the sheet. I changed "Rows(i).Select" to "Rows(i + 2).Select" to make this work. I think it appeared the delete code was working because you had many duplicate records. I may have missed something, but I had to change it to work for me. Otherwise, I like this form idea. For data like this, it would probably be better to use MS Access.
Nice job anyway! Thanks
Correction is on the video Description area
Same, somehow rows(i + 2) solve delete the correct line for me too.
This type of jobs working from home is safe are not
No
hi sir how are you. i hope you are good .. sir i need you some help
How🤞
@@DJOamen I have data base file forgot password kindle can you recover for me plz
No can't.