การเลือกข้อมูลจาก DropDown List แล้วขึ้น #N/A ครับ

[niwat2811]

การเลือกข้อมูลจาก DropDown List แล้วขึ้น #N/A ครับ คือว่าต้องการเลือกข้อมูลจาก DropDown List ที่ Sheet"จัดชั้น" เซลล์ Z2 แล้วให้ดึงข้อมูลจาก Sheet"Database" มาแสดง ข้อมูลที่แสดงก็ถูกต้อง แต่ว่าบรรทัดอื่น ๆ ทำไมเป็น #N/A รบกวนช่วยดู Code ให้หน่อยครับ และถามต่ออีกนิดครับ ที่ Sheet "จัดชั้น" ตั้งแต่แถว 8 ลงไป ถ้าเราลบหรือ Delete ข้อมูลออกมันจะขึ้น Error ครับ รบกวนท่านอาจารย์หรือผู้รู้ช่วยชี้แนะด้วยครับ ขอบคุณมากครับ

[niwat2811]

ตอนนี้แก้ไขเรื่อง #N/A ได้แล้วครับ เหลือแต่ว่าถ้าเราลบข้อมูลตั้งแต่แถว 8 ออกไป มันจะขึ้น Error ไม่ทราบว่าต้องแก้ไขยังไงครับ ขอบคุณครับ

[tupthai]

ประเด็นเรื่อง error เดี๋ยวให้ผู้รู้ท่านอื่นมาตอบ
ความเห็นผมถ้าลักษณะงานแบบนี้ผมจะใช้ Advanced filter + VBA
เพราะสามารถกำหนดเงื่อนไขในการกรอง และ เลือกว่าจะเอาหัวตารางไดมาบ้าง
ซึ่งเขียน code น้อยมาก

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$Z$2" And Target <> "" Then
        ShowEmp
    ElseIf Target.Address = "$Z$2" And Target = "" Then
        MsgBox "Please select data."
    End If
End Sub

[tupthai]

ผมทำตัวอย่างมาให้ดูครับ
โดยการ บันทึกมาโครจากการทำ advanced filter
แล้ว สร้าง range nameให้กับข้อมูลให้เป็น dynamic
data=OFFSET(Database!$A$1,0,0,COUNTA(Database!$A:$A),COUNTA(Database!$1:$1))
Criteria=Sheet1!$A$3:$A$4
traget=Sheet1!$B$5:$AA$5
เป็นอีกแนวทางมาแชร์กันครับผม

Code: Select all

Sub Macro1()

    Sheets("Database").Range("data").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Criteria"), CopyToRange:=Range("traget"), _
        Unique:=False
End Sub

[tupthai]

excel2003 มีคอลัมน์ไม่พอเลยerror ผมขอแนบไพล์ใหม่ครับ

[niwat2811]

แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาสามารถใช้ได้ตรงตามความต้องการเลยครับ ขอบคุณมากเลยครับ และต้องขอขอบคุณท่าน tupthai ด้วยที่ได้ชี้แนะแนวทางอื่น ๆ ผมจะลองนำไปปรับใช้ดูครับ แล้วจะมารายงานผลนะครับ ขอบคุณทั้งสองท่านมากเลยครับ