Hi my vba was working perfectly fine. But for better identification I renamed my 'Sheet1' to 'Data' since then when I show userform it gives runtime error. When I click on the button to open same form it says object required. How can I fix it? Please note I have updated 'Data' in all my code where 'Sheet1' was present
@@ExcelDestinationHey thanks for reply. I checked entire code and everywhere it was new sheet name but then I went to design and on vba project I clicked on sheet(it had new name visible) but in the properties it was still old name. so I changed it and it worked!! Thanks again and have a wonderful day.
You would require following steps through VBA Code a. count total sheets through code b. loop through 1st to last sheet c. use index number in vba for sheets d. delete sheets where index number is greater than 1 and less than total. if you want any vba support, write to exceldestination@gmail.com
this error occurs when there is missing object like cell, range , sheet, workbook........may be there is any gap in naming. without looking at your code, I can't say much. If you can share code I will try.
@@ExcelDestination This is the command of the search button but it is not known where the problem is happening in it. Please sir help me Private Sub searchCommand_Click() Dim x As Long Dim y As Long x = Sheets("SHEET1").Range("A" & Rows.Count).End(xlUp).Row For y = 2 To x If Sheets("SHEET1").Cells(y, 1).Text = textbox16.Value Then TextBox1.Text = Sheets("SHEETS1").Cells(y, 2) TextBox2.Text = Sheets("SHEETS1").Cells(y, 3) TextBox3.Text = Sheets("SHEETS1").Cells(y, 4) TextBox4.Text = Sheets("SHEETS1").Cells(y, 5) TextBox5.Text = Sheets("SHEETS1").Cells(y, 6) TextBox6.Text = Sheets("SHEETS1").Cells(y, 7) TextBox7.Text = Sheets("SHEETS1").Cells(y, 8) TextBox8.Text = Sheets("SHEETS1").Cells(y, 9) TextBox9.Text = Sheets("SHEETS1").Cells(y, 10) TextBox10.Text = Sheets("SHEETS1").Cells(y, 11) TextBox11.Text = Sheets("SHEETS1").Cells(y, 12) TextBox12.Text = Sheets("SHEETS1").Cells(y, 13) TextBox13.Text = Sheets("SHEETS1").Cells(y, 14) TextBox14.Text = Sheets("SHEETS1").Cells(y, 15) TextBox15.Text = Sheets("SHEETS1").Cells(y, 16) End If Next y End Sub
I love you man. Thank you so much for uploading this
Keep up the good work
Thank you
for me when I execute the program and click on any command button
it tells run time error 424
can you tell me how to resolve it
Hi my vba was working perfectly fine. But for better identification I renamed my 'Sheet1' to 'Data' since then when I show userform it gives runtime error. When I click on the button to open same form it says object required. How can I fix it? Please note I have updated 'Data' in all my code where 'Sheet1' was present
may be vba code is referring to old sheet name and you have renamed it.
@@ExcelDestinationHey thanks for reply. I checked entire code and everywhere it was new sheet name but then I went to design and on vba project I clicked on sheet(it had new name visible) but in the properties it was still old name. so I changed it and it worked!! Thanks again and have a wonderful day.
sir i want delete excel sheet on vba between sheet1:sheet10 delete only between sheets plese help me
You would require following steps through VBA Code
a. count total sheets through code
b. loop through 1st to last sheet
c. use index number in vba for sheets
d. delete sheets where index number is greater than 1 and less than total.
if you want any vba support, write to exceldestination@gmail.com
Sir i am create userform and use tha search command but vba code is not work and run time error '424' object required plz help sir
this error occurs when there is missing object like cell, range , sheet, workbook........may be there is any gap in naming. without looking at your code, I can't say much. If you can share code I will try.
@@ExcelDestination This is the command of the search button but it is not known where the problem is happening in it. Please sir help me
Private Sub searchCommand_Click()
Dim x As Long
Dim y As Long
x = Sheets("SHEET1").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("SHEET1").Cells(y, 1).Text = textbox16.Value Then
TextBox1.Text = Sheets("SHEETS1").Cells(y, 2)
TextBox2.Text = Sheets("SHEETS1").Cells(y, 3)
TextBox3.Text = Sheets("SHEETS1").Cells(y, 4)
TextBox4.Text = Sheets("SHEETS1").Cells(y, 5)
TextBox5.Text = Sheets("SHEETS1").Cells(y, 6)
TextBox6.Text = Sheets("SHEETS1").Cells(y, 7)
TextBox7.Text = Sheets("SHEETS1").Cells(y, 8)
TextBox8.Text = Sheets("SHEETS1").Cells(y, 9)
TextBox9.Text = Sheets("SHEETS1").Cells(y, 10)
TextBox10.Text = Sheets("SHEETS1").Cells(y, 11)
TextBox11.Text = Sheets("SHEETS1").Cells(y, 12)
TextBox12.Text = Sheets("SHEETS1").Cells(y, 13)
TextBox13.Text = Sheets("SHEETS1").Cells(y, 14)
TextBox14.Text = Sheets("SHEETS1").Cells(y, 15)
TextBox15.Text = Sheets("SHEETS1").Cells(y, 16)
End If
Next y
End Sub
Sir sale aur purchase ki entry karte samay runtime error a raha hai kaise theek Karen
Plz same porblom i cant do plzz hindi languages
Hi Tulsi, please share your code at exceldestination@gmail.com.......I will try to resolve the issue. Thanks
Hey I am a small dhout on this topics
The Video You Sent me not Solve My Problem, Please Do You Solve My Problem
send me your file at exceldestination@gmail.com I will try to respond with solution.
Que mierda todo esto