Snasui Excel Forum

Code: Select all

With formBook.Worksheets("Template")
                Set ri = .Range(.Range("Q2"), .Range("R" & ii + 1))
            End With
            Set ri = wbShare.Sheets("DataRM_ex").Range("AQ1048576").End(xlUp).Offset(1, 0)
            If formBook.Worksheets("Form").Range("B5") = True Then
                MsgBox "Please check your data. This transaction already recorded."
                Exit Sub
            End If

Code: Select all

Sub PasteDataRM_ex()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim i As Integer
        Dim ii As Integer
        Dim e As Long
        Dim rs As Range
        Dim rt As Range
        Dim ri As Range
        Dim it As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("MR_BookShare.xlsx")

    With wbShare
            e = .Sheets("DataRM_ex").Range("B" & Rows.Count).End(xlUp).Value + 1
            formBook.Worksheets("Form").Range("J1").Value = e
    End With

            i = Worksheets("Form").Range("B5").Value
            With formBook.Worksheets("Template")
                Set rs = .Range(.Range("A2"), .Range("P" & i + 1))
            End With
             Set rt = wbShare.Sheets("DataRM_ex").Range("A1048576").End(xlUp).Offset(1, 0)
            If formBook.Worksheets("Form").Range("B5") = True Then
                MsgBox "Please check your data. This transaction already recorded."
                Exit Sub
            End If
            
             ii = Worksheets("Form").Range("B5")
            With formBook.Worksheets("Template")
                Set ri = .Range(.Range("Q2"), .Range("R" & ii + 1))
            End With
            Set ri = wbShare.Sheets("DataRM_ex").Range("AQ1048576").End(xlUp).Offset(1, 0)
            If formBook.Worksheets("Form").Range("B5") = True Then
                MsgBox "Please check your data. This transaction already recorded."
                Exit Sub
            End If
           
            If formBook.Worksheets("Form").Range("D4") = "" Then
                MsgBox "Your data is empty. Fill your data and click record button again."
                Exit Sub
            End If
            rs.Copy: rt.PasteSpecial xlPasteValues
            wbShare.Save
            formBook.Save
        
            Application.CutCopyMode = False
           formBook.Sheets("Form").Range("K7:K11,N7:N11").ClearContents
           
            Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Macro4()
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(R2C11:RC11,R2C5:RC5,RC5,R2C15:RC15,""งานฉีด"")-SUMIFS(R2C11:RC11,R2C5:RC5,RC5,R2C15:RC15,""จ่ายออก"")"
    Range("R2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(R2C12:RC12,R2C5:RC5,RC5,R2C15:RC15,""งานฉีด"")-SUMIFS(R2C12:RC12,R2C5:RC5,RC5,R2C15:RC15,""จ่ายออก"")"
    Range("S2").Select
End Sub

Code: Select all

Sub Macro7()
    Range("Q2").Select
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("Q2").Select
    ActiveSheet.Paste
    Windows("Form.xlsm").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("R2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("R2").Select
    ActiveSheet.Paste
    Range("Q14").Select
End Sub