Snasui Excel Forum

ในเวิร์คบุ๊คมี 3 ชีทค่ะ ชื่อdata form search ผลลัพธ์จาก code ด้านล่างแสดงผลแค่ในชีทsearch แต่ไม่แสดงผลในlistboxค่ะ โปรแกรมdebugที่บันทัดนี้ ListBox1.RowSource = "SearchResults"
โดยที่ SearchResults ทำเป็น name manager =OFFSET(search!$A$2,0,0,COUNTA(search!$A:$A)-1,3)
อยากทราบว่าทำยังไงให้แสดงข้อมูลในlistbox ขอบคุณล่วงหน้าค่ะ

Private Sub CommandButton1_Click()
Dim RowNum As Long
Dim SearchRow As Long

RowNum = 2
SearchRow = 2

Worksheets("data").Activate

Do Until Cells(RowNum, 1).Value = ""

If InStr(1, Cells(RowNum, 2).Value, Textsearch.Value, vbTextCompare) > 0 Then
Worksheets("search").Cells(SearchRow, 1).Value = Cells(RowNum, 1).Value
Worksheets("search").Cells(SearchRow, 2).Value = Cells(RowNum, 2).Value
Worksheets("search").Cells(SearchRow, 3).Value = Cells(RowNum, 3).Value
SearchRow = SearchRow + 1
End If
RowNum = RowNum + 1
Loop

If SearchRow = 2 Then
MsgBox "No products were found that match your search criteria."
Exit Sub
End If

ListBox1.RowSource = "SearchResults"

End Sub

กรุณาแนบไฟล์ที่มี Code นี้มาแล้วด้วย จะได้สะดวกต่อการตอบปัญหาของเพื่อนสมาชิกครับ

สำหรับการโพสต์ Code ควรโพสต์ให้เป็นอักษรแบบ Code ดูวิธีการได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