Copy Paste Down Macro
This macro is awesome. Thank you for you're help. It works great!
"Per Jessen" wrote:
This should do it:
Sub FillBlankRows()
Dim BlankCell As Integer
Dim r As Long
Dim col As Long
For r = 3 To 100
For col = 1 To 7
If Cells(r, col).Value = "" Then
BlankCell = BlankCell + 1
End If
Next
If BlankCell = 7 Then
Range("A" & r - 1 & ":G" & r - 1).Copy Range("A" & r)
End If
BlankCell = 0
Next
End Sub
Hopes it helps
---
Per
"MCheru" skrev i meddelelsen
...
I am trying to create a macro that will search A3:G100 for blank rows.
When
a blank row is found, I want the macro to copy the contents in the cell
above
it A(blank):G (blank) and paste those contents in each blank row going
down
((A(blank):G (blank)) until the next row with contents is reached. Is
that
possible?
|