Add Data Entry Queries to VBA Code

Hi,

I have the VBA code below which inserts a blank row above rows in a particular column when a value is in the code.

Sub InsertRow()
Dim Lastrow As Long
Dim I As Long
Application.ScreenUpdating = False
Lastrow = Range("AQ" & Rows.Count).End(xlUp).Row
I = 1
While I <= Lastrow
If (Len(Cells(I, "AQ")) <> Len(Replace(Cells(I, "AQ"), "N", ""))) Then
Rows(I & ":" & I).Insert Shift:=xlDown
I = I + 1
End If
I = I + 1
Lastrow = Range("AQ" & Rows.Count).End(xlUp).Row
Wend
Application.ScreenUpdating = True
End Sub

So in this case when Insert is in a cell in column AQ in adds in a blank row above that cell.

I want to adapt is to i can add it as a button so the tow important bits of information, the column and the text in the cell are asked for in a pop up to enter for the macro to run.

Hope that makes sense. Thank you in advance.

Kind Regards,

Heath

Hi,
Thank you for your reply.

It doesn't work quite how its supposed to.

1) It is inserting a row above anything with the text string in it so if I use Insert and InsertNO in column H it adds a row above both. It needs to be specific to the text entered.
2) It also needs a 3rd question of how many rows you want to add, or how many times to run the macro.

Thank you for your time.

try

Please Login or Register  to view this content.

Thank you so much, this works great.