A1 hücresindeki mail adresi hotmail yada msn ise...

[umutsancar]

A1 hücresindeki mail adresi hotmail yada msn ise msgbox "Hotmail-Msn" yazsın, değilse hiçbirşey yazmasın.


Bunu makro ile nasıl yapabilirim?

Saygılarımla

 

[Kemal Demir]

[vb:1:4c7488b5b0]Sub belirt()
If Cells(1, 1).Value Like "*msn*" Or Cells(1, 1).Value Like "*hotmail*" Then
MsgBox ("Msn-Hotmail")
Else
End If
End Sub[/vb:1:4c7488b5b0]
Zannedersem İşinizi Görür

 

[Korhan Ayhan]

Selamlar,

Bu kontrolü A1 hücresi değiştiğindemi yapacaksınız yoksa butonlamı yapacaksınız?

 

[umutsancar]

Buton ile yapıcam.

 

[Kemal Demir]

[vb:1:7334ae1136]Sub belirt()
If Cells(1, 1).Value Like "*msn*" Or Cells(1, 1).Value Like "*hotmail*" Then
MsgBox ("Msn-Hotmail")
Else
End If
End Sub[/vb:1:7334ae1136]
Zannedersem İşinizi Görür

Bu kod işinizi Görmedi mi

Kodu Butona bağlamanız Yeterli Olacaktır.

 

[umutsancar]

Bu kodlar işimi gördü, COST_CONTROL'ün sorusuna istinaden cevap verdiydim, teşekkür ederim. Bu kodda ufak ta olsa sorun çıkma ihtimali var sanırım. Son şekli bu olsun. Rakkas, çok teşekkür ederim.

Sub belirt()
If Cells(1, 1).Value Like "*msn.com*" Or Cells(1, 1).Value Like "*hotmail.com*" Then
MsgBox ("Msn-Hotmail")
Else
End If
End Sub