Code gezocht

[Valentin]

Wie kan mij helpen het volgende te realiseren?

Een nieuw bestand aanmaken met hetzelfde aantal zichtbare bladen en dezelfde bladnamen als het momenteel geopende bestand.
Op elk van de bladen van het nieuwe bestand in de cellen A1 tot en met A10 een verwijzing plaatsen naar de cellen C1 tot en met C10 van de corresponderende bladen van het geopend bestand .

 

[popipipo]

De vraag is nu 80 keer gelezen en nog steeds geen reactie.
Dit betekend meestal dat de vraag onduidelijk is.
Een xls bestandje plaatsen verduidelijkt de vraag meestal.

 

[HSV]

Zoiets?

Sub cpy()
 ThisWorkbook.SaveCopyAs (ActiveWorkbook.Path & "\Kopie.xls")
  Workbooks.Open ActiveWorkbook.Path & "\Kopie.xls"
   Dim iws As Integer
    For iws = 1 To Sheets.Count
  With Workbooks("Kopie.xls").Sheets(iws)
    .Range("A1:A10").Value = ThisWorkbook.Sheets(iws).Range("C1:C10").Value
    .Range("C1:C10").ClearContents
   End With
  Next iws
 Workbooks("Kopie.xls").Close SaveChanges:=True
End Sub

 

[Valentin]

De code is bijna het gene wat ik wil bekomen.

Kan de code nog aangepast worden zodanig dat wanneer er in het originele bestand iets wijzigt dat de wijziging dan bij het openen van de copy geupdate wordt?

 

[HSV]

In ThisWorkbook.

Private Sub Workbook_Open()
 Dim iws As Integer
  For iws = 1 To Sheets.Count
   With Workbooks("Origineel.xls").Sheets(iws).UsedRange
    Sheets(iws).Range(.Address) = .Value
   End With
  Next iws
End Sub

 

[Valentin]

Dank voor de oplossing