Copy paste số lượng sau khi đã lọc Auto Filter

[thinhnx22]

Chào anh chị,
Mình muốn copy và paste dữ liệu số lượng sau khi đã được lọc Filter. Các bạn giúp mình theo file đính kèm. Chân thành cảm ơn

 

[nguyenquyetnd993]

mình có sưu tầm code này bạn thử xem có đúng ý bạn không.

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

 

[thinhnx22]

mình có sưu tầm code này bạn thử xem có đúng ý bạn không.

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

Mình cũng có code này nhưng mình chạy thử thấy chưa đúng.

 

[snow25]

Chào anh chị,
Mình muốn copy và paste dữ liệu số lượng sau khi đã được lọc Filter. Các bạn giúp mình theo file đính kèm. Chân thành cảm ơn

Mục đích bạn muốn làm gì.Lọc theo tên ra số lượng của nó à.

 

[thinhnx22]

Mục đích bạn muốn làm gì.Lọc theo tên ra số lượng của nó à.

Sau khi lọc mặt hàng a ra (cái này mình lọc tay không cần code bạn nhé), sau đó mình muốn nhờ code copy số lượng của mặt hàng a từ cột B sang cột C như kết quả file đính kèm. Mục đích cuối cùng là để đối chiếu so sánh dữ liêu ban đầu và sau này sau khi chỉnh sửa nó khác nhau thế nào bạn ạ.

 

[snow25]

Sau khi lọc mặt hàng a ra (cái này mình lọc tay không cần code bạn nhé), sau đó mình muốn nhờ code copy số lượng của mặt hàng a từ cột B sang cột C như kết quả file đính kèm. Mục đích cuối cùng là để đối chiếu so sánh dữ liêu ban đầu và sau này sau khi chỉnh sửa nó khác nhau thế nào bạn ạ.

Bạn thử.

Sub aa()
   Dim lr As Long, i As Long
   With Sheets("vd1")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To lr
       If Not .Rows(i).Hidden Then
          .Cells(i, 3).Value = .Cells(i, 2).Value
       End If
    Next i
   End With
End Sub

 

[thinhnx22]

Bạn thử.

Sub aa()
   Dim lr As Long, i As Long
   With Sheets("vd1")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To lr
       If Not .Rows(i).Hidden Then
          .Cells(i, 3).Value = .Cells(i, 2).Value
       End If
    Next i
   End With
End Sub

Đã đúng yêu cầu của mình. Cảm ơn bạn nhiều nhé.