Latest Posts From Rifat Hassan
Copying multiple sheets from one workbook to another manually is prone to errors and can become tedious with lots of sheets. In this article, we will provide ...
Rifat Hassan
We have a data set with the Names, Joining Dates, and Salaries of some employees. We'll insert new rows into the dataset. Method 1 - Using the ...
Suppose you have the following dataset: Method 1 - Using the Sort and Filter Feature Steps: Create a new column and insert 1 and 2 ...
Below is a dataset with the examination records of some school students. Our objective is to find the overall result of each student based on their results in ...
Here we’ve got a data set with the Names, IDs, Marks, and Grades of students in an examination of Sunflower Kindergarten. Our objective is to delete the ...
In the following dataset, we have the Student Name, Marks, and Grade columns. The names of some students have been repeated along with their marks and grades. ...
Here we’ve got a data set with the Names and Joining Dates of some employees. We'll fill the Employee IDs up to the last row automatically. Method 1 ...
We’re going to use a Customer Record of Mars Group. This sample dataset includes some Product Names and Contact Addresses of the Customers who bought the ...
There are 2 worksheets: Sheet1 and Sheet2. In Sheet1, you have students' marks in Physics. In Sheet2, students' marks in Chemistry . Create a ...
We have a worksheet called Sheet1 with the names of some students and their marks. We will add hyperlinks to this sheet in another worksheet of the same ...
Method 1 - Using Edit Links Feature to Remove External Links from Cells Steps: Go to the Data tab. From the Queries & Connections group ...
Method 1 - Combine SEARCH, ISNUMBER, and IF Functions to Find Text in Cell Steps: Select cell C5. Write down the following formula in the cell. ...
Here we have a data set with the sales record of some products for some years in a company. We'll enter values inside the row called Product No. to number the ...
To demonstrate how to use the concatenate function, we will use a dataset with the First Name, Middle Name, and Last Name columns. We will apply ...
We’ve got a dataset with the Product ID and Product Name of some products of a company named Mars Group. The values are stored in the Cell range B5:C9. We'll ...
- « Previous Page
- 1
- …
- 5
- 6
- 7
- 8
- 9
- …
- 12
- Next Page »
See Our Reviews at
Hi Tim, thank you for your valuable response. You can declare the variables this way:
Dim File_Dialog as FileDialog
Set File_Dialog = Application.FileDialog(msoFileDialogFolderPicker)
Dim Sheet_Names(2) as Variant
Sheet_Names(0)=”Sheet1″
Sheet_Names(1)=”Sheet2″
Sheet_Names(2)=”Sheet3″
Dim New_File(2) as Variant
New_File(0)=”New_Sheet1″
New_File(1)=”New_Sheet2″
New_File(2)=”New_Sheet3″
But declaring variables beforehand is not mandatory in VBA. You can directly assign values to them as mentioned in the given codes.
Hi Nico,
Thanks for your response. You can use the FILTER function of Excel for your problem. Check this article for details https://www.exceldemy.com/excel-filter-multiple-criteria/.
Hi Veronika, if your problem isn’t solved yet, you can send the file to my mail or can send an image of your file. I’ll try.
Hi Arjun, the codes are absolutely flawless and there is no reason for them to not work properly. Did you insert the inputs correctly?
Hi Luis,
Thank you for your response. Hope this comes in handy for more people like you.
Hello Sam,
Thank you Sam for your response. It’s working fine now. Thank you again.
Hi Mohammed, Thanks for your response. Insert the name of the text and the color code in the 2nd and 3rd lines of the codes directly.
Hi Man, Thanks in advance. Can you please tell me where exactly the bug is? I have run the code in every way possible and there evolves no error. I think you couldn’t enter the inputs properly. Please go through the article again and then try. If it still doesn’t work, please tell me what exactly the error is.
Hi Dennis,
Thanks for your response. To skip the table name, first, remove the 4th line of the code, that is, Table_Name = InputBox(“Enter the Name of the Table: “).
Then enter the name of the table within the 6th line of the code. For example, if the name of your table is “Table1”, then the line should be: Set tbl = ws.ListObjects(“Table1”).
So the complete code will be:
Sub Add_Empty_Row()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects(“Table1”)
tbl.ListRows.Add
End Sub
I think the problem lies in the apostrophes. Use this code instead of yours. It works fine for me.
Sub InsertRowsfromUserInput()
Dim iRow As Long
Dim iCount As Long
Dim i As Long
iCount = InputBox(Prompt:=”How Many Rows to Insert?”)
iRow = InputBox _
(Prompt:=”Where to Insert New Rows? (Enter the Row Number)”)
For i = 1 To iCount
Rows(iRow).EntireRow.Insert
Next i
End Sub
If it still doesn’t work, after pasting the code in the VBA editor, change the apostrophes of the 5th and 7th lines manually. Hope it will work then.
Thank you Ana. It’s difficult to give any suggestions without having a glance at the workbook. Would you please kindly share your workbook with me?