VBA ดึงขอมูลจาก Sheet หนึ่ง มายังอีกSheet หนึง

[malin24]

ต้องการให้ข้อมูลที่กรอกที่ sheet1 เมือกดบันทึกให้มาโชว์ใน sheet2 บันทึกเพิ่มขึ้นโดยไม่ทับข้อมูลเดิม
(มีการกรอกข้อมูลใหม่ตลอดใน sheet1) ตอนนี้ติดปัญหาที่ข้อมูลไม่ตรงช่องและไม่เพิ่มขึ้น

Code: Select all

Sub Button1_Click()
Dim St_in, St_target As Worksheet
Dim r As Range
Set St_in = Worksheets("Sheet1")
Set St_target = Worksheets("Sheet2")
Set r = St_target.Range("A65536").End(xlUp).Offset(1)

            If r.Offset(-1, 1).Value = St_in.Range("A4").Value Then
               Set r = r.Offset(-1)
               
             r.Value = St_in.Range("B5").Value              'Date
             r.Offset(, 1).Value = St_in.Range("A4").Value   'name
             r.Offset(, 2).Value = St_in.Range("B4").Value   'age
             r.Offset(, 3).Value = St_in.Range("C4").Value   'remark
             r.Offset(, 4).Value = St_in.Range("D4").Value    'num
             
             End If
      
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

Dim St_in, St_target As Worksheet
Dim r As Range
Set St_in = Worksheets("Sheet1")
Set St_target = Worksheets("Sheet2")
Set r = St_target.Cells(Rows.Count, "a").End(xlUp).Offset(1)
'              Set r = r.Offset(-1)
             r.Value = St_in.Range("a2").Value              'Date
             r.Offset(, 1).Value = St_in.Range("A4").Value   'name
             r.Offset(, 2).Value = St_in.Range("B4").Value   'age
             r.Offset(, 3).Value = St_in.Range("C4").Value   'remark
             r.Offset(, 4).Value = St_in.Range("D4").Value    'num
End Sub

[malin24]

ขอบคุณมากค่ะ