Copying a date from one workbook to another

[Denzil]

Hi

I Have a workbook with 3 worksheets in it, the Sheet named "Costomer info" has the date in cell C15 I then press a button that opens the sheet that requires the date putting in cell G7, I would like it to be automatically inserted when data is inserted to cell C10, so as soon as data is put into C10 the date is copied from C15 and put into G7

Is that Possible?

Many Thanks

Denzil

[VBA Noob]

This assumes the user changes the cell C10 instead of it being a formula

Right click "Customer Info" sheet > select view code > paste in the below.
Change sheet2 to your other sheet

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "C10" Then
    If Not IsEmpty(Target) Then
        Sheets("Sheet2").Range("G7").Value = Target.Value
    End If
End If
End Sub

VBA Noob

[Denzil]

Hi

Many Thanks for your Reply

Ive put the code in and changed "sheet 2" To the name of the file "Purchasing programme test" but nothing happens, Im not sure what the code does but it doesnt mention the cell C15 where the date is copied from,
When I press a button The document above is opened and information is filled in automatically from the workbook. cell c10 is the very first cell that would be filled I thought that be b a good way of triggering the copy of the date across, Hope that makes sense

Sorry if I didnt explain that well

Many Thanks

Denzil

[VBA Noob]

Sorry try

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "C10" Then
    If Not IsEmpty(Target) Then
        Sheets("Sheet2").Range("G7").Value = Range("C15").Value 
    End If
End If
End Sub

[Denzil]

Hi

THanks for the new code, Im not sure whether or not im doing something wrong but I still cant get it to work,
Ive added examples for you to see, any advice would be really appreciated

Many Thanks

Denzil

[VBA Noob]

Guess the title should of giving it away.

As you didn't mention workbook names I just assumed it was dealing with sheets in the same workbook


Try this in sheet Machine & Customer Details in Front Page.
C10 seems to be a merged cell say I made it B10

Note no error checking. So will fail if purchasing workbook is closed

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "B10" Then
    If Not IsEmpty(Target) Then
        Workbooks("Purchasing Programme test.xls").Sheets("Sheet1").Range("G7").Value = Range("C15").Value
    End If
End If
End Sub

VBA Noob