Hello, currently I use the following code which is doing it's job, but when I add rows in 'XF' for example, it doesn't update this automatically to the spreadsheet 'Workflow'
I have to delete everything inside the 'Workflow' now and then let the code run again so it also adds the new rows.
Is an automated proces possible?
Sub mike()
Dim nextrow As Long, i As Long, ws As Variant
nextrow = Sheets("Workflow").Range("A" & Rows.Count).End(xlUp).Row + 1
'Application.ScreenUpdating = False
For Each ws In Array("LF", "CF", "XF", "XG", "XG+")
For i = 6 To 75
If Sheets(ws).Cells(i, 15).Value > 0 Then
Sheets(ws).Cells(i, 15).EntireRow.Copy Sheets("Workflow").Cells(nextrow, 1)
nextrow = nextrow + 1
End If
Next i
Next ws
'Application.ScreenUpdating = True
End Sub
I have to delete everything inside the 'Workflow' now and then let the code run again so it also adds the new rows.
Is an automated proces possible?
Sub mike()
Dim nextrow As Long, i As Long, ws As Variant
nextrow = Sheets("Workflow").Range("A" & Rows.Count).End(xlUp).Row + 1
'Application.ScreenUpdating = False
For Each ws In Array("LF", "CF", "XF", "XG", "XG+")
For i = 6 To 75
If Sheets(ws).Cells(i, 15).Value > 0 Then
Sheets(ws).Cells(i, 15).EntireRow.Copy Sheets("Workflow").Cells(nextrow, 1)
nextrow = nextrow + 1
End If
Next i
Next ws
'Application.ScreenUpdating = True
End Sub