Xác định dòng cuối để ADF dữ liệu khi tiêu đề không đổi.

[anktdn]

Em có ví dụ này nhờ anh chị giúp đỡ.

From Sa_DQ:
Nếu bạn không giải thích bổ sung rõ các từ ADF, thì bài của bạn sẽ là phạm quy & được đưa đến nơi thích hợp!

xin lỗi mọi người ADF đó là advanced Filter, ý em là lọc nâng cao tại dòng cuối dữ liệu có sẵn. Cảm ơn mọi người đã nhắc nhở.

 

[ndu96081631]

Em có ví dụ này nhờ anh chị giúp đỡ.

Nói thiết, tôi muốn giúp bạn lắm mà hỏng hiểu ADF là cái giống gì cả! Nói rõ yêu cầu đi!

 

[HideBoy]

Đúng là anktdn (An Kế toán doanh nghiệp), lười quá! có mỗi việc mô tả thôi cũng không chịu nói!
Chắc là muốn Update dữ liệu từ sheet 1 sang sheet 2: ví dụ tổng hợp PX03 trên Sheet 2 theo bảng chi tiết trên Sheet1, đã đúng ý bạn chưa để mọi người còn giúp?

 

[anktdn]

Xin lỗi mọi người AD F là Advanced Filter, mình muốn lọc nâng cao tại dòng cuối dữ liệu. Dữ liệu sẽ được copy xuống tại dòng cuối với điều kiện như ví dụ. Cảm ơn !

 

[SA_DQ]

Macro của bạn có thể là như vầy:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [L2]) Is Nothing Then
   Dim eRw As Long, Sh As Worksheet, Col As Byte
   
   eRw = [A65500].End(xlUp).Row
   Range("A7:L" & eRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
       "L1:L2"), CopyToRange:=Range("P1:Y1"), Unique:=False
   Set Sh = Worksheets("Sheet2")
   With [p6].CurrentRegion
      eRw = .Rows.Count:                        Col = .Columns.Count
      [X2].Resize(eRw).ClearContents
      Sh.[A65500].End(xlUp).Offset(1).Resize(eRw, Col).Value = .Offset(1).Value
   End With
 End If
End Sub

Để sử dụng nó, bạn nên làm như sau

(*) Tới trang tính Sheet1, Chọn từ dòng 2 đến dòng 6 & thêm dòng;
(*) Copy tiêu đề đang ở dòng 7 đến vùng bắt đầu là [P1]
(*) Chọn 3 cột 'V:X' & vô menu Edit để xóa chúng đi; Sau đó chọn cột 'X' & vô menu insert để thêm cột; Chép nội dung W1 sang x1;
(*) Lập danh sách duy nhất của cột 'A' tại N2..N7; Nhập 'PN*' vô [N8] & 'PX*' vô [N9]
(*) Copy [P1] sang [L1]
(*) Tại [L2] ta lập Validation theo danh sách từ N2..N12


Bạn chọn 1 trong trong ô [L2] để mảco làm việc & xem thử kết quả.

 

[anktdn]

Cảm ơn SA_DQ đã chia sẽ , nhưng ý em là dữ liệu sẽ tiếp tục copy xuống tại dòng cuối là dòng 18, còn tiêu đề và điều kiện vẫn nằm tại vị trí hiệi tại tức diều kiện A 4:A5, tiêu đề : A7:J.
Ý em muốn ở đây là thực hiện advanced filter từ dữ liệu Sheet1, và dán vào dòng cuối dữ liệu tại Sheet2 (miễn có dữ liệu từ tiêu đề trở xuống thì sẽ dán dữ liệu vào dòng cuối đó khi thực hiện Advanced filter)

 

[sealand]

Ý đồ của bạn không thể thực hiện được bằng Advance Filter vì cấu trúc của bảng đích và bảng nguồn khác nhau. còn nếu bạn đồng ý làm cách khác thì mới tham gia được.Mình không hiểu bạn định cố đinh PX002 và 002 hay sao

 

[SA_DQ]

Ý đồ của bạn không thể thực hiện được bằng Advance Filter vì cấu trúc của bảng đích và bảng nguồn khác nhau.

Trước khi dùng AdvFilter ta có thể xử lý cho Đích chuyển về tương đương với Nguồn mà!

Chỉ ó điều bài #4 thực hiện bên Sheet1 sau đó chép sang Sheet2; Còn tác giả yêu cầu đứng tại Sheet2 thực hiện các dòng lệnh; Việc này cũng sẽ thực hiện được, nếu không lười! . . . . . khà,. .khà.

 

[sealand]

Bạn thử với cách hiểu của mình, bạn chon theo Combobox để xem nhé, có gì điều chỉnh sau (Thực ra, chép nối hoàn toàn được nhưng không hiểu nó ra bảng gì).
P/s:Xin phép bác Sa, em có sử dụng code của Bác.
Mình đổi file kèm.Xin lỗi nhé.