block if without end if

[bralew]

Hi,

I'm trying to fill a cell with information but i'm getting the "block if error". any help would be gratefully received.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("O9").Value = YES Then
        Range("X9").Value = "[email protected]"


 If Range("O9").Value = NO Then
        Range("X9").Value = ""
        Else
   
        Range("X9").ClearContents
    End If
    Application.EnableEvents = True
    
End Sub

[buran]

You don't need the second If at all:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("O9").Value = "YES" Then
        Range("X9").Value = "[email protected]"
    Else
        Range("X9").ClearContents
    End If
    Application.EnableEvents = True
End Sub

[Pepe Le Mokko]

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

http://www.mrexcel.com/forum/excel-q...-if-error.html
http://www.excelguru.ca/forums/showt...ed=1#post27447

[bralew]

OK, no problem

When I choose, the No from pull down menu, the cell is still populated, is there any way i can remove the .hotmail when i select no?

[buran]

ClearContents and setting Value property to "" (vbNullString) yield exactly the same result

[bralew]

thats how i understood it, cant understand why selecting no will not clear the box, would it have anything to do with my data validation of yes, no and clear ?

[buran]

upload a workbook

[bralew]

Here it is: just a data validation pull down menu

[bralew]

ok gimme two mins

[xlnitwit]

Hi,

Your validation cell is Y5 rather than O9.

[bralew]

Just one more thing. Is it possible to add the extra email to the merged cell above?. I've tried but the added email replaces those already populated by the box. I can get the code to produce two emails but it would reduce errors if I could send only one?

[bralew]

aww yeah sorry, i cut and paste and missed an update. Thanks very much for that.

[xlnitwit]

How would you need it to be added- separated by a comma/semicolon/line feed?

[bralew]

yeah, I've used semi-colon to separate 4 emails as Outlook does.

[xlnitwit]

You need only test if the cell is empty first

If Range("X9").value = vbnullstring then
    Range("X9").value = "email address"
Else
    Range("X9").value = Range("X9").value & "; " & "email address"
End If

[bralew]

wonderful, thank you ever so much

[bralew]

aw sorry its still replaces the e-mail in the merged cells rather than adds to it. Have i pasted the code correctly?

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Range("Y5").Value = "YES" Then
        Range("X3").Value = "[email protected];[email protected];[email protected];[email protected]"
        
        If Range("X3").Value = vbNullString Then
    Range("X3").Value = "email address"
Else
    Range("X3").Value = Range("X3").Value & "; " & "email address"
End If
    Else
        Range("X3").ClearContents
    End If
    Application.EnableEvents = True
End Sub

I suspect that I will have to unmerge the cells in order to get it to work?

[xlnitwit]

I believe we are talking at cross-purposes. If it is always the same set of email addresses then you can use the code you had before. If not, can you clarify exactly what you meant?

There is little point testing for an empty cell on the line after you populate that cell, and I was not recommending you actually put the words "email address" in to the cell- that was to be replaced with the relevant actual address.

[bralew]

Sorry mate, it's been a long day, i'll re-evaluate. I'm out of office till morning. Again, thank you for your guidance and wisdom