If Intersect

[astanix]

Can someone troubleshoot this code for me please?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1,B2")) Is Nothing Then
   Exit Sub
 Else
      If Intersect(Target, Range("B1")) Then
        Application.EnableEvents = False
        Range("B2").Formula = "=(B1 * 2)"
        Application.EnableEvents = True
   ElseIf Intersect(Target, Range("B2")) Then
        Application.EnableEvents = False
        Range("B1").Formula = "=(B2 / 2)"
        Application.EnableEvents = True

  End If
  End If
End Sub

It works when I input into B1, but gives me an error on input of B2.

[shg]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    
    If Target.Address = "$B$1" Then
        Range("B2").Formula = "=2*B1"
    ElseIf Target.Address = "$B$2" Then
        Range("B1").Formula = "=B2/2"
    End If
    
    Application.EnableEvents = True
End Sub

[Paul]

Hi Astanix, you might try this instead:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1,B2")) Is Nothing Then
    Application.EnableEvents = False
    If Target.Address = "$B$1" Then
        Range("B2").Formula = "=B1*2"
    Else
        Range("B1").Formula = "=B2/2"
    End If
    Application.EnableEvents = True
End If
End Sub

[stanleydgromjr]

astanix,

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address = "$B$1" Then
  Application.EnableEvents = False
  Range("B2").Formula = "=(B1 * 2)"
  Application.EnableEvents = True
ElseIf Target.Address = "$B$2" Then
  Application.EnableEvents = False
  Range("B1").Formula = "=(B2 / 2)"
  Application.EnableEvents = True
End If
End Sub

[astanix]

I didn't try them all, just Paul's and it works. I was having trouble figuring out how to do the Target.Address, didn't know about that.
Thanks a lot to all of you who helped