copier la colonne entière d'un Excel à un autre dépend du changement dans une valeur de cellule

Question

Mon exigence est chaque fois qu'il y a une mise à jour de la cellule "A1" de mon classeur principal (main.xlsm) feuille1, je dois copier cette ligne entière de données dans un Excel différent (par exemple working.xlsm). La feuille principale a des colonnes de A à M et la capture de données devrait se produire dépend du changement de données de cellule A1. Toutes les données sont conservées dans le second Excel et toutes les nouvelles données seront ajoutées à la ligne suivante.

J'ai ajouté le code ci-dessous à mon deuxième classeur (working.xlsm), où j'ai besoin de sauvegarder toutes les données, mais cela ne fonctionne pas. Je ne sais pas comment utiliser une gamme avec with fonction

Private Sub Worksheet_Calculate() 

With Sheet1 
    With .Cells(.Rows.Count, "B").End(xlUp) 
     If .Value <> Workbooks("main.xlsm").Worksheets("Sheet1").Range("A1").Val‌ue Then 
      .Offset(1).Value = Sheet1.Range("A:M").Value 
     End If 
    End With 
End With 

End Sub 

Answer 1

Ce code, si elles sont mises dans la feuille sur main.xlsm, copiez A1: M1 de main.xlsm à la première ligne vide de années working.xlsm Feuille1 chaque fois que A1 de la feuille est changé. Cela suppose que working.xlsm est actuellement ouvert aussi, pour référence.

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim ws As Worksheet 
Set ws = Workbooks("working").Sheets("Sheet1") 
If Not Intersect(Target, Range("A1")) Is Nothing Then 
    Range("A1:M1").Copy 
    ws.Range("A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues 
End If 
End Sub 

Est-ce ce que vous cherchiez?