If sheet1 has an x in column S

copy sheet1 entire row to next blank row in sheet 6

hi,

Sub test()
Dim sh1 As Sheets, sh2 As Sheets, n As Long, i As Long, rw As Long
Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet6")

n = 20 '------------------------- may be adapt to Cells(sh1.Rows.Count,
1).End(xlUp).Row

For i = 1 To n
If sh1.Cells(i, 19) = "x" Then
rw = Cells(sh2.Rows.Count, 1).End(xlUp).Row + 1
sh1.Rows(i).Copy sh2.Cells(rw, 1)
End If
Next
End Sub

isabelle

Le 2015-04-10 23:13, a écrit :
If sheet1 has an x in column S

copy sheet1 entire row to next blank row in sheet 6

Live chat - Create and design free live chat box php embed iframe html source code for your website forum blog wap without advertisement.

Sim Đoàn Viên Giá Rẻ
Cơ hội cho bạn tiết kiệm tiền điện thoại một cách hợp lý. Là làm sim sinh viên và sim đoàn viên!
liên hệ 0903.636.838 or 0906.904.888
DC: p3010CT10A chung cư Đại Thanh
Nhận chuyển sim thường sang sim SINH VIÊN, đoàn viên KHÔNG CẦN THẺ SINH VIÊN 3 mạng chính Uy tín và Đảm bảo. Chuyên đại lý và khách hàng thn quen. Cam kết có giá tốt nhất nếu làm số lượng.
✔ Viettel x 200 k ...Xem thêm


[center]https://scontent-dfw.xx.fbcdn.net/hp...e1&oe=55A23F97[url=https://www.facebook.com/simsinhviengiare.vn][b]Sim Sinh Viên Mobi Giá Rẻ

sim sinh vien gia re
[size=3][color=#141823]SIM SINH VIÊN GIÁ RẺ
SIM ĐOÀN VIÊN GIÁ RẺ
SIM SINH VIÊN VIETTEL GIÁ RẺ
SIM SINH VIÊN MOBIFONE GIÁ RẺ
SIM SINH VIÊN VINAPHONE GIÁ RẺ...Xem thêm


[center]https://scontent-dfw.xx.fbcdn.net/hp...e1&oe=55A23F97[url=https://www.facebook.com/simsinhviengiare.vn][b]Sim Sinh Viên Viettel Giá Rẻ