Related:
- Copying text to different sheets based on criteria
- If cell contains (multiple text criteria) then return (corresponding text criteria) ✓ - Excel Forum
- Excel macro to create new sheet based on value in cells - Guide
- Transfer data from one excel worksheet to another automatically based on criteria ✓ - Excel Forum
- Vba code to move rows to another sheet based on criteria ✓ - Excel Forum
- Google sheet right to left - Guide
1 response
Giedrius
Posts
1
Registration date
Thursday July 2, 2015
Status
Member
Last seen
July 2, 2015
Jul 2, 2015 at 09:49 AM
Jul 2, 2015 at 09:49 AM
Hello try to make this simple macro:
Sub copyDone()
Set i = Sheets("Sheet1")
Set done = Sheets("done")
Dim d
Dim j
d = 1
j = 2
Do Until IsEmpty(i.Range("B" & j))
If i.Range("B" & j) = "Done" Then
d = d + 1
done.Rows(d).Value = i.Rows(j).Value
End If
j = j + 1
Loop
Sub copyDone()
Set i = Sheets("Sheet1")
Set done = Sheets("done")
Dim d
Dim j
d = 1
j = 2
Do Until IsEmpty(i.Range("B" & j))
If i.Range("B" & j) = "Done" Then
d = d + 1
done.Rows(d).Value = i.Rows(j).Value
End If
j = j + 1
Loop
Jul 2, 2015 at 10:36 AM
Any other ideas, although maybe I didn't run the macro properly - have never done that before.