การโชว์ข้อมูลใน listbox ครับ

[yodpao.b]

ตอนข้อมูลมีมากเลยไม่ทันสังเกต
นั่งดู code ไฟลเมื่อตอนเย็น เทียบกับตอนกลางคืน ดูอยู่นานมาก code เหมือนกันทุกอบ่าง
เว้นแต่ข้อมูลไม่เหมือนกัน สรุปได้ว่าผิดทั้ง 2 ไฟล์ ไฟล์ที่มีข้อมูลมากมันผิดแต่ไม่สามารถสังเกตุเห็นได้

1.JPG

จากรูปข้อมูลไม่ได้ติดขอบบนสุด สามารถแก้ไข code ได้ไหมครับแก้อย่างไร
ข้อมูลนี้อยู่ใน sheet "DatabaseREQSIT"
code อยู่ใน Module2_Reset

Code: Select all

Sub ResetReturntool1()

    Dim iRow As Long
    
    iRow = [Counta(DatabaseREQSIT!A:A)] ' idetifying the last row
    
    With frmReturntool
        .ListBox1.ColumnCount = 14
        .ListBox1.ColumnHeads = True
        .ListBox1.ColumnWidths = "0,0,75,45,100,150,0,90,0,0,70,60,0,0"
            If iRow > 1 Then
                .ListBox1.RowSource = "DatabaseREQSIT!A6:N" & iRow
                    Else
                        .ListBox1.RowSource = "DatabaseREQSIT!A6:N6"
            End If
    
    End With

End Sub

ผลที่ได้จากการ Run ดังรูปล่าง
4 บรรทัดสุดท้ายหายครับ

2.JPG

ทดลองลองลบคอลัมที่ว่างให้หายไป
ข้อมูลออกมาถูกต้องครับ
แต่จริงๆแล้วไม่สารถลบคอลัมดังกล่าวได้ครับผมเอาไว้กรองข้อมูลครับ
แก้ไข code อย่างไรดีครับ

[yodpao.b]

ขั้นตอนการทำงาน

3.JPG

คลิกที่รูปนี้ครับ
แล้วฟอร์มจะแสดง

ไฟล์แนบ

[snasui]

แก้ตัวแปรที่หาค่าบรรทัดสุดท้ายของข้อมูลครับ

จาก iRow = [Counta(DatabaseREQSIT!A:A)] ' idetifying the last row เป็น iRow = Worksheets("DatabaseREQSIT").Range("A" & rows.count).end(xlup).row ' idetifying the last row

[yodpao.b]

ขอบคุณครับ
เห็น บรรทัดสุดท้ายแล้วครับ