LinkBack URL
About LinkBacks
I have attached a workbook that I need to copy the data from worksheet WIP A2:F2 and copy it into next available row in worksheet April starting @ column B. The rows that are greyed out are non working days and need to be skipped.
I have attached a workbook that I need to copy the data from worksheet WIP A2:F2 and copy it into next available row in worksheet April starting @ column B. The rows that are greyed out are non working days and need to be skipped.
Sub Macro1() LR = Sheets("April").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("April").Range("A" & LR).Value = Format(Now, "dd/mm/yyyy") Sheets("April").Range("B" & LR & ":G" & LR).Value = Sheets("WIP").Range("A2:F2").Value End Sub
My General Rules if you want my help. Not aimed at any person in particular:
1. Please Make Requests not demands, none of us get paid here.
2. Check back on your post regularly. I will not return to a post after 4 days.
If it is not important to you then it definitely is not important to me.
Sub Burt() Dim r As Integer, Lastrow As Integer Lastrow = Sheets("April").Range("A" & Rows.Count).End(xlUp).Row For r = 9 To Lastrow 'MsgBox Sheets("April").Cells(r, "B").Interior.Color If Sheets("April").Cells(r, "B").Interior.Color <> 10921638 Then Sheets("WIP").Range("A2:F2").Copy Sheets("April").Range("B" & r) End If Next r End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks