เราใช้แมโคร ส่งข้อมูลข้ามsheetได้ไหมครับ

[sdmania]

ผมได้ลองทำ userform แต่ข้อมูลที่ให้กรอกมันเยอะ(ผู้กรอกต้องการfont24 มันเลยบีีบพื้นที่ไม่พอ)
ผมเลยคิดว่า ถ้าทำแมโครส่งข้อมูลที่อยู่ในเซล จากsheet2 ไปsheet1 จะได้ไหมครับ

[snasui]

ทำได้ครับ ลองบันทึก Macro ดู ติดตรงไหนสอบถามมาได้ครับ

[sdmania]

รบกวนอาจาย์ชี้แนะด้วยครับ เริ่มกันที่ sheet2 เมื่อกดปุ่มแล้ว จะส่งมาที่sheet1ครับ

มีคำถาม 2 ข้อครับ
1.การกำหนดช่วงrangeมีวิธีย่อกว่านี้ไหมครับ หรือทำทีละคอลมน์ a2 b2 c2 d2 ....bh2
2.การส่งข้อมูล จาก sheet2ไปยังsheet1 ทำยังไงให้ข้อมูลล่าสุดไปอยู่แถวล่างสุดครับ
Private Sub btnAdd_Click()
Dim IntRows As Long
Dim n As Range, sn As Range
IntRows = Rows.Count
Set n = Range("A" & IntRows).End(xlUp).Offset(1, 0)
Set sn = n.Offset(0, 1)
n = txtName.Text
sn = txtSurname.Text
End Sub
เอาสูตรนี้มาปรับใช้ยังไงดีครับ

[snasui]

กรณีนี้ไม่ได้เกี่ยวข้องกับค่า Y ครับ

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

Code: Select all

Private Sub btnAdd_Click()
    Dim IntRows As Long
    Dim n As Range, sn As Range
    IntRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
    End With
    Set sn = Sheets("Sheet2").Range("A2:BH2")
    sn.Copy
    n.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

[sdmania]

ขอบคุณครับอาจารย์ ผ่านฉลุยเลยครับ