Snasui Excel Forum

Code: Select all

Sub PasteDataRM_ex()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim i As Integer
        Dim e As Long
        Dim rs As Range
        Dim rt 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
           
            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 Macro9()
    Range("Q2:Q4").Select
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("Q2").Select
    ActiveSheet.Paste
    Windows("Form.xlsm").Activate
    Range("R2:R4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MR_BookShare.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("R2").Select
    ActiveSheet.Paste
End Sub

Code: Select all

Range("R2").Select
    ActiveSheet.Paste

Code: Select all

Range("R" & rows.count).end(xlup).offset(1,0).Select
    ActiveSheet.Paste