Hello, I'm a normie that knows nothing about VBA. Was hoping someone might be able to lend a hand, and I appreciate any and all help
I'm trying to link multiple cells from different sheets to each other such that if I change one value on one sheet the value will change in the other referenced cell and vice versa. Here is an example of the cells I need to be linked:
Sheet1 C17 <---> Sheet3 C14
Sheet1 C7 <---> Sheet4 C14
Sheet2 D16 <---> Sheet3 D20
Is there a way to make a bunch of things structured like the following that i found on another thread (that I don't understand at all lol)?
Private Sub Workbook_SheetChange1(ByVal Sh As Object, ByVal Target As Range)
If UCase(Sh.Name) = "SHEET1" Or UCase(Sh.Name) = "SHEET2" Then
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
Application.EnableEvents = False
If UCase(Target.Parent.Name) = "SHEET1" Then
Sheet2.Range("a1") = Target
Else
Sheet1.Range("a1") = Target
End If
Application.EnableEvents = True
End If
End If
End Sub
How do I change to range to match the cells I need?
I'm trying to link multiple cells from different sheets to each other such that if I change one value on one sheet the value will change in the other referenced cell and vice versa. Here is an example of the cells I need to be linked:
Sheet1 C17 <---> Sheet3 C14
Sheet1 C7 <---> Sheet4 C14
Sheet2 D16 <---> Sheet3 D20
Is there a way to make a bunch of things structured like the following that i found on another thread (that I don't understand at all lol)?
Private Sub Workbook_SheetChange1(ByVal Sh As Object, ByVal Target As Range)
If UCase(Sh.Name) = "SHEET1" Or UCase(Sh.Name) = "SHEET2" Then
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
Application.EnableEvents = False
If UCase(Target.Parent.Name) = "SHEET1" Then
Sheet2.Range("a1") = Target
Else
Sheet1.Range("a1") = Target
End If
Application.EnableEvents = True
End If
End If
End Sub
How do I change to range to match the cells I need?