goto code

[thst]

Hallo allemaal,

Als ik in mijn sheet in cel p102 als uitkomst een 1 of een emailadres heb.
Hoe kan ik dat in een VBA code verwerken.

If [p102] = 1 Then (verder gaan met de code, volgende regel overslaan)
.CC = Range("P102").Value & "" ( neem emailadres in p102 en ga verder met code)

Angela

 

[edmoor]

Select Case Range("P102").Value
    Case "1"
        Code voor Verder wanneer 1
    Case emailadres
        Code voor Verder wanneer email adres
End Select

 

[thst]

Beste Edmoor,

Bij deze code geeft die in mijn e-mail een leeg veld in CC, zowel bij de 1 als bij een email

Select Case Range("P102").Value
    Case "1"
        Case .CC = Range("P102").Value & "" 'vul hier een 2e mail adres in
        
End Select

Angela

 

[edmoor]

Ik denk niet dat je m'n voorbeeldje helemaal hebt begrepen.

Select Case Range("P102").Value 'Kijk naar de inhoud van cel P102
    Case "1" 'Als het een 1 is
        'Plaats dan hier de code die dan moet worden uitgevoerd

    Case "EMAILADRES" 'Als het een email adres is
        'Plaats dan hier de code die dan moet worden uitgevoerd
End Select

Wat je controle is om te kijken of P102 een email adres bevat weet ik uiteraard niet.

 

[thst]

Beste Edmoor,

Bedankt dat je me hebt willen helpen.

Het werkt nu.Top

Angela