Transferring values to another workbook

[BradleyN1]

Sorry I meant sheet not workbook

Hi

I have 1 workbook, example, I have 1 sheet named 'Calls', in cell C4 a value will be entered for example '1 day'
I have another sheet on the bottom 'Collection' I want it to log/copy '1 day', from A1. But I still want this info to remain on 'Collection' even when '1 day' is deleted. Then I want it to jump onto row A2 ready for when a value is input again

So,
'1 day' is inputted into C4
On the other sheet starting from A1 it will log '1 day' then jump onto the next line when anything else is inputted onto C4

Hope that makes sense

Thanks

 

[BradleyN1]

Please help

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your "Calls" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in C4 and exit the cell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C4")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim bottomA As Long
    bottomA = Sheets("Collection").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Collection").Range("A1") <> "" Then
        Sheets("Collection").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Target
    Else
        Sheets("Collection").Range("A" & bottomA) = Target
    End If
    Application.ScreenUpdating = True
End Sub

 

[BradleyN1]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your "Calls" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in C4 and exit the cell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C4")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim bottomA As Long
    bottomA = Sheets("Collection").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Collection").Range("A1") <> "" Then
        Sheets("Collection").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Target
    Else
        Sheets("Collection").Range("A" & bottomA) = Target
    End If
    Application.ScreenUpdating = True
End Sub

You help is greatly appreciated, many thanks

 

[mumps]

You are very welcome.