Em nhờ viết code paste dữ liệu qua vùng ẩn!

tranhungdao12a3 · Đăng lúc 10/8/2013 09:08

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Em có vấn đề khó khăn nhờ anh FuBi và anh chị giỏi VBA giúp em với:
TH1: Em muốn copy dữ liệu trong vùng H4:O9 rồi paste sang vùng P14:W21 trong đó vùng P14:W21 có 2 dòng ẩn là dòng 17 và 19 đây là 2 dòng mà em muốn paste dữ liệu bỏ qua

Đăng nhập/Đăng ký mở rộng

fubi · Đăng lúc 10/8/2013 19:54

trungxd7 gửi lúc 10/8/2013 16:16

Đăng nhập/Đăng ký mở rộng

mình cũng đang cần biết cái này, ai biết giúp mọi ngươi với

Sub Paste_to_Visible_Rows()
Dim Nguon As Range, Dich As Range
Dim i As Long, r As Long
Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8)
Set Dich = Application.InputBox(prompt:="Chep Den: (luu y: chi chon 1 o dau tien cua vùng can dán nhé: ", Type:=8)
For i = 1 To Nguon.Rows.Count
Do Until Not Dich.Offset(r).Rows.Hidden
r = r + 1
Loop
Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
r = r + 1
Next i
End Sub

Sao chép mã

Nho+Viet+Code.xls (157 KB, Lượt tải về: 1315)

trungxd7 · Đăng lúc 11/8/2013 07:35

thế cho em hỏi cả hàng và cả cột thì tính sao đây anh fubi ạ

tranhungdao12a3 · Đăng lúc 12/8/2013 08:55

Tình hình là dòng ẩn thì được rồi nhưng cột ẩn nó vẫn paste qua anh Fubi ah!
Có thể paste qua vùng ẩn bao gồm cả dòng và cột không anh?

laotuviet · Đăng lúc 5/10/2013 15:57

Rất hay, cảm ơn anh fubi,
Mình đã biết thêm 1 code hữu ích

vantu_gtvt · Đăng lúc 1/12/2014 05:49

cảm ơn @fubi nhiều .
nhưng cột ẩn vận không được anh ak .
anh có thể chỉ giáo thêm không ?

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

Em nhờ viết code paste dữ liệu qua vùng ẩn!

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Đánh giá

Em nhờ viết code paste dữ liệu qua vùng ẩn!

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Cảm ơn!

Đánh giá

Đánh giá