Macro for adding rows if two different columns have a value
 

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

Macro for adding rows if two different columns have a value
 

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" wrote in message
...
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

Macro for adding rows if two different columns have a value
 

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" wrote in message
...
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


.

Macro for adding rows if two different columns have a value
 

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" wrote in message
...
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


.