Hỏi về code dò tìm kết quả trong nhiều sheet. (1 người xem)

[pinklove]

Sau một thời gian được các anh trên GPE giúp em đâm nghiện mày mò mấy cái code. Hiện em đang thử một file báo cáo mà phải tìm kiếm trên toàn bộ các sheet. Em thử sửa mấy cái code đã được giúp nhưng không thành công. Có tìm được một bài trên diễn đàn (bài này ạ) nhưng lại không có file đính kèm làm em xem mãi chả hiểu gì. Nhờ các anh chỉ hộ em với trường hợp ví dụ này em cần dùng code thế nào ạ

Em sửa bài tải lại file. Code em đang sử dụng e thử với các sheet D. giả sử có các sheet F với cấu trúc chứa dữ liệu khác thì có thể tìm chung trong 1 code không ạ hay phải tách riêng??.

 

[pinklove]

Bạn đã từng được mọi người giúp cho code. Và đã sử dụng code???
Vậy tai sao tôi thấy cách hỏi bài của bạn nó sao sao đó.... Đã code lấy dữ liệu từ nhiều sheet.... mà giờ đi hỏi là các sheet có cấu trúc khác nhau có lấy được trong 1 code hay không??

Ai rảnh mà đi code cho bạn kiểu như vậy.... Mọi cái đều đồng nhất... chứ không có vụ mỗi sheet mỗi kiểu thì ai giúp bạn.

Bạn hỏi như vậy có nghĩa là bạn tự đấm vào Lưng mình rồi.... xem ra ....


TÚm lại: trên file bạn tôi thấy cả 2 cột C & D đều có số thuê bao, vậy lấy từ cột nào C, hay D (tôi đang nói là phải đồng nhất nhé cấu trúc nhé.)

Bạn giúp mình cột C với nhé. Còn lại mình sẽ dựa vào đó để thử làm cột D và các sheet có cấu trúc khác. Cảm ơn bạn.

 

[pinklove]

Tôi nói rồi. Các sheet không đồng nhất thì không có làm....

Chỉ làm với những sheet có chữ bắt đầu là D- không được sao ạ??? Nếu cần đồng nhất thì nhờ bạn bỏ các sheet F đi, chỉ để lại các sheet D trong file và dò tìm theo cột C của các sheet đó. Mình đang muốn tìm hiểu về code dạng này nên đưa ra ví dụ vậy thôi. Còn file dữ liệu của mình nó khó đồng nhất được. Để sửa lại phải mất thời gian lắm.

 

[be_09]

Chỉ làm với những sheet có chữ bắt đầu là D- không được sao ạ??? Nếu cần đồng nhất thì nhờ bạn bỏ các sheet F đi, chỉ để lại các sheet D trong file và dò tìm theo cột C của các sheet đó. Mình đang muốn tìm hiểu về code dạng này nên đưa ra ví dụ vậy thôi. Còn file dữ liệu của mình nó khó đồng nhất được. Để sửa lại phải mất thời gian lắm.

Bạn nên cho biết dữ liệu trong File là do phần mềm xuất ra hay do bạn nhập tay, nếu nhập tay thì cấu trúc File của bạn không hợp lý (cần phải thiết kế lại) nếu do phần mềm xuất ra thì bạn nên đưa File gốc lên và nêu cái bạn cần phải làm thì sẽ tốt hơn.

 

[pinklove]

Bạn nên cho biết dữ liệu trong File là do phần mềm xuất ra hay do bạn nhập tay, nếu nhập tay thì cấu trúc File của bạn không hợp lý (cần phải thiết kế lại) nếu do phần mềm xuất ra thì bạn nên đưa File gốc lên và nêu cái bạn cần phải làm thì sẽ tốt hơn.

Cảm ơn bạn đã góp ý. File là do mình nhập tay. Cái này mình làm từ lúc bắt đầu biết đến GPE và có nhờ các anh trên này giúp nhưng giờ biết là có thể làm tốt hơn nên mình muốn thử. Hiện giờ thì nó cũng vẫn đang cơ bản đáp ứng được công việc của mình, nhưng đúng như bạn nói, thấy nó không hợp lý lắm nhưng chưa biết sửa sao. Đành làm phiền các bạn và các anh thêm một lần nữa vì file này vậy:

