From: Saveset on
Help! I need a macro to add a row after if the cell in column F has a value
and again if there is a value in column G
From: JLGWhiz on
For Each c In Range("F2:F20") 'Or whatever size range
If c.Value > "" And c.Offset(0, 1).Value > 1 Then
c.Offset(1, 0).Resize(2, 1).EntireRow.Insert
ElseIf c.Value > "" Then
c.Offset(1, 0).EntireRow.Insert
End If
Next




"Saveset" <Saveset(a)discussions.microsoft.com> wrote in message
news:B1540E15-7738-4AB4-A0A9-BCC0014DADF7(a)microsoft.com...
> Help! I need a macro to add a row after if the cell in column F has a
> value
> and again if there is a value in column G


From: Saveset on
Thank you JLGWhiz! You are a Time saver for me! Also I appreciate the help
since I am just learning about the VBA process.

"JLGWhiz" wrote:

> For Each c In Range("F2:F20") 'Or whatever size range
> If c.Value > "" And c.Offset(0, 1).Value > 1 Then
> c.Offset(1, 0).Resize(2, 1).EntireRow.Insert
> ElseIf c.Value > "" Then
> c.Offset(1, 0).EntireRow.Insert
> End If
> Next
>
>
>
>
> "Saveset" <Saveset(a)discussions.microsoft.com> wrote in message
> news:B1540E15-7738-4AB4-A0A9-BCC0014DADF7(a)microsoft.com...
> > Help! I need a macro to add a row after if the cell in column F has a
> > value
> > and again if there is a value in column G
>
>
> .
>
From: Saveset on
Thanks! This did exactly what I needed!!! I truely appreciate this since I am
just beginning to learn about Macros!

"JLGWhiz" wrote:

> For Each c In Range("F2:F20") 'Or whatever size range
> If c.Value > "" And c.Offset(0, 1).Value > 1 Then
> c.Offset(1, 0).Resize(2, 1).EntireRow.Insert
> ElseIf c.Value > "" Then
> c.Offset(1, 0).EntireRow.Insert
> End If
> Next
>
>
>
>
> "Saveset" <Saveset(a)discussions.microsoft.com> wrote in message
> news:B1540E15-7738-4AB4-A0A9-BCC0014DADF7(a)microsoft.com...
> > Help! I need a macro to add a row after if the cell in column F has a
> > value
> > and again if there is a value in column G
>
>
> .
>