การบันทึกข้อมูลข้าม Sheet ต่อท้ายรายการที่มีอยู่แล้ว

[myjrcenter]

ผมต้องการ สร้างปุ่มมาโคร เพื่อจะส่งข้อมูลในเซลล์ C8 ใน Sheet1 ไปเก็บไว้ใน Sheet2 ต่อกันไปเรื่อยๆ ต้องเขียนสูตรอย่างไรครับ รบกวนด้วยนะครับ

ทดสอบ บิลค่าไฟ.xlsm

[snasui]

สำหรับ VBA ให้ทำตามกฎข้อ 5 ด้านบนครับ

[myjrcenter]

ผมเขียน VBA โดยตรงไม่เป็น ครับอาจารย์ เคยแต่บันทึกมาโคร แล้วก็เข้าไปดูใน VBA
ส่วนปัญหาของผมนั้น ลองบันทึก มาโครแล้วได้แบบนี้ครับ
Sub Save()
'
' Save áÁâ¤Ã
'

'
Range("C8:I9").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
With ActiveCell.Characters(Start:=1, Length:=39).Font
.Name = "Angsana New"
.FontStyle = "¸ÃÃÁ´Ò"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Sheets("Sheet2").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
Range("B3").Select
Sheets("Sheet1").Select
Range("C8:I9").Select
End Sub

มันเลยเหมือนจะไม่ตรงประเด็นซักหน่อย
ผมรับฝากชำระค่าไฟฟ้าอยู่บ้านนอกครับ ก็เลยอยากเก็บข้อมูลลูกค้าไว้หน่อย
รบกวนท่านผู้รู้ทั้งหลายชี้แนะด้วยนะครับ แต่ถ้าผิดเงื่อนไขยังไงก็ขออภัยด้วยครับ

[snasui]

แนบ Code นั้นมาในไฟล์แล้วแนบไฟล์มาใหม่ด้วยครับ ทำตัวอย่างคำตอบที่ต้องการมาให้เห็นเด่นชัดว่าหาก Code ทำงานถูกต้องจะได้ผลลัพธ์เป็นอย่างไร จะได้เข้าใจตรงกัน

สำหรับการโพสต์ Code ให้กลับไปอ่านกฎที่ผมแจ้งไปอีกรอบเพื่อจะได้ทราบว่าการโพสต์ให้แสดงเป็น Code ทำเช่นไร เพื่อจะได้สะดวกในการอ่านและ Copy ไปทดสอบครับ

[myjrcenter]

ขอโทษครับ ผมอาจไม่ค่อยเข้าใจเท่าไหร่ เอาใหม่

Code: Select all

Sub Save()
'
' Save áÁâ¤Ã
'

'
    Range("C8:I9").Select
    ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
    With ActiveCell.Characters(Start:=1, Length:=39).Font
        .Name = "Angsana New"
        .FontStyle = "¸ÃÃÁ´Ò"
        .Size = 18
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Sheets("Sheet2").Select
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "|09940001655010002000986744158083117573"
    Range("B3").Select
    Sheets("Sheet1").Select
    Range("C8:I9").Select
End Sub

คือหลังจากกด ปุ่มบันทึกแล้ว ต้องการให้ข้อมูลจาก เซลล์ C8 ซึ่งเป็นหมายเลขบาร์โค๊ดของการไฟฟ้า ใน Sheet1 ไปจัดเก็บใน ใน Sheet2 เซลล์ B2,3,4 ต่อลงไปเรื่อยๆ ครับ

[bank9597]

ลองดูโค๊ดนี้ครับ

Code: Select all

Sub Save()

    Sheets("Sheet1").Range("C8").Copy
    With Sheets("Sheet2")
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
    End With

End Sub

[myjrcenter]

ได้แล้วครับ ขอบคุณมากๆครับ