Snasui Excel Forum

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