Autocopy row based on whether the cell in a certain column is Closed

Question

Hello, 

I have a detailed aging report that I am attempting to create monthly tabs in. Basically what I need is a macro that will auto paste the entire row into another sheet in the same workbook based on whether the cell in said column are blank.

I can forward the workbook to you for reference if you need me to. 


thanks
crystal


Configuration: Windows 7 / Mozilla 11.0

TrowaD · Answer

Hi Crystal,

Adjust the code below to match situation:
Code line 5: This is the sheet with all the data.
Code line 6: This is the column with possible blanks.
Code line 7: This is the destiantion sheet where the rows with blank are copied to.

Sub RunMe()
Dim Col_W_Blanks As Integer
Dim MySheet As Worksheet

Sheets("Sheet1").Select
Col_W_Blanks = Columns("B").Column - 1
Set MySheet = Sheets("Sheet2")

For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    If cell.Offset(0, Col_W_Blanks) = vbNullString Then
        cell.EntireRow.Copy MySheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next cell

End Sub

Best regards,
Trowa

crystalhill · Answer

I sent back my workbook via email and what I am attempting is to copy/paste all the cell under each month into the month labeled tabs

Autocopy row based on whether the cell in a certain column is

2 responses

Similar discussions

Subscribe To Our Newsletter!