Related:
- Copying text to different sheets based on criteria
- Sheets right to left - Guide
- Protect pdf from copying - Guide
- Excel macro to create new sheet based on value in cells - Guide
- We couldn't find an account matching the login info you entered, but found an account that closely matches based on your login history ✓ - Facebook Forum
- Based on the values in cells b77 b81 c77 - Excel Forum
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.