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

[minicoz]

สวัดดีครับ ผมเพิ่งหัดทำVBA ผมอยากดึงข้อมูลของลูกค้า รายบุคคลไปที่ sheets2 จากไฟล์ order โดยกดปุ่ม
button ดังไฟล์แนบแต่ปัญหาคือ ผมอยากให้ข้อมูลลูกค้าคนนั้นๆๆที่ซื้อสินค้าตามไปด้วยทั้งหมด แต่ทำไม่ได้ครับ
รบกวนช่วยดูcode ให้หน่อยครับ

[snasui]

จะทราบได้อย่างไรว่าปัจจุบันต้องการจะดึงข้อมูลลูกค้ารายได้ มีกำหนดไว้ที่เซลล์ไหน ชีตไหน กรุณาแจ้งมาด้วยครับ

[minicoz]

กำหนดไว้ใน CommandButton ของไฟล์ order ตาม code นี้ครับใจจริงผมอยากให้ทุกครั้งที่กดปุ่ม เปลี่ยนผู้ซื้อไปไปโชว์ที่ sheets2 ครับ พอจะมีวิธีไหมครับ และอีกปัญหาก็คือ รายการสินค้าของผู้ซื้อนั้นๆขึ้นไม่ครบ ตามไฟล์ order ครับ รบกวนช่วยแนะนำหน่อยครับ
Private Sub CommandButton1_Click()
a = Worksheets("Order").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a


If Worksheets("Order").Cells(i, 1).Value = "1.Tony" Then

Worksheets("Order").Rows(i).Copy
Worksheets("Sheet2").Activate
b = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("sheet2").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Order").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Order").Cells(1, 1).Select
End Sub

[minicoz]

ผมต้องการแบบว่า กดปุ่ม CommandButton 1 ครั้ง ข้อมูล ของคนที่ 1 พร้อม รายการซื้อ ไปโชว์ ใน sheets2 กดอีก 1 ครั้ง ชื่อของคนที่ 2 พร้อมรายการสั่งซื้อ ไปโชว์ใน sheet3 เป็นต้นครับ ในตัวอย่างมีแค่ sheets2 ครับ แต่ไม่รู้ว่าต้องใช้ code แบบไหนในการเรียก ชื่อและรายการสินค้าไปครับ ต้องขอโทษที่ทำไม่ถูกตามกฏและตอบไม่ตรงคำถามครับ เพิ่งหัดทำ VBA ครับเลยไม่มีความรู้มากครับ ขอคำแนะนำด้วยครับ

[snasui]

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

การโพสต์ Code ให้ดูตัวอย่างตามกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้แตกต่างจากข้อความปกติครับ

Code: Select all

Dim rall As Range, i As Integer
Dim rselect As Range, rsectAll As Range
Dim rtarget As Range, round As Long
Dim rw As Long, cl As Long
With Sheets("Order")
    .Range("d1").Value = .Range("d1").Value + 1
    round = .Range("d1").Value
    Set rall = .Range("b2", .Range("b" & .Rows.Count).End(xlUp)) _
        .Offset(0, -1).SpecialCells(xlCellTypeConstants)
    If .Range("d1").Value > rall.Areas.Count Then
        .Range("d1").Value = rall.Areas.Count
        Exit Sub
    End If
    Set rselect = rall.Areas(.Range("d1").Value)
    If round < rall.Areas.Count Then
        Set rselectAll = .Range(rselect, rselect.End(xlDown).Offset(-1, 0)).Resize(, 3)
    ElseIf round = rall.Areas.Count Then
        Set rselectAll = .Range(rselect, .Range("b" & .Rows.Count).End(xlUp).Offset(0, -1)) _
            .Resize(, 3)
    Else
        Exit Sub
    End If
    rw = rselectAll.Rows.Count
    cl = rselectAll.Columns.Count
    With .Parent.Worksheets("Sheet2")
        Set rtarget = .Range("b" & .Rows.Count).End(xlUp).Offset(1, -1)
        With rtarget
            .Resize(rw, cl).Value = rselectAll.Value
        End With
    End With
End With