- File của mình mục đích của nó là để quản lý cổng cấp cho các thuê bao. Với file hiện tại mình chia ra mỗi trạm là một sheet. Ở cách nhập đang dùng thì mình có thể phân biệt được từng loại thuê bao, thống kê được số lượng cổng đã lắp đặt trong trạm, tình trạng thuê bao, tình trạng cổng. Đem ra báo cáo tổng hợp. Ngoài ra còn có báo cáo cuối tháng nữa.

- Công việc của mình trên file này hàng ngày đó là tìm kiếm xem thuê bao sẽ nằm ở cổng nào, thuộc trạm nào, nó là loại thuê bao gì, có bị cắt hay không? Nếu có phát triển thuê bao mới thì sẽ thêm vào cột thuê bao tương ứng ở trạm nó được lắp đặt. Mình đang dùng Ctrl+F để tìm kiếm. Khi cần thay đổi cổng thì mình xóa TB tại vị trí cũ và đánh số vào vị trí mới.

- Bây giờ mình muốn nhờ các bạn sửa lại cấu trúc file một cách hợp lý nhất, đồng thời tạo cho mình một bảng hoặc form gì đó cũng được, để có thể thực hiện một số yêu cầu sau:

+ tìm kiếm theo số thuê bao, nó hiện đầy đủ thông tin: cổng, loại thuê bao, tình trạng (cắt hay active, ở đây máy cắt mình đang thêm chữ C phía trước số), thuộc trạm nào có lắp chung cổng với thuê bao nào không? Ở đây tên trạm cũng có chút phức tạp nữa ví dụ như trong trạm có tên Nghi-Loc-CM-NLC có cả DSLAM(sheet: D-), SwitchL2(sheet: F-, Gpon (Sheet G-) hay MiniDslam (Sheet: M-).

+ Có thể thực hiện thêm, bớt số lượng cổng ở từng trạm (Hiện tại mình sử dụng cách đánh số ở mục cổng rồi dùng counta để thống kê). Thêm/xóa/di chuyển thuê bao từ cổng này sang cổng khác, thay đổi tình trạng thuê bao (Active/deactive).

+ Hiện bảng thống kê ở sheet "Baocaochung" cũng tạm ổn nhưng mình muốn còn có thể thống kê theo từng trạm, từng loại thuê bao, từng loại trạm (D,F,G,M). Hiện mình làm việc này bằng cách dùng filtel ở "Baocaochung".

+ Sheet "BCMangVT" và "BC PTDV" cần được giữ lại vì nó là mẫu chung.

Đó là những gì mình làm trong file này và những cái mình cần. CÓ thể mình không diễn đạt được rõ ràng đầy đủ, mong các bạn và các anh cho ý kiến để bổ sung thêm.

(Không biết khi đưa xong bài này lên có còn đúng với topic này không nữa, nhưng theo góp ý của các bạn mình vẫn đưa vào đây, nếu không được thì nhắc nhở để mình mở topic mới nhé)

File gốc đây ạ.

 

[HungQuoc49]

Code em đang sử dụng e thử với các sheet D. giả sử có các sheet F với cấu trúc chứa dữ liệu khác thì có thể tìm chung trong 1 code không ạ hay phải tách riêng??.

Code của bạn, thêm bớt tí mắm muối
Dùng chung cho các sheet name <>"BC"

Cột Cổng có thể ở bất cứ đâu nhưng các cột kế tiếp phải là liên tục như bên dưới và bắt đầu từ dòng 7.
[TABLE="width: 500"]
[TR]
[TD]Cổng[/TD]
[TD]Trạng thái[/TD]
[TD]Số thuê bao[/TD]
[TD][/TD]
[TD]Slot/Port[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]ADSL[/TD]
[TD]MyTV[/TD]
[TD][/TD]
[/TR]
[/TABLE]

Option Explicit

Sub timport1()
Dim Ws As Worksheet, sArr(), tArr(), dArr, i As Long, J As Long, K As Long
Dim port As String, Rws As Long
Dim Dem As Range, Cot   'Thêm biến

port = Range("D5").Value
dArr = Array(1, 2, 3, 4, 5)
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "BC" Then   'Sửa dòng này

'Thêm dò tìm cột ADSL
For Each Dem In Ws.UsedRange
If IsNumeric(Dem.Value) And Len(Dem) = 7 Then
Cot = Dem.Column
Exit For
End If
Next Dem
'Kết thúc tìm ADSL

'Sửa khai báo sArr
        sArr = Ws.Range(Ws.Cells(7, Cot - 2), Ws.Cells(Ws.UsedRange.Rows.Count, Cot + 2))
        ReDim tArr(1 To UBound(sArr, 1), 1 To 10)
        For i = 1 To UBound(sArr, 1)
            If sArr(i, 3) = port Then
                K = K + 1
                For J = 0 To UBound(dArr)
                    tArr(K, 1) = K
                    tArr(K, J + 2) = sArr(i, dArr(J))
                Next J
            End If
        Next i
        Exit For
    End If
Next Ws
With Sheet8
        .Cells.EntireRow.Hidden = False
        .Range("A11:J13").ClearContents
        If K Then
            .Range("A11").Resize(K, 10) = tArr
            Rws = .[B65536].End(xlUp).Row + 1
            '.Rows(Rws & ":2").Hidden = True   'Tắt lệnh ẩn dòng
        Else
           
            MsgBox "Khong co du lieu", , "BC MAY NO"
        End If
End With
End Sub

 

[SA_DQ]

Chủ topic nên chú í các vấn đề sau, từ nhỏ đền lớn:

(1) Nếu muốn chuyển sang xài VBA thì tên trang tính không nên có tiếng Việt có dấu.

(2)Cũng vậy, trong tên các trang tính không nên có những kí tự liên quan đến các fép tính số học như '+', "-", "*", hay "/" & cả ".'
Rõ hơn, thay vì xài "-" ta nên xài "_"

(3) Bạn đang làm chuyện ngược là "trâu đi tìm cột", lí ra fải ngược lại.
Theo mình biết thì lúc sơ khai bạn có các trang họ 'D-...' & đã được giúp đỡ về 'Code';
Sau đó do nhu cầu fát triển, bạn đã đẻ ra các trang thuộc họ 'F-...'
Ngó vô 2 họ này thì mình thấy các trang sinh sau để muộn có thêm 1 cột đầu tiên, đó là 'Sytem Name'.

Nếu đây là nhu cầu chính đáng, thì có 2 cách lựa chọn:
Trước tiên ta fải nghỉ đến chuyện thêm cột cần thiết này vô cuối; Nếu không cho fép thì . . .
Thêm vô trước (đầu); Người ta rất kị thêm/chen vô giữa

Một khi đã fải thêm vô (cột) đầu thì
Bạn fải tìm cách hay nhờ ai đó viết lại 'Code' ban đầu cho đúng theo thiết chế mới. Có nghĩa là viết lại code ban đầu đã nó chạy tốt với các trang tính ban đầu đã bị bạn bốp méo

Tựu chung mình muốn bạn thấm thía 2 điều:

(1) Xây dựng cấu trúc CSDL bạn đầu cần hết sức cân nhắc;

(2) Tuy nhiên trong sự fát triển thì CSDL của bạn cũng chuyển dịch cấu trúc; Đây là điều không tránh khỏi.
Tuy vậy bạn fải thực hiện trình tự là sửa cấu trúc CSDL trước sau đó mới tìm cách sửa 'Code'

Những mong ít nhiều hữu ích với bạn!

 

[pinklove]

Cảm ơn ý kiến của các bạn. Mình mong muốn nhận được thêm ý kiến đóng góp để mình có thể sửa lại dữ liệu của mình cho thật chuẩn. Khi đó thì sẽ nhờ các bạn viết code. Vì mình chưa thể hình dung được bố cục thế nào cho hợp lý nên vẫn rát mong nhận được các ý kiến hỗ trợ của các bạn. Cảm ơn các bạn nhiều.

 

[pinklove]

Nhờ các bạn và các anh xem file và cho thêm góp ý để em sửa lại cấu trúc dữ liệu cho hợp lý với ạ. Em vẫn đang chưa biết nên sắp xếp các loại thuê bao, các trạm làm sao để có thể tốt nhất, đáp ứng được các yêu cầu trên. Em đang chỉnh nhưng sợ ko đúng lại mất công nên em nhờ ý kiến đóng góp của mọi người để làm cho tốt ạ.
Hiện tại em đang phân vân vì dữ liệu thì phải đồng nhất trên 1 cột để dò tìm nhưng loại thuê bao của e thì có 2 loại, đó là ADSL và MyTV. Trường hợp lắp riêng thì không sao, nhưng nếu lắp chung cổng thì e chưa biết bố trí thế nào cho hợp lý nếu trên 1 cột.

 

[be_09]

Nhờ các bạn và các anh xem file và cho thêm góp ý để em sửa lại cấu trúc dữ liệu cho hợp lý với ạ. Em vẫn đang chưa biết nên sắp xếp các loại thuê bao, các trạm làm sao để có thể tốt nhất, đáp ứng được các yêu cầu trên. Em đang chỉnh nhưng sợ ko đúng lại mất công nên em nhờ ý kiến đóng góp của mọi người để làm cho tốt ạ.
Hiện tại em đang phân vân vì dữ liệu thì phải đồng nhất trên 1 cột để dò tìm nhưng loại thuê bao của e thì có 2 loại, đó là ADSL và MyTV. Trường hợp lắp riêng thì không sao, nhưng nếu lắp chung cổng thì e chưa biết bố trí thế nào cho hợp lý nếu trên 1 cột.

Dựa vào ý này:

mỗi trạm là một sheet

Góp ý thêm:

1/ Bạn nên cho biết là mỗi trạm theo dõi riêng sau đó gửi File cho bạn hay sao? Cái này bạn nên cho biết và diễn giải cụ thể mới có giải pháp phù hợp với thực tế.

2/ Bạn cho ký tự C không hợp lý, có 2 loại (Cổng cắt, Cổng dùng chung), theo tôi phải là CC (cổng cắt), CDC (Cổng dùng chung).

3/ Số thuê bao có 2 cột (ADSL và MyTV) nên gộp lại làm 1 cột (với cách ghi như cổng 2 sheet D-Cửa Hội thế này: 3860197_1795278 (để khi cần tách số thuê bao ta dựa vào ký tự " _ " tách 1 nhác là xong.

4/ Thêm cột với tiêu đề là phân loại cổng với dữ liệu là (Megawan, ADSL, MyTV, Dùng chung, cổng hỏng, Cổng cắt) sẽ tương ứng với các ký tự cột B (Trạng thái).

 

[be_09]

Xem kết quả 1 Sheet D-Cửa Hội tôi đã thay đổi cấu trúc dữ liệu và sử dụng PivotTable cho sheet Kết quả.

Do chưa hiểu cấu trúc theo dõi dữ liệu của bạn nên kết quả ra chưa phù hợp lắm.

Bạn cho ý kiến thêm thì sẽ đáp ứng được yêu cầu công việc.

Xem File đính kèm.

 

[pinklove]

1/ Bạn nên cho biết là mỗi trạm theo dõi riêng sau đó gửi File cho bạn hay sao? Cái này bạn nên cho biết và diễn giải cụ thể mới có giải pháp phù hợp với thực tế.

Em theo dõi chung cho tất cả các trạm. Tất cả số liệu là em nhập vào sau khi thao tác trên hệ thống để tiện theo dõi.

2/ Bạn cho ký tự C không hợp lý, có 2 loại (Cổng cắt, Cổng dùng chung), theo tôi phải là CC (cổng cắt), CDC (Cổng dùng chung).

Em chỉ thêm chữ C bởi vì với code cũ thì em thống kê dựa vào cột trạng thái. Nếu ở cột ADSL hoặc MyTV có thuê bao thì nó hiện thị A hoặc M, nếu cả hai đều có (tức là dùng chung) thì nó hiển thị A+M, nếu thêm C vào 1 trong hai thì hiển thị loại thuê bao còn lại, (tức là nếu cắt 1 trong 2 dịch vụ thì biết rằng dv kia vẫn hoạt động). Nếu cổng chỉ có 1 thuê bao thì khi có chữ C nó sẽ hiển thị cổng là cắt. Khi thuê bao đóng lại em sẽ xóa chữ C đi là được. Với phương án này em có thể thống kê được toàn bộ số liệu em cần như ở dòng các dòng 2,3 đầu sheet mỗi trạm.

Số thuê bao có 2 cột (ADSL và MyTV) nên gộp lại làm 1 cột (với cách ghi như cổng 2 sheet D-Cửa Hội thế này: 3860197_1795278 (để khi cần tách số thuê bao ta dựa vào ký tự " _ " tách 1 nhác là xong.

Với các làm này thì nếu thuê bao cắt e sẽ phải xử lý thế nào ạ? vẫn thêm chữ C phía trước từng thuê bao à anh. rồi cổng Hỏng, Cổng Megawan vẫn sẽ là các ký tự bình thường như code cũ phải không a?

Thêm cột với tiêu đề là phân loại cổng với dữ liệu là (Megawan, ADSL, MyTV, Dùng chung, cổng hỏng, Cổng cắt) sẽ tương ứng với các ký tự cột B (Trạng thái).

Nếu thế thì dùng luôn cột Trạng Thái cũng được chứ anh?

 

[be_09]

Em theo dõi chung cho tất cả các trạm. Tất cả số liệu là em nhập vào sau khi thao tác trên hệ thống để tiện theo dõi.

Em chỉ thêm chữ C bởi vì với code cũ thì em thống kê dựa vào cột trạng thái. Nếu ở cột ADSL hoặc MyTV có thuê bao thì nó hiện thị A hoặc M, nếu cả hai đều có (tức là dùng chung) thì nó hiển thị A+M, nếu thêm C vào 1 trong hai thì hiển thị loại thuê bao còn lại, (tức là nếu cắt 1 trong 2 dịch vụ thì biết rằng dv kia vẫn hoạt động). Nếu cổng chỉ có 1 thuê bao thì khi có chữ C nó sẽ hiển thị cổng là cắt. Khi thuê bao đóng lại em sẽ xóa chữ C đi là được. Với phương án này em có thể thống kê được toàn bộ số liệu em cần như ở dòng các dòng 2,3 đầu sheet mỗi trạm.


Với các làm này thì nếu thuê bao cắt e sẽ phải xử lý thế nào ạ? vẫn thêm chữ C phía trước từng thuê bao à anh. rồi cổng Hỏng, Cổng Megawan vẫn sẽ là các ký tự bình thường như code cũ phải không a?

Nếu thế thì dùng luôn cột Trạng Thái cũng được chứ anh?

Nếu bạn nhập liệu thì nên theo dõi chung 1 sheet DATA (như sheet D-Cửa Hội của Bài #5) và chỉ thêm cột tên trạm là đủ, khi dùng PivotTable thì ta được kết quả riêng của từng trạm, nếu muốn danh sách trạm nào thì dùng Advanced Filter lọc tên trạm là xong.

Muốn danh sách hỏng của trạm nào thì chỉ việc chọn trạm và chọn Cổng hỏng ...v..v...(Advanced Filter sẽ lọc được tất tần tật danh sách bạn cần hoặc PivotTable nó cũng làm được).

 

[pinklove]

Nếu bạn nhập liệu thì nên theo dõi chung 1 sheet DATA (như sheet D-Cửa Hội của Bài #5) và chỉ thêm cột tên trạm là đủ, khi dùng PivotTable thì ta được kết quả riêng của từng trạm, nếu muốn danh sách trạm nào thì dùng Advanced Filter lọc tên trạm là xong.

Anh ơi, em hiểu ý anh rồi. Nhưng với mỗi sheet một trạm thì trước đây em đã được các anh trong GPE giúp đỡ để đưa ra được báo cáo tổng quát. File gốc em có gửi lại ở bài #7. Giờ em gửi lại link file gốc tại đây nhờ anh xem. Trước em gửi file hoctapGPE là vì em muốn nghiên cứu code về tìm kiếm nhưng theo gợi ý của các anh trên GPE thì em nên đưa file gốc lên và nói rõ các mong muốn luôn một lần. Vậy nên em đã gửi lại. Em nhờ anh đọc lại và giúp đỡ em ạ.

 

[be_09]

Anh ơi, em hiểu ý anh rồi. Nhưng với mỗi sheet một trạm thì trước đây em đã được các anh trong GPE giúp đỡ để đưa ra được báo cáo tổng quát. File gốc em có gửi lại ở bài #7. Giờ em gửi lại link file gốc tại đây nhờ anh xem. Trước em gửi file hoctapGPE là vì em muốn nghiên cứu code về tìm kiếm nhưng theo gợi ý của các anh trên GPE thì em nên đưa file gốc lên và nói rõ các mong muốn luôn một lần. Vậy nên em đã gửi lại. Em nhờ anh đọc lại và giúp đỡ em ạ.

Để các thành viên giúp tiếp, vì anh đang ăn cơm (xong anh sẽ đi Vũng Tàu công việc 2, 3 hôm nên không rảnh).

Còn muốn code theo nội dung góp ý của anh thì anh sẽ giúp sau.

 

[pinklove]

Để các thành viên giúp tiếp, vì anh đang ăn cơm (xong anh sẽ đi Vũng Tàu công việc 2, 3 hôm nên không rảnh).

Còn muốn code theo nội dung góp ý của anh thì anh sẽ giúp sau.

Em cảm ơn anh. Trong những ngày anh đi em hi vọng sẽ tiếp tục nhận được sự gợi ý và giúp đỡ từ các anh em khác. Vì file gốc hiện tại đang hoạt động được, em chỉ muốn tối ưu nó hơn nên em có thể chờ được. Đến lúc anh về nếu chưa tìm được phương án tối ưu hơn em mong anh sẽ giúp đỡ em theo phương án của anh. Chúc anh một chuyến đi tốt đẹp.

 

[pinklove]

Có ai cho em thêm giải pháp không ạ. Em chờ sự góp ý của mọi người mãi mà ko thấy.

 

[pinklove]

Để các thành viên giúp tiếp, vì anh đang ăn cơm (xong anh sẽ đi Vũng Tàu công việc 2, 3 hôm nên không rảnh).

Còn muốn code theo nội dung góp ý của anh thì anh sẽ giúp sau.

Anh đi công tác về chưa ạ. Nếu anh có thời gian thì giúp em với ạ.

 

[dovanhoc84]

Sau một thời gian được các anh trên GPE giúp em đâm nghiện mày mò mấy cái code. Hiện em đang thử một file báo cáo mà phải tìm kiếm trên toàn bộ các sheet. Em thử sửa mấy cái code đã được giúp nhưng không thành công. Có tìm được một bài trên diễn đàn (bài này ạ) nhưng lại không có file đính kèm làm em xem mãi chả hiểu gì. Nhờ các anh chỉ hộ em với trường hợp ví dụ này em cần dùng code thế nào ạ

Em sửa bài tải lại file. Code em đang sử dụng e thử với các sheet D. giả sử có các sheet F với cấu trúc chứa dữ liệu khác thì có thể tìm chung trong 1 code không ạ hay phải tách riêng??.

Tôi thấy nếu bạn muốn tìm trên nhiều sheet thì chỉ cần sửa chỗ này

If Left(Ws.Name, 2) = "D" Then

thành thế này

If Ws.Name <> "BC" Then

Nghĩa là cứ sheet có tên không phải là BC thì tìm. có lẽ đúng ý bạn rồi nhở???
Vì trong code đã có vòng lặp tìm trong mọi sheet (For Each Ws In ThisWorkbook.Worksheets) nên cái đoạn "If Ws.Name <> "BC" cũng chỉ để tránh tìm trong sheet BC thôi

 

[pinklove]

Xin lỗi đã tiếp tục làm phiền mọi người vì chủ đề này. Bởi vì tôi có tìm được một code tìm kiếm trong toàn workbook như sau:

Sub Find_First()
Application.ScreenUpdating = False
Dim FindString As String
Dim Rng As Range
Dim sH As Worksheet
FindString = Range("M2").Value
If Trim(FindString) <> "" Then
For Each sH In Worksheets
If sH.Name <> "sheet2" Then
sH.Activate
With ActiveSheet.Range("A:IV")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox " Tim Thay O Sheet " & ActiveSheet.Name
Exit For
ElseIf ActiveSheet.Index = ThisWorkbook.Worksheets.Count Then
MsgBox "Nothing found"
End If
End With
End If
Next
End If
Application.ScreenUpdating = True
End Sub

Với code trên khi tôi đánh dữ liệu cần tìm vào ô D5 ở sheet2 (sheet tôi muốn hiển thị báo cáo) thì sẽ tìm được và đi đến vị trí dữ liệu đó (Như Ctrl+F). Tôi nghĩ rằng nếu đã tìm được thì sẽ có cách để lôi được về trang báo cáo của mình. Tôi đã tìm cách sửa xoay quanh biến Rng nhưng không thành công. Xin hỏi các bạn với code trên thì có thể dùng để làm báo cáo như tôi mong muốn không? Nếu không thể thì đỡ phải mò nữa mất công, còn có thể thì rất mong nhận được sự giúp đỡ của các bạn.