Macro : ค้นหาด้วยเลข Quotation Nember

[wisitsakbenz]

Code: Select all

 Dim l As Long
    On Error Resume Next
    With Worksheets("Data")
        If Application.CountIf(.Range("f3", .Range("f" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("f:f"), 0)
        ElseIf Application.CountIf(.Range("g3", .Range("g" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("g:g"), 0)
        ElseIf Application.CountIf(.Range("a3", .Range("a" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("a:a"), 0)
    
        End If
 

เรียนสอบถามอาจารย์ครับ

ถ้าค้นหาด้วย Patient's Name คือ Somboon Yindee จะค้นหาได้ปกติ แต่
อยากค้นหาด้วยเลข Quotation Nember : 200116001 ต้องปรับ Code อย่างไรบ้างครับอาจารย์

ขอบคุณครับ

[wisitsakbenz]

ได้แล้วครับอาจารย์ ขอบคุณครับ