Snasui Excel Forum

Code: Select all

Sub Macro_Savedata()

    Dim msgValue As VbMsgBoxResult

    msgValue = MsgBox("ท่านต้องการ บันทึกรายการเครื่องมือในเอกสารใบนี้ ลงในฐานข้อมูลการเบิกยืม/คืน ใช่หรือไม่ ?", vbYesNo + vbInformation, "Confirmation")

    If msgValue = vbNo Then Exit Sub
    
    Sheets("Addrequisition1").Select
    'If copy
    If Range("B3") <> "" Then
        Range("B2:O2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
            Else
                Range("B2:O2").Select
                Selection.Copy
    End If
    
    Sheets("DatabaseREQSIT").Select
    'If Paste
    If Range("A6") <> "" Then
        Range("A5").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Else
                Range("A6").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
    End If

        
    Call Macro_ClearData
    
    Sheets("Home").Select
        
End Sub