ช่วยด้วยครับ มาโคร บันทึกข้อมูลแล้วไม่ลงล่างครับ กลับไปทับค่าเดิม มีตัวอย่างครับ

[ballkoong]

ช่วยด้วยครับ มาโคร บันทึกข้อมูลแล้วไม่ลงล่างครับ กลับไปทับค่าเดิม

อยากเก็บข้อมูลเข้าไป แล้วบันทึกข้อมูล ไปเก็บไว้เรื่อยๆ
แต่ผมทำแล้ว ข้อมูลที่เข้าไป กลับไปทับค่าเดิมเสมอครับ

มีตัวอย่างครับ

[puriwutpokin]

ควรแนบโค้ดตามกฎข้อ 5 ด้วยครับครั้งหน้านะครับ
ตัวอย่างปรับโค้ดครับ

Code: Select all

Dim lRow As Long
lRow = Cells(Rows.Count, 10).End(xlUp).Row
    Range("B4:C4").Copy
    Range("J" & lRow).Select
    'Other code

[ballkoong]

ควรแนบโค้ดตามกฎข้อ 5 ด้วยครับครั้งหน้านะครับ
ตัวอย่างปรับโค้ดครับ

Code: Select all

Dim lRow As Long
lRow = Cells(Rows.Count, 10).End(xlUp).Row
    Range("B4:C4").Copy
    Range("J" & lRow).Select
    'Other code

ได้แล้วครับ อาจารย์ แต่ช่วยอธิบาย Code 2 บรรทัดแรก ให้หน่อยครับ
ผมยังไม่ค่อยเข้าใจครับ ขอบคุณมากๆ ครับ

[snasui]

บรรทัดแรกเป็นการประกาศตัวแปรให้ lRow มี Data Type เป็น Long ดูเพิ่มเติมได้จากที่นี่ว่า Data Type แต่ละแบบมีอะไรและเก็บค่าอะไรครับ https://docs.microsoft.com/en-us/office ... pe-summary

บรรทัดที่สองเป็นการกำหนดค่าให้กับตัวแปร โดยให้มีค่าเป็นค่าบรรทัดสุดท้ายของคอลัมน์ที่ 10 ที่มีข้อมูล

[ballkoong]

บรรทัดแรกเป็นการประกาศตัวแปรให้ lRow มี Data Type เป็น Long ดูเพิ่มเติมได้จากที่นี่ว่า Data Type แต่ละแบบมีอะไรและเก็บค่าอะไรครับ https://docs.microsoft.com/en-us/office ... pe-summary

บรรทัดที่สองเป็นการกำหนดค่าให้กับตัวแปร โดยให้มีค่าเป็นค่าบรรทัดสุดท้ายของคอลัมน์ที่ 10 ที่มีข้อมูล

ขอบคุณครับอาจารย์
แต่ขออีกนิดครับ คือผมจะเขียน ให้ข้อมูลที่บันทึกอยู่ คอลัมJ เหมือนเดิม แต่ ให้อยู่ใน Sheet ที่3 ต้องปรับ Code อย่างไรครับ
วันนี้ทำทั้งวันยังไม่ได้ครับ ช่วยผมด้วยนะครับ

โค๊ดตอนนี้ครับ

Sub Macro1()
'
' Macro1 Macro
'

'
Dim lRow As Long
lRow = Cells(Rows.Count, 10).End(xlUp).Row
Range("B4:C4").Copy
Range("J" & lRow).Select

ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4:C4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

[puriwutpokin]

ควรแนบโค้ดให้เป็นโค้ดตามกฏข้อ5​ และแนบไฟล์ล่าสุดมาด้วยครับ

[ballkoong]

ขอบคุณครับอาจารย์
แต่ขออีกนิดครับ คือผมจะเขียน ให้ข้อมูลที่บันทึกอยู่ คอลัมJ เหมือนเดิม แต่ ให้อยู่ใน Sheet ที่3 ต้องปรับ Code อย่างไรครับ
วันนี้ทำทั้งวันยังไม่ได้ครับ ช่วยผมด้วยนะครับ มีโค๊ต พร้อมไฟล์ ครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
Dim lRow As Long
lRow = Cells(Rows.Count, 10).End(xlUp).Row
Range("B4:C4").Copy
Range("J" & lRow).Select

ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4:C4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

[Totem]

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

Code: Select all

Sub Macro1()

Dim lRow As Long

       lRow = Sheets("sheet3").Cells(Rows.Count, 10).End(xlUp).Row
    
    With Sheets("sheet1")
    
                .Range("B4:C4").Copy
                Sheets("sheet3").Range("J" & lRow).Offset(1, 0).Range("A1"). _
                PasteSpecial Paste:=xlPasteValues
                
                Application.CutCopyMode = False
                
                .Range("B4:C4").ClearContents

    End With
        
End Sub