Macro for moving data to another worksheet
Solved/Closed
Related:
- Move completed tasks in excel
- Transfer data from one excel worksheet to another automatically - Guide
- How to copy data from one excel sheet to another ✓ - Excel Forum
- Hosted app data ✓ - Google Chrome Forum
- Tmobile data check - Guide
- How to reset safe folder password without losing data ✓ - Android Forum
2 responses
rizvisa1
Posts
4478
Registration date
Thursday 28 January 2010
Status
Contributor
Last seen
5 May 2022
766
9 Dec 2011 à 11:00
9 Dec 2011 à 11:00
Most easy approach would be that
you have a column that keeps the status. When ever you are ready
you can fillter the sheet on "complete" status
copy all the visible rows to other sheet
delete all the visible rows
you have a column that keeps the status. When ever you are ready
you can fillter the sheet on "complete" status
copy all the visible rows to other sheet
delete all the visible rows
11 Dec 2011 à 03:42
However what I was looking for is a macro enabled worksheet where I can maintain a log of my tasks (both completed & pending). I've attempted to create a logic but the problem is that any new completed task overwrites the earlier completed items. Cannot figure a way out :-(
Code ->
Set m = Sheets("list of action items")
Set n = Sheets("task completed")
Dim d
Dim j
d = 4
j = 5
Do Until IsEmpty(m.Range("J" & j))
If m.Range("J" & j) = "Completed" Then
d = d + 1
n.Rows(d).Value = m.Rows(j).Value
End If
j = j + 1
Loop
Dim c As Range
Do: Set c = Cells.Find("Completed", LookIn:=xlValues)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
I shall be highly grateful if you can help in this regard.
Thanking you once again for your kind help!
Regards,
Nitin
12 Dec 2011 à 11:55
You need to know what is the first available row
you can have some thing like this
d = n.Cells(Rows.Count, "J").End(xlUp).Row
If (d < 4) Then d = 4
13 Dec 2011 à 03:14
Thank you so much rizvisa1....I'm indeed grateful for your valuable support.
Take care, Cheers!!!