sharper092
New Member
- Joined
- Jun 11, 2016
- Messages
- 2
[TABLE="width: 384"]
<colgroup><col width="64" style="width:48pt" span="6"> <tbody>[TR]
[TD="width: 64, bgcolor: transparent"]name[/TD]
[TD="width: 64, bgcolor: transparent"]address[/TD]
[TD="width: 64, bgcolor: transparent"]ph[/TD]
[TD="width: 64, bgcolor: transparent"]em[/TD]
[TD="width: 64, bgcolor: transparent"]top don[/TD]
[TD="width: 64, bgcolor: transparent"]bldg fund[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]jane[/TD]
[TD="bgcolor: transparent"]aa[/TD]
[TD="bgcolor: transparent"]b[/TD]
[TD="bgcolor: transparent"]c[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]john[/TD]
[TD="bgcolor: transparent"]bb[/TD]
[TD="bgcolor: transparent"]d[/TD]
[TD="bgcolor: transparent"]e [/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"]y[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]her[/TD]
[TD="bgcolor: transparent"]dd[/TD]
[TD="bgcolor: transparent"]h[/TD]
[TD="bgcolor: transparent"]i[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]jane[/TD]
[TD="bgcolor: transparent"]aa[/TD]
[TD="bgcolor: transparent"]b[/TD]
[TD="bgcolor: transparent"]c[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]john[/TD]
[TD="bgcolor: transparent"]bb[/TD]
[TD="bgcolor: transparent"]d[/TD]
[TD="bgcolor: transparent"]e [/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"]y[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]her[/TD]
[TD="bgcolor: transparent"]dd[/TD]
[TD="bgcolor: transparent"]h[/TD]
[TD="bgcolor: transparent"]i[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
</tbody>[/TABLE]
I am trying to use the above table as sheet one, and if there is a y in top don in col E then I want the entire row to go to sheet 2 (topdonor), and whenever I change, add or delete from sheet one, (adding or removing individual) sheet 2 will automatically update without duplicating
Private Sub CommandButton1_Click()
x = 2
Do While Cells(x, 1) <> ""
If Cells(x, 1) = "y" Then
Worksheets("main").Rows(x).Copy
Worksheets("topdonor").Activate
eRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("topdonor").Rows(eRow)
End If
Worksheets("main").Activate
x = x + 1
Loop
End Sub
<strike></strike>
<colgroup><col width="64" style="width:48pt" span="6"> <tbody>[TR]
[TD="width: 64, bgcolor: transparent"]name[/TD]
[TD="width: 64, bgcolor: transparent"]address[/TD]
[TD="width: 64, bgcolor: transparent"]ph[/TD]
[TD="width: 64, bgcolor: transparent"]em[/TD]
[TD="width: 64, bgcolor: transparent"]top don[/TD]
[TD="width: 64, bgcolor: transparent"]bldg fund[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]jane[/TD]
[TD="bgcolor: transparent"]aa[/TD]
[TD="bgcolor: transparent"]b[/TD]
[TD="bgcolor: transparent"]c[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]john[/TD]
[TD="bgcolor: transparent"]bb[/TD]
[TD="bgcolor: transparent"]d[/TD]
[TD="bgcolor: transparent"]e [/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"]y[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]her[/TD]
[TD="bgcolor: transparent"]dd[/TD]
[TD="bgcolor: transparent"]h[/TD]
[TD="bgcolor: transparent"]i[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]jane[/TD]
[TD="bgcolor: transparent"]aa[/TD]
[TD="bgcolor: transparent"]b[/TD]
[TD="bgcolor: transparent"]c[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]john[/TD]
[TD="bgcolor: transparent"]bb[/TD]
[TD="bgcolor: transparent"]d[/TD]
[TD="bgcolor: transparent"]e [/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"]y[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]her[/TD]
[TD="bgcolor: transparent"]dd[/TD]
[TD="bgcolor: transparent"]h[/TD]
[TD="bgcolor: transparent"]i[/TD]
[TD="bgcolor: transparent"]y[/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
</tbody>[/TABLE]
I am trying to use the above table as sheet one, and if there is a y in top don in col E then I want the entire row to go to sheet 2 (topdonor), and whenever I change, add or delete from sheet one, (adding or removing individual) sheet 2 will automatically update without duplicating
Private Sub CommandButton1_Click()
x = 2
Do While Cells(x, 1) <> ""
If Cells(x, 1) = "y" Then
Worksheets("main").Rows(x).Copy
Worksheets("topdonor").Activate
eRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("topdonor").Rows(eRow)
End If
Worksheets("main").Activate
x = x + 1
Loop
End Sub
<strike></strike>