Snasui Excel Forum

อันนี้ไฟล์ Excel ครับ
PlanTraining_test.xlsm

อยากให้ในหน้า "REPORTหน่วยงาน" กดค้นหาชื่อจาก Listbox ในเซลล์ที่ "C17" แล้วดึงข้อมูลจาก "Sheet1" มาครับ แต่มันติด Error ในModule 2 "Run Time Error:13"

- ตัวอย่างขั้นตอนการทำงาน คือ อยากให้คลิกที่ปุ่ม List box เลือกหน่วยงาน "เจ้าหน้าที่" แล้วให้มันโชว ...

ติดอยู่ใน Module 2 ครับ บรรทัด

If r = Worksheets("REPORTCหน่วยงาน").Range("C20") Then


Option Explicit
Option Base 1

Sub ShowEmp()
Dim a() As Variant, lng As Long
Dim r As Range, rAll As Range
Dim rt As Range, rl As Long
Application.EnableEvents = False
Application.ScreenUpdating = False ...

หน้านี้เป็นCode ใน Module ของผมครับ


Option Explicit
Option Base 1

Sub ShowEmp()
Dim a() As Variant, lng As Long
Dim r As Range, rAll As Range
Dim rt As Range, rl As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
rl = Rows.count
With Worksheets("Sheet1")
Set rAll ...

อันนี้เป็นCode ในหน้า REPORTหน่วยงานครับ

Private Sub ComboBox1_Change()

Me.ComboBox1.AddItem "ธุรการสารบรรณ"
Me.ComboBox1.AddItem "การเจ้าหน้าที่"
Me.ComboBox1.AddItem "การเงินและบัญชี"
Me.ComboBox1.AddItem "พัสดุ"
Me.ComboBox1.AddItem "บริการการศึกาษาระดับปริญญาตรี"
Me.ComboBox1.AddItem "บัณฑ ...

อยากให้ข้อมูลจากDatabase หน้า Sheet1
แสดงข้อมูลของแต่ละหน่วยงานในหน้า REPORT หน่วยงาน
มีวิธีการเขียนโค้ดยังไงครับ ช่วยแนะนำทีครับ