Fill New Row

itsmattatv · May 10th 2021

Need to fill the newly created rows with a color. The VBA below is what I have set to insert a new row between data that I highlight. Need this row filled. Thank you to anyone that can help

Sub InsertAlternateRows()

'This code will insert a row after every row in the selection

'This code has been created by Matta

Dim rng As Range

Dim CountRow As Integer

Dim i As Integer

Set rng = Selection

CountRow = rng.EntireRow.Count

For i = 1 To CountRow

ActiveCell.Offset(1, 0).EntireRow.Insert

Range("C" & ActiveCell.Offset(1, 0).Row).Value = Range("C" & ActiveCell.Offset(0, 0).Row).Value

ActiveCell.Offset(1, 3).Value = ActiveCell.Offset(-2, 3).Value

ActiveCell.Offset(1, 4).Value = ActiveCell.Offset(-2, 4).Value

Range("F" & ActiveCell.Offset(1, 0).Row).Value = Range("F" & ActiveCell.Offset(0, 0).Row).Value

ActiveCell.Offset(1, 10).Value = ActiveCell.Offset(0, 10).Value

ActiveCell.Offset(1, 11).Value = ActiveCell.Offset(0, 11).Value

ActiveCell.Offset(1, 12).Value = ActiveCell.Offset(0, 12).Value

ActiveCell.Offset(1, 13).Value = ActiveCell.Offset(0, 14).Value

ActiveCell.Offset(1, 19).Value = ActiveCell.Offset(0, 19).Value

ActiveCell.Offset(1, 20).Value = ActiveCell.Offset(0, 21).Value

ActiveCell.Offset(1, 22).Value = ActiveCell.Offset(0, 22).Value

ActiveCell.Offset(1, 23).Value = ActiveCell.Offset(0, 23).Value

ActiveCell.Offset(2, 0).Select

Next i

End Sub

Logit · May 10th 2021

Code

Sub InsertAlternateRows()

'This code will insert a row after every row in the selection

'This code has been created by Matta

Dim rng As Range

Dim CountRow As Integer

Dim i As Integer

Set rng = Selection

CountRow = rng.EntireRow.Count



For i = 1 To CountRow

ActiveCell.Offset(1, 0).EntireRow.Insert

ActiveCell.Offset(1, 0).EntireRow.Interior.Color = vbYellow       '<<----- added this line

Range("C" & ActiveCell.Offset(1, 0).Row).Value = Range("C" & ActiveCell.Offset(0, 0).Row).Value

ActiveCell.Offset(1, 3).Value = ActiveCell.Offset(-2, 3).Value

ActiveCell.Offset(1, 4).Value = ActiveCell.Offset(-2, 4).Value

Range("F" & ActiveCell.Offset(1, 0).Row).Value = Range("F" & ActiveCell.Offset(0, 0).Row).Value

ActiveCell.Offset(1, 10).Value = ActiveCell.Offset(0, 10).Value

ActiveCell.Offset(1, 11).Value = ActiveCell.Offset(0, 11).Value

ActiveCell.Offset(1, 12).Value = ActiveCell.Offset(0, 12).Value

ActiveCell.Offset(1, 13).Value = ActiveCell.Offset(0, 14).Value

ActiveCell.Offset(1, 19).Value = ActiveCell.Offset(0, 19).Value

ActiveCell.Offset(1, 20).Value = ActiveCell.Offset(0, 21).Value

ActiveCell.Offset(1, 22).Value = ActiveCell.Offset(0, 22).Value

ActiveCell.Offset(1, 23).Value = ActiveCell.Offset(0, 23).Value

ActiveCell.Offset(2, 0).Select



Next i



End Sub

Display More

**royUK** · May 11th 2021

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

**royUK** · May 11th 2021

You can color alternate rows using Conditional Formatting or Format the data as a Table and choose a design that you want

Fill New Row

Participate now!

Share