Copy certain cells before save from a worksheet in one workbook to a worksheet in another

**Marianne Rachmann** · 09-15-2012, 12:17 PM

I want to copy cells “A” to “K” from the last row of the worksheet “Payments received” to the next available row of the “Reports”-workbook’s worksheet “Record of payments”, only when I save “Payments received”. The columns of “Record of payments” are identical to the columns of the worksheet “Payments received”. I managed to copy the entire last row or only range “A” as soon as data is entered. All my attempts to copy A to K before save end in a yellow highlighted code!

I will really appreciate your help.

**HaHoBe** · 09-16-2012, 11:19 AM

Hi, Marianne Rachmann,

maybe you could have shown us your code.

Please adjust the drive and folder as well as maybe the fileformat for the workbook (here: xls). The code goes into ThisWorkbook of the workbook holding "Payment received":

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wbRep As Workbook
Dim wsRep As Worksheet
Dim lngFirst As Long
Dim lngLast As Long

On Error Resume Next
Set wbRep = Workbooks("Reports.xls")

On Error GoTo 0
If wbRep Is Nothing Then
  Set wbRep = Workbooks.Open("E:\Reports.xls")
End If
Set wsRep = wbRep.Sheets("Record of payments")

With wsRep
  lngFirst = .Cells(Rows.Count, "A").End(xlUp).Row + 1
End With

With ThisWorkbook.Sheets("Payment received")
  lngLast = .Cells(Rows.Count, "A").End(xlUp).Row
  .Range("A" & lngLast).Resize(1, 4).Copy wsRep.Cells(lngFirst, "A")
End With

'comment next line out if workbook should be closed
wbRep.Close savechanges:=True

Set wsRep = Nothing
Set wbRep = Nothing
End Sub

Ciao,
Holger

**Marianne Rachmann** · 09-22-2012, 04:21 PM

Sorry, I meant to thank you, HaHoBe!

**Marianne Rachmann** · 09-22-2012, 04:17 PM

Thank you so much for your solution, Ciao.

**Cutter** · 09-22-2012, 07:16 PM

@ Marianne Rachmann

Welcome to the forum.

Based on your last post it seems that you are satisfied with the solution(s) you've received but you haven't marked your thread as SOLVED. I'll do that for you now but please keep in mind for your future threads that Rule #9 requires you to do that yourself. If your problem has not been solved you can use Thread Tools (located above your first post) and choose "Mark this thread as unsolved".
Thanks.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

Copy certain cells before save from a worksheet in one workbook to a worksheet in another

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Copy certain cells before save from a worksheet in one workbook to a worksheet in another

Re: Copy certain cells before save from a worksheet in one workbook to a worksheet in anot

Re: Copy certain cells before save from a worksheet in one workbook to a worksheet in anot

Re: Copy certain cells before save from a worksheet in one workbook to a worksheet in anot

Re: Copy certain cells before save from a worksheet in one workbook to a worksheet in anot

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions