Giúp mình viết Command Search với

[hptnvnn2]

Mình có 1 bảng danh sách các công ty trong đó có rất nhiều công ty mình dò theo số chứng từ để biết công ty đó có bán hàng hay không mình phải bấm CTR+F để search thay vì đó mình tính làm 1 cái command ngay trên bảng excel chỉ cần đánh số chứng từ vô text box rồi làm 1 nút command click vô nó sẽ tự search tới đúng vị trí số chứng từ đó
Đây là bảng mẫu đó rất mong các bạn giúp đỡ
View attachment a.xls

 

[cadafi]

Mình có 1 bảng danh sách các công ty trong đó có rất nhiều công ty mình dò theo số chứng từ để biết công ty đó có bán hàng hay không mình phải bấm CTR+F để search thay vì đó mình tính làm 1 cái command ngay trên bảng excel chỉ cần đánh số chứng từ vô text box rồi làm 1 nút command click vô nó sẽ tự search tới đúng vị trí số chứng từ đó
Đây là bảng mẫu đó rất mong các bạn giúp đỡ
View attachment 21573

Có phải ý bạn như thế này không? Mình nghĩ chỉ cần nút Search là đủ rồi. Ô [B2] bạn gõ từ cần tìm sau đó click nút Search

Đoạn code sau để xử lý việc này:

Sub myFind()
Cells.Find(What:=Sheet1.[B2].Text, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[ChanhTQ@]

Hình như phải sửa lại như thế này, các bạn à:


Đoạn code sau để xử lý việc này:

Sub myFind()
 Dim sRng As Range, Rng As Range
 Set Rng =Range("A1:A" & [A65500].End(xlUp).row) 'Nếu mã đang ở cột "A"'
 Set sRng=Rng.Find(What:=Sheet1.[B2].Text, LookIn:=xlFormulas, LookAt:=xlWhole)
 If Not sRng Is Nothing then sRng.Activate
End Sub

 

[ndu96081631]

Tôi nghĩ chỉ cần 1 TextBox là đủ (khỏi cần nút Search làm gì ---> Tiếp theo là dùng AutoFilter như thế này:

Private Sub TextBox1_Change()
   With Range([A4], [A4].End(xlDown))
     .AutoFilter 1, "*" & TextBox1.Value & "*", , , False
   End With
End Sub

Còn code của anh ChanhTQ@ em nghĩ có thể rút gọn thế này:

Sub myFind()
 With Range([A1], [A65500].End(xlUp))
   If Not .Find([B2]) Is Nothing Then .Find([B2]).Activate
 End With
End Sub

Sẽ gọn hơn mà không cần đặt biến
Có điều tìm kiểu này e rằng không hiệu quả ---> vì chẳng ai muốn gõ toàn bộ tên chính xác để tìm cả (nhớ cái gì gõ cái đó ---> Excel phải tìm cho được)

 

[hptnvnn2]

Ôi mình cám ơn các bạn nhiều lắm mình đã làm được rồi nhờ công các bạn nhiều qua , nhất là bạn ndu96081631 minh cũng tính làm như bạn nhưng không biết phải nghĩ sao cám ơn bạn nhiều nhahttp://giaiphapexcel.com/forum/member.php?u=61139

 

[kp20mar]

Bạn ndu96081631 ơi, nếu mình muốn search trong nhiều cột, và nhiều sheet lun thì sửa code thế nào nhỉ? Bạn giúp mình nha! Tks bạn!

 

[kp20mar]

hic, trả lời giúp mình với ndu ơi....