สอบถาม Code VBA ส่งข้อมูลจากชีทหนึ่งไปชีทหนึ่ง

[tigerwit]

จากไฟลที่แนบมา
ต้องการส่งข้อมูลจาก sheet12 ไป sheet1
โดยให้เซล B6 เป็นตันไป เป็นตัวเลข เรียงลำดับลงมา (โดยไม่ต้องใส่สูตร ใน B6)
ต้องปรับโค๊ดอย่างไรครับ

Code: Select all

Sub RecordCheck()
Dim mylastrow As Long
Application.ScreenUpdating = False
        If Range("B3").Value = "" Then
           MsgBox ("คุณยังไม่กรอกรายการ !!!")
           Range("C9").Select
    Else
    If Range("C9").Value = "" Then
        MsgBox ("ยังไม่กรอกชื่อผู้รับเช็ค !!!")
        Range("C9").Select
    Else
    If Range("C10").Value = "" Then
        MsgBox ("ยังไม่กรอกเลขที่เช็ค !!!")
        Range("C10").Select
    Else
    If Range("C11").Value = "" Then
        MsgBox ("ยังไม่กรอกวันที่ออกเช็ค")
        Range("C11").Select
    Else
  
  mylastrow = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1
  		Sheet1.Range("B" & mylastrow).Value = 1
    	Range("C3").Copy
        	Sheet1.Range("F" & mylastrow).PasteSpecial xlPasteValues
    	Range("C10").Copy
        	Sheet1.Range("D" & mylastrow).PasteSpecial xlPasteValues
    	Range("C11").Copy
        	Sheet1.Range("C" & mylastrow).PasteSpecial xlPasteValues
    	Range("C9").Copy
        Sheet1.Range("E" & mylastrow).PasteSpecial xlPasteValues
    	Range("C5").Copy
        	Sheet1.Range("G" & mylastrow).PasteSpecial xlPasteValues
    	Range("C7").Copy
        	Sheet1.Range("H" & mylastrow).PasteSpecial xlPasteValues
    	Range("C8").Copy
        	Sheet1.Range("I" & mylastrow).PasteSpecial xlPasteValues

	Application.CutCopyMode = False
	MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว", vbInformation, "Save Record"

End If
End If
End If
End If
        Application.ScreenUpdating = True
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub RecordCheck()
    Dim mylastrow As Long
    Dim lc As Variant
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    
    Set sh = Sheet12
    If sh.Range("B3").Value = "" Then
        MsgBox ("คุณยังไม่กรอกรายการ !!!")
        sh.Range("C9").Select
    ElseIf sh.Range("C9").Value = "" Then
        MsgBox ("ยังไม่กรอกชื่อผู้รับเช็ค !!!")
        sh.Range("C9").Select
    ElseIf sh.Range("C10").Value = "" Then
        MsgBox ("ยังไม่กรอกเลขที่เช็ค !!!")
        sh.Range("C10").Select
    ElseIf sh.Range("C11").Value = "" Then
        MsgBox ("ยังไม่กรอกวันที่ออกเช็ค")
        sh.Range("C11").Select
    Else
        With Sheet1
            mylastrow = .Range("C" & .Rows.Count).End(xlUp).Row + 1
            Set lastNum = .Range("c" & .Rows.Count).End(xlUp).Offset(0, -1)
            If Not IsNumeric(lastNum) Then
                lastNum = 1
            Else
                lastNum = lastNum + 1
            End If
            .Range("B" & mylastrow).Value = lastNum
            .Range("F" & mylastrow).Value = sh.Range("C3").Value
            .Range("D" & mylastrow).Value = sh.Range("c10").Value
            .Range("C" & mylastrow).Value = sh.Range("c11").Value
            .Range("E" & mylastrow).Value = sh.Range("c9").Value
            .Range("G" & mylastrow).Value = sh.Range("c5").Value
            .Range("H" & mylastrow).Value = sh.Range("c7").Value
            .Range("I" & mylastrow).Value = sh.Range("c8").Value
        
            Application.CutCopyMode = False
            MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว", vbInformation, "Save Record"
        End With
    End If

    Application.ScreenUpdating = True
End Sub

[tigerwit]

ขอบคุณครับ