xin code hoặc công thức lọc dữ liệu theo tên (2 người xem)

[vanhesing]

Tôi mong muốn các anh chị em giúp đỡ tôi phần này .
tôi muốn xin code hoặc công thức để khi tôi nhập dữ liệu xuất nhập thiết bị của 2 bộ phận từ 1 seet " nhật ký chung " những dữ liệu này sẽ lọc và phân loại ra mỗi sheet tưong ứng với từng bộ phận .
vấn đề tiếp theo mời mọi người tham khảo file đính kèm.
Rất mong có được sự giúp đỡ của cả nhà .
Chân thành cảm ơn !

Tôi đã chân thành xin giúp đỡ rồi , đây là bài thứ 3 nhưng vẫn ko ai phản hồi 1 cái gì cho sự mong đợi của Tôi cả.
Thanks cả nhà!!!

 

[vanhesing]

May ra các nhà siêu công thức trên diễn đàn sẽ giúp bạn loại trừ lỗi như hiện nay.

Riêng mình thì chưa bao giờ vận hành macro trên trang tính còn có công thức lỗi.

mình đã loại trừ lỗi rồi mà
bạn dow về xem thử giúp mình vận hành cái code cho nó lọc ra là được
thanks nhiều lắm

 

[ChanhTQ@]

Bạn chép đè macro này cho cái cũ & chạy với 2 chi nhánh Cần thơ & Trà vinh sẽ có số

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D5]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, Cls As Range, sRng As Range
   Dim eRw As Long:                 Dim MyAdd As String
   
   Set Sh = Sheets("Data"):           eRw = Sh.[N65500].End(xlUp).Row
   [B9].Resize(eRw, 12).ClearContents
   Sh.Range("N3:U" & eRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
        "AI3:AI4"), CopyToRange:=Sh.Range("Ak3:AR3"), Unique:=False
   eRw = Sh.[AL65500].End(xlUp).Row              'Cot Chi Nhánh Sau Loc'
   [B9].Resize(eRw - 3, 8).Value = Sh.[AK4].Resize(eRw - 3, 8).Value
   Set Rng = Sh.Range(Sh.[P3], Sh.[P65500].End(xlUp)) 'Thie1t Bi Yeu Càu'
   
   For Each Cls In Range([D9], [d65500].End(xlUp))
      Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            If sRng.Offset(, 6).Value <> "" And sRng.Offset(, -1).Value = [D5].Value Then
               Cls.Offset(, 6).Resize(, 4).Value = sRng.Offset(, 6).Resize(, 4).Value
            End If
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Cls
 End If
End Sub

Chúc thành công!

 

[vanhesing]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D5]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, Cls As Range, sRng As Range
   Dim eRw As Long:                 Dim MyAdd As String
   
   Set Sh = Sheets("Data"):           eRw = Sh.[N65500].End(xlUp).Row
   [B9].Resize(eRw, 12).ClearContents
   Sh.Range("N3:U" & eRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
        "AI3:AI4"), CopyToRange:=Sh.Range("Ak3:AR3"), Unique:=False
   eRw = Sh.[AL65500].End(xlUp).Row              'Cot Chi Nhánh Sau Loc'
   [B9].Resize(eRw - 3, 8).Value = Sh.[AK4].Resize(eRw - 3, 8).Value
   Set Rng = Sh.Range(Sh.[P3], Sh.[P65500].End(xlUp)) 'Thie1t Bi Yeu Càu'
   
   For Each Cls In Range([D9], [d65500].End(xlUp))
      Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            If sRng.Offset(, 6).Value <> "" And sRng.Offset(, -1).Value = [D5].Value Then
               Cls.Offset(, 6).Resize(, 4).Value = sRng.Offset(, 6).Resize(, 4).Value
            End If
            Set sRng = Rng.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Cls
 End If
End Sub

Chúc thành công!

