Các bạn giúp mình viết code chuyển dữ liệu từ KHO CÔNG TY sang BÁO CÁO (1 người xem)

[thuanviet]

Mình có tham khảm cách chuyển dữ liệu trên diễn đàn rồi nhưng mình muốn chuyển ngược lại là từ file KHO CÔNG TY sang file BÁO CÁO nhưng mình làm hoài chưa được. Mình muốn chuyển theo ngày hoặc theo số chứng từ. Các bạn giúp dùm mình nha! Cảm ơn các bạn nhiều lắm !

 

[SA_DQ]

Mình chỉ copy sang trang tính 'BCao' thôi;

Còn chuyện copy đến file khác thường mình làm bằng tay cho an tâm.

 

[thuanviet]

sao mình chèn thêm dòng thì không chuyển theo ngày được vậy. Đoạn code mình sửa nè:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I5]) Is Nothing Then
Dim Rng As Range, CRit As Range, Sh As Worksheet

Set Rng = [b11].CurrentRegion.Offset(2)
If Left(Target.Value, 1) = "C" Then
Set CRit = Range("Ac2:Ac3")
ElseIf Left(Target.Value, 1) = "N" Then
Set CRit = Range("AA2:AB3")
End If
Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CRit, _
CopyToRange:=Range("AA10:AK10"), Unique:=False
Set Sh = ThisWorkbook.Worksheets("BCao")
Sh.[B6].Resize(Rng.Rows.Count, 13).Clear
[AB11].CurrentRegion.Offset(1).Copy Destination:=Sh.[B6]
Randomize
Sh.[A4].Interior.ColorIndex = 34 + 9 * Rnd() \ 1
Sh.Select:
End If
End Sub

 

[ChanhTQ@]

Hình như bạn chèn thêm 3 dòng, được thôi!

Nhưng bạn chèn vô đâu vậy?

Quan trọng nữa là chèn để làm gì?

Thường thì 1 CSDL có trang để tiếp nhận dữ liệu mà người dùng nhập vô (Đó là trang 'Nhap' của bạn); Trang này không cần màu mè diêm dúa đâu nha.

Cũng có người khuyên là tên trường cũng không nên viết tiếng Việt có dấu nữa kia!
Ví dụ: Thay vì 'Diễn giải' Ta nên xài 'Dien_Giai' hay 'DienGiai' là được rồi.

Thân!

 

[thuanviet]

Mình đang dùng hàm fitter 2d array nên khi chuyển file này bị báo lổi này :
Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CRit, _
CopyToRange:=Range("AA7:AK7"), Unique:=False
Mình có file bên này để cho bạn hiểu rõ.Bạn tải về nó có chứa hàm của mình trong đó. Bạn làm giúp mình nha! Cảm ơn bạn nhiều.
http://www.giaiphapexcel.com/forum/showthread.php?82265-gi%C3%BAp-m%C3%ACnh-v%E1%BB%81-c%C3%A1ch-l%E1%BB%8Dc-phi%E1%BA%BFu-nh%E1%BA%ADp-s%E1%BB%91-l%C6%B0%E1%BB%A3ng-m%C3%A3-h%C3%A0ng-trong-b%E1%BA%A3ng-nh%E1%BA%ADp-li%E1%BB%87u