Simple input box problem

[paulsolar]

Hi All

i very rarely ever use an input box so I'm not very good at them

I am trying to use one to enter just a number in a cell, it's entering the number in the cell but then causing an error, the error debugs back "If Intersect(Target, Range("B3")) = "Standard pontoon berth per metre" Then"

It's Friday afternoon and I'm running out of time and temperament, my lap top is about to get thrown through a window, closely followed by what is now left of my hair having torn most of it out with frustration

Any help would be greatly appreciated

Cheers

Paul

Private Sub worksheet_change(ByVal Target As Range)

If Intersect(Target, Range("B3")) = "Standard pontoon berth per metre" Then

Range("F2").Value = InputBox("Enter boat length in metres.", "Boat length")

End If

End Sub

 

[Joe4]

What exactly are you attempting to do here?

If Intersect(Target, Range("B3")) = "Standard pontoon berth per metre" Then

You use INTERSECT to see if your two ranges overlap. It simply returns TRUE or FALSE.
To set them equal to something makes no sense.

Perhaps this is what you want?

Private Sub worksheet_change(ByVal Target As Range)

If Not (Intersect(Target, Range("B3")) is Nothing) Then
    If Range("B3") = "Standard pontoon berth per metre" Then
        Range("F2").Value = InputBox("Enter boat length in metres.", "Boat length")
    End If
End If

End Sub

If that does not do what you want, please explain exactly how you want this to work, in plain English.

 

[paulsolar]

Many Thanks Joe, that was a quick reply and worked perfectly.

I just copied a bit of code I'd written before, i never looked at the sub title. I'm getting to old for this now.

have a lovely weekend

cheers

Paul

 

[Joe4]

You are welcome.

Have a good weekend too!