Reset macro voor subdeel blad

[henri2500]

Hallo allemaal,

Ik ben op zoek naar hulp voor het maken van een macro die voor mij de volgende actie verricht:

Met een klik op de reset knop, moet een deel van werkblad A (sectie te specificeren) worden teruggezet naar de beginstatus (te vinden in werkblad B, zelfde sectie). In werkblad B staat dus de onbewerkte nooit aan te tasten versie van werkblad A. Zou zoiets te programmeren zijn?

Alvast bedankt!

 

[edmoor]

Zoiets:

Sheets("A").Range("A1:Z25") = Sheets("B").Range("A1:Z25")

 

[HSV]

Of:

Sub hsv() 
 Sheets(Array("A", "B")).FillAcrossSheets Sheets("B").Range("a1:b20")
End Sub