Add More Rows

[arnapsui]

Hi

I have an employee list with Employee ID in Column-A starting from A3onwards. A2 has the Field Name "Employee ID".

Now, I want to have VBA coding to add number of rows to be added under each employee number where the number of rows are entered in A1 and to be filled with the Emplyee ID till the row above where the second employee ID starts. This should be same for all employee ID in that list.

Can anyone help me to do this?

Thanks

 

[Dazzawm]

Can you provide a sample, it will explain it more.

 

[arnapsui]

Column A
A1 - To enter number for number of rows
A2 - Filed Name "Employee Code"
A3 till A100 for example have employee codes (lets assume that A2 has the code 1111 and A2 has 2222 and A3 has 5765 so on till A100)

I want 30 rows, for instance, from A2 till A32 which filled with 1111. Then, from A33 till A63 filled with 2222 so on.

I hope this will make you to get a picture of the question. I have no idea how to submit an excel sheet in this forum.

Please get back to me if you have any questions and Can you help me to submit my excel sheet in this forum?

Thanks your consideration.

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG17Jul56
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] RwNum [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
RwNum = Range("A1")
Lst = Range("A" & Rows.Count).End(xlUp).Row
[COLOR="Navy"]For[/COLOR] Rw = Lst To 3 [COLOR="Navy"]Step[/COLOR] -1
    [COLOR="Navy"]With[/COLOR] Range("A" & Rw)
       .EntireRow.Resize(RwNum - 1).Insert
       .Offset(-RwNum + 1).Resize(RwNum) = .Value
    [COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] Rw
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick