การcopyในรูปแบบ VBA

[yodpao.b]

ดูว่ามันง่ายแต่ผมทำไม่ได้
รบกวนใครทำได้ช่วยเขียน code ให้ดูหน่อยนะครับ

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

1.คัดลอกข้อมูลในหน้า aaa เชล a2:u2 ลงมาจนสุด
2.หน้า bbb ในตอนนี้ก็เหลือ คอลัม A B และ J ที่เพิ่มเข้ามา ที่ยังทำไม่ได้
(ใน คอลัม J ลงใช้ AutoFill แล้ว เห็นว่าไม่น่าใช้ได้เพราะมันกำหนดจุดวางไว้)

ความต้องการ คือ เมื่อกดปุ่ม แล้วให้ทำงานเสร็จทุก คอลัมพ์ ได้ไหมครับ

[snasui]

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

Code: Select all

Sub Macro()
    Dim A As Worksheet, B As Worksheet, l As Long
    
    l = Rows.Count
    Set A = Sheets("aaa")
    Set B = Sheets("bbb")
    
    A.Range("B2", A.Range("D2").End(xlDown)).Copy _
        B.Range("K" & l).End(xlUp).Offset(1, 0)
    
    A.Range("E2", A.Range("I2").End(xlDown)).Copy _
        B.Range("C" & l).End(xlUp).Offset(1, 0)
    
    A.Range("M2", A.Range("M2").End(xlDown)).Copy _
        B.Range("H" & l).End(xlUp).Offset(1, 0)

    A.Range("U2", A.Range("U2").End(xlDown)).Copy _
    B.Range("I" & l).End(xlUp).Offset(1, 0)
    
    B.Range(Range("J8").End(xlDown), _
        B.Range("K" & l).End(xlUp).Offset(0, -1)).FillDown
        
    B.Range(Range("B8").End(xlDown), _
        B.Range("C" & l).End(xlUp).Offset(0, -1)).FillDown
        
    If B.Range("A9") = "" Then B.Range("A9") = 1
        
    B.Range("A" & l).End(xlUp).AutoFill _
        Destination:=B.Range(Range("A" & l).End(xlUp), _
        B.Range("B" & l).End(xlUp).Offset(0, -1)), Type:=xlFillSeries

End Sub

[yodpao.b]

codeนี้ผมไปใช้ได้หลายอย่างเลยครับ
ขอบคุณมากครับ

[yodpao.b]

อาจาร์ยรอบครอบมากเลยครับ
ขอบคุณที่ใส่ IF มาให้ เหมือนรู้ว่าผมจะต้องมีปัญหากับเชลว่าง
ดีจังเลยครับ

[yodpao.b]

ผม คัดลอกสูตรแบบ Array มาวางเรียบร้อย
หลังจากนั้น ค้ดลอกแล้วนำมาวางแบบจัดรูปแบบ (มีปัญหาeeroe)
code นี้ eeror น่าแปลก ที่ code นี้ คัดลอกมาจากมาโครตอนทดลองอัดได้ผลดี แต่เมื่อเขียนCode กลับ Error

Code: Select all

Private Sub CommandButton2_Click()
    Sheets("History_Tool").Select
    Range("B6:X100").Select
    Selection.Copy
    Sheets("ReportReturn").Select
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

[snasui]

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

Code: Select all

Private Sub CommandButton2_Click()
    Sheets("History_Tool").Range("B6:X100").Select
    Selection.Copy
    Sheets("ReportReturn").Select
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[yodpao.b]

ยังeerorอยุ่ครับ
ดังรุป

Untitled111.gif (17.96 KiB) Viewed 108 times

[snasui]

ลองสร้าง Module ขึ้นมาใหม่แล้วย้าย Code ไปวางแทนที่จะวาง Code ไว้ที่ชีท ReportReturn

สำหรับ Code ที่ถามมานั้นไม่ได้ซับซ้อน ที่เครื่องผมทำงานได้เป็นปกติครับ

[yodpao.b]

เรียบร้อยแล้วครับ