Select choosen rows

[gosuansa]

Hello MrExcel,
I have data in Range("A1:C100000"). In column A I have number accounts and I would like to have macro which select all (not filter) this rows which fullfilled conditions.
Thanks a lot for your help.


Best regards
Robert

 

[My Aswer Is This]

Not that I know of.

How many rows do you want inserted?
We only know what you tell us.

 

[gosuansa]

8 rows

 

[My Aswer Is This]

Try this:

Sub add_rows()
'Modified 6/11/18 2:00 PM EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim accnum As String
accnum = InputBox("Enter account number")
For i = Lastrow To 2 Step -1
    If Cells(i, 1).Value = accnum Then Rows(i).Resize(8).Insert
Next
Application.ScreenUpdating = True
End Sub

 

[gosuansa]

Thx a lot for your help it works very good.

I have line of code:

Range("1:5,15:19,25:29,35:39").select


is it possible to select array when we change variable, for example:

i=5

so

Range("i:i+4,i+10:i+14,i+20:i+24,i+30:i+34").select

?

Try this:

Sub add_rows()
'Modified 6/11/18 2:00 PM EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim accnum As String
accnum = InputBox("Enter account number")
For i = Lastrow To 2 Step -1
    If Cells(i, 1).Value = accnum Then Rows(i).Resize(8).Insert
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

I'm assuming I answered your question and now you have a second question. Not sure i understand your new question.