If Statement..i think
Hello
I don't think I have had a response to my question to, so I'd like to kindly
ask you again.
I have used your code which works great, but id like to take it a little bit
further and was wondering if you can help me?
I want to:
1) How can i get the row in sheet one to get deleted once it has been copied
over to sheet 7?
2) Any new rows that are populated in the sheet 1, id like for it to be
added to a new row in sheet 7, an not over write the rows already in sheet 7.
Please let me know if you can help me with either of my queries.
Thanking you in advance.
Here is the code which I have:
Sub Macro()
'Sheet1 .....all data..
'Sheet7......contains filtered data
Dim i, j, n As Integer
j = 1
Sheet1.Activate
For i = 1 To Sheet1.UsedRange.Rows.Count
If (Cells(i, 8) = "Complete") Then
For n = 1 To Sheet1.UsedRange.Columns.Count
Sheet7.Cells(j, n) = Sheet1.Cells(i, n)
Next n
j = j + 1
End If
Next i
End Sub
"aamerrasheed" wrote:
Hi,
You can use this...
Sub Macro()
'Sheet3 .....all data..
'Sheet2......contains filtered data
Dim i, j, n As Integer
j = 1
Sheet3.Activate
For i = 1 To Sheet3.UsedRange.Rows.Count
If (Cells(i, 8) = "Complete") Then
For n = 1 To Sheet3.UsedRange.Columns.Count
Sheet2.Cells(j, n) = Sheet3.Cells(i, n)
Next n
j = j + 1
End If
Next i
End Sub
zak wrote:
Yes a drop down list with two options; Complete or Pending..as in the one you
can create via Data - Data Validation - Allow: List
Drop down?
[quoted text clipped - 12 lines]
Thank you
|