ôi!!
code sao mà khó quá, có cách nào vẫn lọc được mà ko dùng code ko bạn, hic code mình mò cả ngày nay mà mình vẫn ko hiểu nó là gì ,
để mình test cái này thử thanks bạn nhiều

Sh.Range("N3:U" & eRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
"AI3:AI4"), CopyToRange:=Sh.Range("Ak3:AR3"), Unique:=False
nó cứ báo lỗi dòng này bạn à

 

[SA_DQ]

Bạn lưu í 1 điều trong AdvFilter là các tên trường fải đầy đủ;

Từ Q3:U3 các tên trường đã có; Nhưng từ N3: P3 fải là:

|N|O|P
3|Ngày iêu cầu|Chi nhánh iêu cầu|Xuất nhập thiết bị iêu cầu

Và vùng từ N3:U3 fải i chang vùng 'AK3:AR3' (Không sai dù chỉ là khoảng trắng hay dấu nháy; Thường thì người ta chép từ vùng này đến vùng kia;

Tất nhiên 2 vùng nêu trên :

(*) Không được trống 1 ô nào;
(*) Không 1 ô nào trong chúng được trộn với ô khác chúng.

Đòi hỏi này là trong Advanced Filter của excel chứ không fải do VBA iêu cầu.

(Nếu chưa được sớm mai mình sẽ đưa file lên)

 

[vanhesing]

từ q3:u3 các tên trường đã có; nhưng từ n3: P3 fải là:

|n|o|p
3|ngày iêu cầu|chi nhánh iêu cầu|xuất nhập thiết bị iêu cầu

và vùng từ n3:u3 fải i chang vùng 'ak3:ar3' (không sai dù chỉ là khoảng trắng hay dấu nháy; thường thì người ta chép từ vùng này đến vùng kia;

tất nhiên 2 vùng nêu trên :

(*) không được trống 1 ô nào;
(*) không 1 ô nào trong chúng được trộn với ô khác chúng.

đòi hỏi này là trong advanced filter của excel chứ không fải do vba iêu cầu.

(nếu chưa được sớm mai mình sẽ đưa file lên)

mình sẽ nghiên cứu phần này
mong sẽ giải quyết được vấn đề nhưng mình ko tự tin lắm nên bạn giúp mình 1 file vào ngày mai nha. Mai mình phải gặp sếp sợ bị hỏi
thanks bạn , chúc bạn ngủ ngon

 

[vanhesing]

alo !
hôm qua mình làm được 1 chút
nhưng có 1 cái là những cái bên nhập nó hiện ra 2 lần ?
giải quyết thế nào cả nhà chỉ giúp
thanks

 

[SA_DQ]

Bạn đã xem file đính kèm ở #24 chưa vậy?

alo !

hôm qua mình làm được 1 chút
nhưng có 1 cái là những cái bên nhập nó hiện ra 2 lần ?
giải quyết thế nào cả nhà chỉ giúp
thanks

 

[vanhesing]

sory bạn , mình vừa tìm thấy nhưng......

mình tải về và xem rồi giống y chang như cái mình làm thử tối hôm qua
bạn xem hình nhé
MÌNH MUỐN PHẦN XUẤT VÀ PHẦN NHẠP NÓ HIỆN CÙNG HÀNG VỚI NHAU DỄ ĐỐI CHIẾU
TỐI QUA MÌNH LÀM THÌ PHẦN XUẤT NÓ HIỆN ĐÚNG NHƯNG LẠI RA TỚI 2 LẦN . BẠN XEM HÌNH SẼ RÕ

 

[ChanhTQ@]

Bạn hãy cho biết: Sao chúng fải cùng hàng?

bạn xem hình nhé
MÌNH MUỐN PHẦN XUẤT VÀ PHẦN NHẠP NÓ HIỆN CÙNG HÀNG VỚI NHAU DỄ ĐỐI CHIẾU
TỐI QUA MÌNH LÀM THÌ PHẦN XUẤT NÓ HIỆN ĐÚNG NHƯNG LẠI RA TỚI 2 LẦN . BẠN XEM HÌNH SẼ RÕ

Ở các bài trước đây, chúng cùng hàng vì có cùng 'Thiết bị xuất nhập iêu cầu'
Nhưng giờ chúng khác nhau mà sao gom về được. Bạn thử cho 2 dòng nào đó thiết bị xuất nhập giống nhau, lúc đó chúng sẽ gom cho coi.

Hay bạn giả lập dữ liệu chưa nhất quán; Việc như vậy sẽ làm tốn thời gianm của nhau lắm đó nghe
Bye!

 

[vanhesing]

Ở các bài trước đây, chúng cùng hàng vì có cùng 'Thiết bị xuất nhập iêu cầu'
Nhưng giờ chúng khác nhau mà sao gom về được. Bạn thử cho 2 dòng nào đó thiết bị xuất nhập giống nhau, lúc đó chúng sẽ gom cho coi.

Hay bạn giả lập dữ liệu chưa nhất quán; Việc như vậy sẽ làm tốn thời gianm của nhau lắm đó nghe
Bye!

sory bạn ! mình ko có ý đó
ý mình là khi nhập liệu xuất nhập thiết bị giống nhau nó cho ra đúng nhưng bên xuất lại xuất hiện thêm 1 list y chang ở phía trên tức là dữ liệu đúng nhưng bị thừa
dù sao cũng cảm ơn bạn nhiều lắm
bye

 

[vanhesing]

giúp mình lần nữa đi ((( xoá cái dư thừa bên phần xuất ..................



thanks

 

[ThuNghi]

giúp mình lần nữa đi ((( xoá cái dư thừa bên phần xuất ..................
thanks

Bạn có thể cụ thể 1 báo cáo của CN Cần Thơ là thế nào. Mình nhìn cũng chưa hiểu yêu cầu.
Cụ thể cái dòng mà có TB tên là "OP Control box"
Giúp file này không khó, khó là khó hiểu yêu cầu.

 

[vanhesing]

Bạn có thể cụ thể 1 báo cáo của CN Cần Thơ là thế nào. Mình nhìn cũng chưa hiểu yêu cầu.
Cụ thể cái dòng mà có TB tên là "OP Control box"
Giúp file này không khó, khó là khó hiểu yêu cầu.

à thành thạt xin lỗi!!
do mình chỉ test nên copy dư dòng , thật ra trên quy trình thì khi xuất 1 chi nhánh 5 thiết bị tốt thì sau đó chi nhánh sẽ trả lại 5 thiết bị cùng loại nhưng hư . bạn hiểu chứ ?
mình chỉ cần khi search 1 chi nhánh thì nó hiện ra phần xuất và phần nhập nằm ngang nhau .
và khi mình up thêm chi nhánh mới nó cũng sẽ hoạt động được .
thanks

 

[ThuNghi]

à thành thạt xin lỗi!!
do mình chỉ test nên copy dư dòng , thật ra trên quy trình thì khi xuất 1 chi nhánh 5 thiết bị tốt thì sau đó chi nhánh sẽ trả lại 5 thiết bị cùng loại nhưng hư . bạn hiểu chứ ?
mình chỉ cần khi search 1 chi nhánh thì nó hiện ra phần xuất và phần nhập nằm ngang nhau .
và khi mình up thêm chi nhánh mới nó cũng sẽ hoạt động được .
thanks

Vậy bạn làm cho mình 1 file chỉ gồm 2 sh Data và congno và chỉ gồm CN Cần Thơ thôi. Quan trọng là tiêu chí là tên TB hay seri TB.
Cụ thể đỡ mất công. Cám ơn.

 

[vanhesing]

mình bận quá đã để bạn chờ lâu

Vậy bạn làm cho mình 1 file chỉ gồm 2 sh Data và congno và chỉ gồm CN Cần Thơ thôi. Quan trọng là tiêu chí là tên TB hay seri TB.
Cụ thể đỡ mất công. Cám ơn.

bạn xem file hộ mình nhé

 

[ThuNghi]

bạn xem file hộ mình nhé

Bạn xem file nhé, có 1 TH nếu TB đó mà CN nhập xuất 2 dòng thì lấy dòng nào.
Chưa rút gọn và test hết code. Bạn test nhé.

 

[vanhesing]

Bạn xem file nhé, (1)có 1 TH nếu TB đó mà CN nhập xuất 2 dòng thì lấy dòng nào.
Chưa rút gọn và test hết code. Bạn test nhé.

(1) TH đó sẽ ko xảy ra bạn à , quy luật là khi nhân viên ở chi nhánh yêu cầu công ty xuất những thiết bị cho họ để thay thế và họ buộc phải gửi đúng loại TB bị hư mà họ đã thay thế và đúng số lựong , khi họ gửi thiếu 1 TB thì mình dựa vào đây mà xuất hoá đơn cho họ .
(2) những gì mình thấy bạn làm cho mmình chỉ vỏn vẹn mấy dòng code này thôi à? nếu vậy thì bạn pro quá , tuy vậy , mình có thể cho dữ liệu thêm vào mục data để làm data cho các sheet khác , và ở sheet này mình cho công thức nó links với nhau để láy dữ liệu mà lọc ra...
Nếu như vậy thì quá chuẩn và đơn giản
thanks

 

[ThuNghi]

(1) TH đó sẽ ko xảy ra bạn à , quy luật là khi nhân viên ở chi nhánh yêu cầu công ty xuất những thiết bị cho họ để thay thế và họ buộc phải gửi đúng loại TB bị hư mà họ đã thay thế và đúng số lựong , khi họ gửi thiếu 1 TB thì mình dựa vào đây mà xuất hoá đơn cho họ .
(2) những gì mình thấy bạn làm cho mmình chỉ vỏn vẹn mấy dòng code này thôi à? nếu vậy thì bạn pro quá , tuy vậy , mình có thể cho dữ liệu thêm vào mục data để làm data cho các sheet khác , và ở sheet này mình cho công thức nó links với nhau để láy dữ liệu mà lọc ra...
Nếu như vậy thì quá chuẩn và đơn giản
thanks

Tóm lại là có OK chưa, bạn có thể thêm vào Data chạy thử.
Thấy cái file bạn dùng nhiều ct Vlookup quá, theo tôi có thể rút gọn bớt. Chỉ duy nhất 1 sh chứa dữ liệu nguồn thôi, cần cái nào thì viết code lấy cái đó.
Có gì trục trặc thì bạn báo ngay nhé. Hân hạnh dc giúp bạn.

 

[vanhesing]

Bạn xem file nhé, (1)có 1 TH nếu TB đó mà CN nhập xuất 2 dòng thì lấy dòng nào.
Chưa rút gọn và test hết code. Bạn test nhé.

Nãy mình mơ hồ quá nên hiểu ý của bạn hướng khác , nếu 1 chi nhánh xuất nhập 1 TB 2 dòng nhưng khác ngày (sẽ ko có TH 1 ngày CN yêu cầu 2 lần ) nên mình muốn nó hiện lên theo số ngày tức là nó hiện hết những gì liên quan tới chi nhánh đó chứ ko phải chọn dòng nào !!1
rất hân hạnh vì được bạn giúp .
thakns

 

[vanhesing]

Tóm lại là có OK chưa, bạn có thể thêm vào Data chạy thử.
Thấy cái file bạn dùng nhiều ct Vlookup quá, theo tôi có thể rút gọn bớt. Chỉ duy nhất 1 sh chứa dữ liệu nguồn thôi, cần cái nào thì viết code lấy cái đó.
Có gì trục trặc thì bạn báo ngay nhé. Hân hạnh dc giúp bạn.

mình thì gà về code chỉ biết chút chút về công thức thì lấy gì mà viết bạn (
tủi thân lắm chứ