Excel Forum

Code: Select all

With Worksheets("Enterthedata")
    .Range("N1") = .Range("N1") + 1
End With

Code: Select all

If Worksheets("Enterthedata").Range("N1") = "" Then
   Set re = wbShare.Sheets("Sheet1").Range("B2").Range("E") + 1
End If

Code: Select all

With Worksheets("Enterthedata")
    .Range("N1") = .Range("N1") + 1
End With

Code: Select all

e = wbShare.sheets("abcd").range("a" & rows.count).end(xlup).value

Code: Select all

e = wbShare.sheets("abcd").range("a" & rows.count).end(xlup).value+1

Code: Select all

With Worksheets("Enterthedata")
    .Range("N1") = .Range("N1" & e)
End With

Code: Select all

With wbShare
     e = wbShare.Sheets("Sheet1").Range("e" & Rows.Count).End(xlUp).Value + 1
     Worksheets("Enterthedata").Range("N1").Value = e
End With

Code: Select all

With wbShare
     e = .Sheets("Sheet1").Range("e" & Rows.Count).End(xlUp).Value + 1
     FormBook.Worksheets("Enterthedata").Range("N1").Value = e
End With

Code: Select all

e = .Sheets("Sheet1").Range("e" & Rows.Count).End(xlUp).Value + 1
FormBook.Worksheets("Enterthedata").Range("N1").Value = e

Code: Select all

With wbShare
        o = .Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp) = formBook.Worksheets("Enterthedata").Range("n2")
End With

Code: Select all

Sub PasteData()
        Dim wbShare As Workbook
        Dim formBook As Workbook
        Dim rTarget As Range
        Dim i As Integer
        Dim e As Long
        Dim o As Long
        Dim rs As Range
        Dim rt As Range
        Dim rd As Range
        Set formBook = ThisWorkbook
        Set wbShare = Workbooks("PoWbShare.xlsx")
         Application.ScreenUpdating = False
        With wbShare
                e = .Sheets("Sheet1").Range("e" & Rows.Count).End(xlUp).Value + 1
                formBook.Worksheets("Enterthedata").Range("m2").Value = e
                With wbShare
                    o = .Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp) = formBook.Worksheets("Enterthedata").Range("n2")
                End With
        End With
        
        With formBook
                i = .Worksheets("Enterthedata").Range("C225").Value
        End With
         wbShare.Save
       
        With formBook
                i = .Worksheets("Enterthedata").Range("C225").Value
        End With
        With formBook.Worksheets("Template")
                Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
        End With
                Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                        If formBook.Worksheets("Enterthedata").Range("C225") = True Then
                        End If
        With formBook
                i = formBook.Sheets("Enterthedata").Range("C225").Value
        End With
        
        If formBook.Worksheets("Enterthedata").Range("B204") = "" 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
        formBook.Activate
        Range("D2").Select
        Application.CutCopyMode = False
        formBook.Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,D222, E204:F220,O204,N204:N220").ClearContents
        Application.ScreenUpdating = True
End Sub