ปัญหาการดึงข้อมูล

[bank9597]

ก่อนอื่นต้องขออภัยอาจารย์น่ะครับ ที่ต้องรบกวนอยู่เรื่อยๆ

คือว่าปัญหาแรกที่เจอคือผมได้ทำการดึงข้อมูลจากชีท DataStore มาแสดงในชีท Edit ผมดึงข้อมูลมาได้แต่ "ข้อมูลกลับจัดเรียงเป็นแนวตั้ง" (ความตั้งใจคือต้องการให้เป็นแนวนอน)

ผมมีไฟลล์เดิมแนบมาให้ดูด้วยครับ รบกวนอาจารย์ช่วย Resize ให้หน่อยครับ ผมทำไม่ถูกแล้วจริงๆ อิอิ

(ปล. พยายามด้วยตัวเองอย่างสุดความสามารถทุกครั้งก่อนจะถามคนอื่น)

ใบสั่งซื้อ.xlsm

[snasui]

ดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Button2_Click()
Dim rFind As Range, rDataAll As Range
Dim r As Range, rTarget As Range
Set rFind = Sheets("Edit").Range("D2")
If Sheets("Edit").Range("D2") = "" Then Exit Sub
With Sheets("DataStore")
    Set rDataAll = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
    If .Columns("b:b").Find(rFind, LookIn:=xlValues) Is Nothing Then
        MsgBox "äÁèÁÕàÅ¢·Õè¹Õé!"
        Exit Sub
    End If
End With
For Each r In rDataAll
    If r = rFind Then
        Set rTarget = Sheets("Edit").Range("C" & Rows.Count).End(xlUp) _
            .Offset(1, 0)
        r.Resize(1, 8).Copy
        rTarget.PasteSpecial xlPasteValues
        rTarget.Offset(0, -1) = Date
    End If
Next r
Application.CutCopyMode = False
MsgBox "Get data has finished."
End Sub

[bank9597]

โค๊ดเดิมผมพอจะเช้าใจบ้าง แต่พอเจอโค๊ดใหม่ของอาจารย์ถึงกับต้องนับหนึ่งใหม่อีกครั้ง อิอิ

ผมใส่โค๊ดไปแล้วครับ ติดปัญหานิดหน่อย ยังไงผมขอศึกษาโค๊ดให้เข้าใจก่อนครับ ยังมีสิ่งที่ต้องขอความช่วยเหลืออีก

ขอบคุณครับอาจารย์

ปล.พยายามด้วยตัวเองอย่างสุดความสามารถทุกครั้ง ก่อนจะถามคนอื่น

[bank9597]

อาจารย์ครับ จะแปลงสูตรอย่างไรให้มันทำการดึงข้อมูลมาทับข้อมูลเดิมที่เราดึงมาครั้งแรก
ยกตัวอย่าง PO 1ใบจะมีรายการสูงสุด 60 รายการ สมมุติผมดึงข้อมูลของ PO101 มาแล้ว จากนี้ผมก็ดึงข้อมูล PO102 มาอีก โดยให้ข้อมูลที่มาใหม่ทับข้อมูลเดิมไปเลยครับ


รบกวนอาจารย์ดูให้อีกนิดครับ

[snasui]

ส่งตัวอย่างที่ลองทำแล้วมาดูกันครับ จะได้ปรับปรุงต่อจากนั้น