รบกวนขอคำแนะนำการเขียนสูตร Macro

[eak108035]

สมาชิกใหม่ครับ
ผมมีเรื่องรบกวนดังนี้ คิอผมมีข้อมูล อยู่1แถว(เป็นข้อมูลชื่อ+ที่อยู่) ใน Sheets1
ต้องการเขียนคำสั่ง Macro(ปุ่ม) เพื่อนำข้อมูลจากแถวดังกล่าวไปเพิ่มในอีก Sheets2
(ต่อท้ายโดยเพิ่มเข้าไปจากข้อมูลเดิมโดยอัตโนมัติ นะครับ เพื่อใช้เป็นฐานข้อมูลในอนาคต)

รบกวนอาจารย์ ช่วยแนะนำวิธีการเขียนสูตรด้วยตรับ

ขอขอบคุณล่วงหน้าครับ

[snasui]

ตัวอย่าง Code การนำข้อมูลจาก A2 เป็นต้นไปใน Sheet1 ไปต่อท้ายข้อมูลใน Sheet2 ตามด้านล่างครับ

Code: Select all

Sub PasteData()
Dim rs As Range, rt As Range
With Worksheets("Sheet1")
    Set rs = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
Set rt = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

[eak108035]

ขอบคุณมากนะครับ

จะนำคำแนะนำไปพัฒนาต่อและจะติดตามเวปของอาจารย์ ต่อไปนะครับ เพราะมีประโยชน์มากจริงๆ

[snasui]

ขอปรับ Code นิดหน่อยนะครับ เนื่องจากคีย์ตกไป

Code: Select all

Sub PasteData()
Dim rs As Range, rt As Range
With Worksheets("Sheet1")
    Set rs = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
Set rt = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp) _
    .Offset(1,0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub