การcopyแล้ววางแบบรูปแบบ

[yodpao.b]

ผม copy เริ่มตั้งแต่ Range("Y2:AL2") แล้วนำมาวางแบบเลือกรูปแบบ เริ่มตั้งแต่บรรทัดแรก จนถึงบรรทัด 1400
โปรแกรม Eeror ดังรุป

untitled.GIF

แต่ถ้าลบบรรทัดออกซัก 100 บรรทัด ก็จะใช้ได้ตามปกติ
พร้อมกันนี้ได้แนบไฟล์มาให้ดู Code โมดูล3

[snasui]

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

Code: Select all

Sub เก็บข้อมูล() 'ใช้ (อยู่ที่ปุ่มเก็บข้อมูล)
    Dim rAll As Range
    Dim rng As Range
    Application.ScreenUpdating = False
    Sheets("SaveData1").Select
    Range("Y2:AL2").Copy
    Range("Y5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("H3").Copy
    Range("H5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("I5:AL5").Select
    Selection.Copy
    Range("I5:AL5").Select
    Set rAll = Range(Selection, Selection.End(xlDown)).Resize(, 1)
    For Each rng In rAll
        rng.PasteSpecial xlPasteFormats
    Next rng
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub