Latest Posts From Rifat Hassan
Here's an overview of the NETWORKDAYS.INTL function with different settings. Excel NETWORKDAYS.INTL Function: Syntax & Arguments Summary ...
Rifat Hassan
Introduction to the DATE Function Function Objective: The DATE function creates a date from numeric values in the arguments. Syntax: ...
This is an overview: Method 1 -Using the SORT Function 1.1 Sorting in Ascending Order Select a blank cell. Enter the ...
Download Practice Workbook Download the workbook. Sum Using OFFSET and MATCH Functions.xlsx The sample dataset showcases the sales record of ...
Excel FILTER Function: Overview We have the years, the host countries, the champion countries, and the runners-up countries of all the FIFA World Cups in ...
We'll use a dataset with student Names and marks in Physics, Chemistry and History. Note that this article uses Excel 365. Some functionalities may be missing ...
Download the Practice Workbook Sum Top n Values.xlsx 3 Methods to Sum Top N Values in Excel Let’s sum up the top 5 sales from January in the ...
In the example below we have the list of all the FIFA World Cups from 1930 to 2018. We have the Year in Column B, the Host Country in Column C, the Champion ...
Method 1 - Find Duplicates in the Same Row but Different Columns to Compare Rows for Duplicates Option 1 - Decide in a New Column to Show Duplicates for the ...
Consider the date: 2-May-19. To automate the dates with rolling months: Method 1 - Create Automatic Rolling Months Using the Fill Handle ...
The sample dataset showcases the Annual Examination Record of a school named The Rose Valley Kindergarten, Student Names in column B and their marks in ...
Method 1 – Number of Occurrences of a Particular Date 1.1 Using the COUNTIF Function Steps: Select cell E5. Enter the following formula: ...
We have a record of student IDs and names. We want to extract the unique values. Method 1 - Extract Unique Values from Multiple Columns with Array ...
The dataset showcases students' average marks. Method 1 - Applying the ROUND Function to Round Numbers to the Nearest Multiple of 5 Steps: ...
Let us have a look at this data set. We have the Combined Data of some students. We have two separate columns, C and D, where we want to extract the ...
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?