celinhoud automatisch kopieren naar een ander workbook

[simal]

Hallo,
In een map heb ik 2 workbooks .Hoe kan ik bij verandering in een cel in een sheet van workbook 1 deze automatisch laten doorvoeren(kopiëren) in een andere cel in een sheet van workbook 2.
Is er een code die dat kan?
Graag hulp met dank

 

[WinteE]

    Range("A1:A7").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Winters\Mijn documenten\Test1.xls"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("Map2").Activate

Eenvoudigweg opgenomen met de Macro recorder. Probeer die ook eens.

Succes !

 

[simal]

Dank voor de snelle reactie. Ik probeer en laat iets weten.

 

[simal]

celinhoud automatisch kopiëren

Hallo,
Het lukt op deze manier :
Private Sub btnAlgemTot_Click()
Range("K20,K23,K24,K26").Select
Selection.Copy
ActiveWorkbook.FollowHyperlink ("Algemeen totaal Aladin.xls")

ActiveSheet.Paste

Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("Algemeen totaal Aladin.xls").Activate

End Sub

Maar in "Algemeen totaal Aladin.xls" zou een vast bepaalde cel , in dit geval B9 automatisch geactiveerd moeten zijn ook. Het lukt door deze cel op voorhand te activeren.
Indien niet komen de gekopiëerde cellen op een niet voorspelbare plaats te staan wat dus niet de bedoeling is vermits zij deel uitmaken van een optelling in dit workbook.
Nog een hint aub.
Dank

 

[snb]

Private Sub btnAlgemTot_Click()
  Range("K20,K23,K24,K26").Copy workbooks("Algemeen totaal Aladin.xls").range("A9")
  Workbooks("Algemeen totaal Aladin.xls").Save
End Sub

 

[simal]

celinhoud....

Beste dank voor de hints, het probleem is opgelost.

 

[Roncancio]

Beste dank voor de hints, het probleem is opgelost.

Mooi.:thumb:
Gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio