Else Function

[Henrik-Chr]

I need som Help with this statement....

If cell ("C4:c11") is <50 then Msgbox "you Got" C4 " Left " & " You may Now Close Game By 2 or 3 Dart's to close game"

Ive try this Code

Please Login or Register  to view this content.

[Fluff13]

Maybe

Please Login or Register  to view this content.

[Mumps1]

Too late!!!

[Henrik-Chr]

it aint work

[Fluff13]

Care to supply some more information?
"it aint work" doesn't exactly give me much to go on

[Henrik-Chr]

LOl Right ….

I have put that code in from you and enter score in my cell When i Came to cell "C5" and have score left lower than 50 then it aint show Msgbox

send you a link to my file on PM

[Mumps1]

Are you entering the value in C5 manually or is the value a result of a formula?

[Fluff13]

Please upload the file to the thread.
to do that Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[Henrik-Chr]

value from e Formula

C5 = C6-B5

[Fluff13]

In that case try

Please Login or Register  to view this content.

[Henrik-Chr]

https://www.dropbox.com/s/25f0m4yne4...game.xlsm?dl=0

Link to my file

[Henrik-Chr]

as i can see it get Target value and that aint Right it is Left score there should be Showing in Msgbox

[Fluff13]

In that case simply remove the offset from target in the msgbox

[Henrik-Chr]

I not sure What you Mean By That

By The way I am No Expert i Google and find and try som VBA Codes and get them to Work

[Fluff13]

Just remove the part in red

Please Login or Register  to view this content.

[Henrik-Chr]

Thanks I just Copy and Past That Code you just Put up here and Now it work by Changing ("B5:B11") to ("C5:C11")

Thanks for Your Time to Help Mee

[Fluff13]

Glad to help & thanks for the feedback

[Henrik-Chr]

Hm a litle question more if i may

when i Get it on ("C5:C11") but also want it to work on ("E4:E9") how do i put that in the code

[Fluff13]

Based on your file try

Please Login or Register  to view this content.

[Henrik-Chr]

Hey Fluff13 i have now try the code and it works Ok
until i use my Clean cell Macro
then this error came up

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C4:C11,E4:E9,G4:G7,I3:I5,K3")) Is Nothing Then
If Target.Offset(, 1).Value < 50 Then MsgBox "You Got " & Target.Offset(, 1).Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

Runtime error 13 Type Mismatch and this line is Highlited in yellow

If Target.Offset(, 1).Value < 50 Then

Hope that was enough Info

my code for Clean cell is

Sub Nulstil50()
'
' Nulstil50 Makro
'

'
Range("J2:J3,H2:H5,F2:F7,D2:D9,B2:B11").Select
Range("B2").Activate
Selection.ClearContents
End Sub

[Fluff13]

Did you try the code I supplied in post#19, rather than your own version?

[Fluff13]

Also the code you have supplied in post#20 is probably not doing what you think it's doing.
Your code will trigger if ANY cell OTHER than the ones listed are changed.
This is because the code I supplied earlier had a typo

[Henrik-Chr]

see that's the mystic part of it

the code WORKs on every Colom it first when i want to Clean cell it get wrong

[Fluff13]

What happens if you key a value in A1?

[Henrik-Chr]

That was the Solution, Clear cell's and enter "0" to the cell and it works

Thanks