cocowomble
Registered User.
- Local time
- Today, 05:12
- Joined
- May 25, 2014
- Messages
- 25
hi all, still very much learning to use VBA, so any help would be appreciated.
I have a sheet called "Overview", Sheet1, sheet2.
"Overview" column A is a list of names. I want each name in the list to mirror cell A1 in each sheet.
eg
Overview A1 = Sheet1 A1
Overview A2 = Sheet2 A1 and so on,
but if change the name in a Sheet, I want this to reflect on the overview.
I hope that makes sense.
I have managed to put some VBA together that will make it work for one sheet (below), but struggling to put the code together to update the multiple sheets. so now need to add in "range in A2 - sheet2 A1"
Code in "Overviews is currently:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Set r1 = Range("A1")
Set r2 = Sheets("Sheet1").Range("A1")
If Intersect(Target, r1) Is Nothing Then Exit Sub
Application.EnableEvents = False
r2.Value = r1.Value
Application.EnableEvents = True
End Sub
I have also added code in each of the sheets to make sure it updates the overview, which works fine.
I hope that all makes sense and appreciate any help you can provide.
ta coco
I have a sheet called "Overview", Sheet1, sheet2.
"Overview" column A is a list of names. I want each name in the list to mirror cell A1 in each sheet.
eg
Overview A1 = Sheet1 A1
Overview A2 = Sheet2 A1 and so on,
but if change the name in a Sheet, I want this to reflect on the overview.
I hope that makes sense.
I have managed to put some VBA together that will make it work for one sheet (below), but struggling to put the code together to update the multiple sheets. so now need to add in "range in A2 - sheet2 A1"
Code in "Overviews is currently:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Set r1 = Range("A1")
Set r2 = Sheets("Sheet1").Range("A1")
If Intersect(Target, r1) Is Nothing Then Exit Sub
Application.EnableEvents = False
r2.Value = r1.Value
Application.EnableEvents = True
End Sub
I have also added code in each of the sheets to make sure it updates the overview, which works fine.
I hope that all makes sense and appreciate any help you can provide.
ta coco