Enter a data an Excel cell I copy it to another Excel file

[LoganTrk]

Hello, I need that every time I enter a data an Excel cell I copy it to another Excel file, so that the one I had previously entered is not deleted, for example in the A2 cell in the aa.xlms file I entered the value "A" and then I click on the button of the macro, it is copied in the other file bb.xlms in cell A2. When you enter another value in A2 of the file aaa.xms the macro should copy it in cell A3 in the ahivo bb.xlms not replace what was previously entered. regards
Input “a” then “b” then “c “ ( aa.xlms)
Result (bb.xlms)

A

B

C

<tbody>
</tbody>

 

[ravisingh]

Hello, I need that every time I enter a data an Excel cell I copy it to another Excel file, so that the one I had previously entered is not deleted, for example in the A2 cell in the aa.xlms file I entered the value "A" and then I click on the button of the macro, it is copied in the other file bb.xlms in cell A2. When you enter another value in A2 of the file aaa.xms the macro should copy it in cell A3 in the ahivo bb.xlms not replace what was previously entered. regards
Input “a” then “b” then “c “ ( aa.xlms)
Result (bb.xlms)

A

B

C

<tbody>
</tbody>

Paste the following code in the VBA module of the worksheet where you are entering the data:
The code presumes the values will be poked in the next available cell in "Sheet1" worksheet of "Book1" (for the code to run Book1 must be open at the time of data entry)
Rename Book1 and Sheet1 as per your need and you should be good to go

Private Sub Worksheet_Change(ByVal Target As Range)    Dim WB As Workbook
    Set WB = Workbooks("Book1")
    Addr = "$A$2"
    If Target.Address = Addr Then
        WB.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Target.Value
     End If
End Sub

 

[LoganTrk]

Paste the following code in the VBA module of the worksheet where you are entering the data:
The code presumes the values will be poked in the next available cell in "Sheet1" worksheet of "Book1" (for the code to run Book1 must be open at the time of data entry)
Rename Book1 and Sheet1 as per your need and you should be good to go

Private Sub Worksheet_Change(ByVal Target As Range)    Dim WB As Workbook
    Set WB = Workbooks("Book1")
    Addr = "$A$2"
    If Target.Address = Addr Then
        WB.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Target.Value
     End If
End Sub

Why should the file be open? Is there any way in which the file is closed?

 

[ravisingh]

No simple way that I know of.
Please see:
http://forums.devshed.com/visual-ba...ng-data-closed-workbook-using-ado-329061.html