[Hỏi] Paste dữ liệu bỏ qua các cột cell đã ẩn

[nhatky102]

Chào tất cả mõi người .
mình vừa tìm được một code Paste dữ liệu bỏ qua các dòng cell đã ẩn như sau .

..............................................
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

........................................................


nhưng mình cần Paste dữ liệu bỏ qua các cột cell đã ẩn , mong mõi
người sửa giúp em.
em xin cảm ơn .

 

[Quang_Hải]

Chào tất cả mõi người .
mình vừa tìm được một code Paste dữ liệu bỏ qua các dòng cell đã ẩn như sau .

..............................................
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

........................................................


nhưng mình cần Paste dữ liệu bỏ qua các cột cell đã ẩn , mong mõi
người sửa giúp em.
em xin cảm ơn .

Đâu có cần phiền phức vậy. Bạn gởi file lên đi, bài này đơn giản mà

 

[nhatky102]

đây là vi dụ của mình nhé .

 

[Quang_Hải]

đây là vi dụ của mình nhé .

Với ví dụ này thì xài code này. Đoán chắc là thế nào cũng hỏi thêm gì đó.

Sub vidu()
Dim rng(), i, c
rng = Range("B6:G6").Value
For i = 1 To UBound(rng, 2)
   If Columns(i + 9 + c).Hidden = False Then
      Cells(10, i + 9 + c) = rng(1, i)
   Else
      Do
         c = c + 1
      Loop Until Columns(i + 9 + c).Hidden = False
      Cells(10, i + 9 + c) = rng(1, i)
   End If
Next
End Sub

 

[tranhungdao12a3]

Với ví dụ này thì xài code này. Đoán chắc là thế nào cũng hỏi thêm gì đó.

Sub vidu()
Dim rng(), i, c
rng = Range("B6:G6").Value
For i = 1 To UBound(rng, 2)
   If Columns(i + 9 + c).Hidden = False Then
      Cells(10, i + 9 + c) = rng(1, i)
   Else
      Do
         c = c + 1
      Loop Until Columns(i + 9 + c).Hidden = False
      Cells(10, i + 9 + c) = rng(1, i)
   End If
Next
End Sub

Theo em hiểu ý bạn ý thế này anh Quanghai, bạn ý muốn copy một vùng dữ liệu và dán vào vùng dữ liệu khác, nếu vùng dữ liệu được dán có dòng ẩn và cột ẩn thì sẽ bỏ qua dòng cột đó và dán vào dòng cột tiếp theo không ẩn.

 

[Quang_Hải]

Theo em hiểu ý bạn ý thế này anh Quanghai, bạn ý muốn copy một vùng dữ liệu và dán vào vùng dữ liệu khác, nếu vùng dữ liệu được dán có dòng ẩn và cột ẩn thì sẽ bỏ qua dòng cột đó và dán vào dòng cột tiếp theo không ẩn.

Đại loại thế này

Sub vidu()
Dim rng(), i&, c&, r&
rng = Range("B6", [G65536].End(3)).Value
For i = 1 To UBound(rng)
   c = 0
   For j = 1 To UBound(rng, 2)
      Do While Rows(i + 9 + r).Hidden = True
         r = r + 1
      Loop
      Do While Columns(j + 9 + c).Hidden = True
         c = c + 1
      Loop
      Cells(r + 9 + i, j + 9 + c) = rng(i, j)
   Next
Next
End Sub

 

[nhatky102]

thôi đã hỏi thì hỏi tiếp vẩy @@
đây là file phân lớp nền đường k95 của em . mõi người xem rồi giúp đợ em với .
chứ cái này em củng không biết nói như thế nào cho rõ nựa .
em đặt vấn đề ở sheet ( coor ).
em xin cảm ơn nhiều

 

[ndu96081631]

thôi đã hỏi thì hỏi tiếp vẩy @@

Câu hỏi tiếp này liên quan gì đến chủ đề "PASTE DỮ LIỆU BỎ QUA CELL ẨN" vậy bạn?
Nếu không liên quan thì vui lòng mở topic khác mà hỏi, nếu không bài của bạn sẽ bị xóa

 

[nhatky102]

có anh , em đã úp file lên đê mõi người biết mục đích để dệ dàng giúp đợ ấy mà,
ơ trong file có các vùng dự liệu cần paste bỏ qua các cell ẩn .

 

[Quang_Hải]

thôi đã hỏi thì hỏi tiếp vẩy @@
đây là file phân lớp nền đường k95 của em . mõi người xem rồi giúp đợ em với .
chứ cái này em củng không biết nói như thế nào cho rõ nựa .
em đặt vấn đề ở sheet ( coor ).
em xin cảm ơn nhiều

Trúng hay trật gì thì mình cũng chia tay topic này nhé. Chỉ cầu mong là trúng
Mở file lên, chọn vùng cần copy. Bấm chuột phải, chọn lệnh MyCopy. Chọn vùng cần dán, bấm chuột phải và chọn lệnh PasteToVisibleCells
Chú ý là vùng copy phải có ít nhất 2 ô được chọn