VBA ขอสอบถามครับผมต้องการให้กด บันทึกแล้วข้อมูลบันทึกต่อกันเรื่อย

[bondham]

จากโค้ดด้านล้านต้องการกดปุ่มเซพแล้ว ข้อความจาก B4 กับ C4 บันทึกลงไปที่ E2 และ F2 ไปเรื่อยๆ
ตอนนี้ไม่รู้ติดตรงไหนครับ Code copy และเอามาแก้ไข พี่ๆท่านไหนรู้แนะนำทีครับ

และอนาคตเราสามารถให้มันเช็คเลขไม่ให้ซ้ำได้ต้องทำไงต่อครับ

Code: Select all

Option Explicit

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B2").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Sub adddata()
If Range("B4").Value = "" Then
MsgBox "Get Number", vbCritical + vbOKOnly, "Notify"
Exit Sub
End If

Dim r As Long
r = getLastRow(Sheet1, "E") + 1
Range("E" & r).Value = Range("B4").Value
Range("F" & r).Value = Range("C4").Value
End Sub

Function getLastRow(ByVal ws As Worksheet, ByVal col As String) As Long
    getLastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
    
End Function

Run Number Graphic April 2023.xlsm

(30.98 KiB) Downloaded 12 times

[snasui]

แก้ r = getLastRow(Sheet1, "E") + 1 เป็น r = getLastRow(Sheet2, "E") + 1 ครับ

[bondham]

Code: Select all

r = getLastRow(Sheet2, "E") + 1

แก้แล้วไม่ได้ครับ

[snasui]

เดิมอ้างอิงชีตไม่ถูกต้อง แก้แล้วต้องได้คำตอบครับ

ส่วนคอลัมน์ F เขียน Code ให้นำค่าจาก B4 มาใช้ หากต้องการนำ C4 มาใช้ก็ต้องแก้ไข Code ด้วยเช่นกันครับ