Latest Posts From Rifat Hassan
In this article, we'll demonstrate how to remove duplicates from an array using Excel VBA code. VBA Code Quick View Sub Remove_Duplicates_from_Array() ...
Rifat Hassan
Here's a quick overview of the code that assigns random numbers. Sub Random_Numbers_with_Rnd() Bottom = 11 Top = 20 Random_Number = ...
In this article, we'll demonstrate how to add a hyperlink to a cell in another sheet using VBA in Excel. Excel VBA: Add Hyperlink to Cell in Another ...
Get Cell Value by Row and Column in Excel VBA (Quick View) Sub Cell_Value_from_Whole_Worksheet() Value = Worksheets("Sheet1").Cells(7, 3) MsgBox Value ...
In this article, we'll demonstrate how to pull data from multiple worksheets into one worksheet with Visual Basic of Applications (VBA) in Excel. Code ...
In this article, we will demonstrate how to use Excel VBA to iterate through each row in a range effectively, where the rows contain either single or multiple ...
In this article, we will describe how to sort multiple columns of a table using VBA in Excel, based on both a single column and multiple columns. Sort ...
Quick View Sub Insert_Single_Image() Image_Name = "Argentina" Image_Location = "E:\ExcelDemy\National Flags" Image_Format = ".png" Cell_Reference = ...
Quick View: Sub Drop_Down_List_Unique_Values_At_Least_Once() List_Location = "B3" Data = Range(List_Location).Validation.Formula1 Data = Split(Data, ...
Overview of the Code Sub Number_of_Values_that_Appear_Only_Once_1() Set Rng = Range("C4:C15") Count = 0 For i = 1 To Rng.Rows.Count If ...
In this article, we'll discuss how to use Excel VBA to insert a formula with relative cell references in a single cell or a range of cells. Excel VBA to ...
Method 1 - Run a VBA Macro to Delete a Row If the Cell Is Blank in a Single Column with Excel VBA We'll develop a Macro that’ll delete rows with blank cells ...
Method 1 - Copy Only Values to Destination with the PasteSpecial Method of Excel VBA ⧪ Step 1: Activating the Source Worksheet The 1st step that we need to ...
Reason 1 - Accessing PasteSpecial Method without Copying Anything The most common reason for this error is attempting to use the PasteSpecial method without ...
Example 1: Developing a Macro to Concatenate string (s) and variable (s) in Excel VBA Here’s a dataset with book names, authors, and prices from a bookshop ...
- « Previous Page
- 1
- 2
- 3
- 4
- 5
- …
- 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?