Hi All
I am considering of arranging my code so the output is different. The code I have at the minute (Below) is extracting data from multiple spreadsheet copying to summary sheet.
Code is:
The current layout is:
I was wondering what I would have to do to edit the code so it would look like this:
This would be really really helpful, and I would really appreciate anybody help...
Thanks in advance.
Andrew
I am considering of arranging my code so the output is different. The code I have at the minute (Below) is extracting data from multiple spreadsheet copying to summary sheet.
Code is:
Code:
Then 'If there is entry in col F to L or N to S copy the row to Summary
lRowTo = lRowTo + 1 'last used row in the summary +1
With wsSumm ' the copy
.Rows(lRowTo).Value = WS.Rows(R).Value
.Cells(lRowTo, "A").Value = "Week " & sWeeks(iWeekPtr)
End With
Else
End If
Else
End If
Next R
LogEntry ExcelFile:=Filenm, _
Week:="Week " & sWeeks(iWeekPtr), _
Message:="PROCESSED"
End If
Else
lRowTo = lRowTo + 1
With wsSumm
.Cells(lRowTo, "A").Value = "Week " & sWeeks(iWeekPtr)
.Cells(lRowTo, "B").Value = "NOT FOUND"
End With
LogEntry ExcelFile:=Filenm, _
Week:="Week " & sWeeks(iWeekPtr), _
Message:="NOT FOUND"
End If
Next iWeekPtr
.DisplayAlerts = False
ActiveWorkbook.Close
.DisplayAlerts = True
End With
End If
End If
Next I
With Application
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
End SubThe current layout is:
I was wondering what I would have to do to edit the code so it would look like this:
This would be really really helpful, and I would really appreciate anybody help...
Thanks in advance.
Andrew
