Yardim TuŞu

[mehteroglu1]

Sayin Üsdatlarim Benİm Ekde GÖnderdİĞİm Problemİmİ ÇÖzersenİz Sevİnİrİm Saygilarimla

 

[alpi]

Ekde GÖnderdİĞİm

??????????

 

[mehteroglu1]

Şİmdİ GÖnderdİm

Herkesden ÖzÜr Dİleyerek GÖnderİyorum Kusura Bakmayinn

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir modüle kopyalayın ve tüm butonları bu koda bağlayın.

Sub mesaj()
deg = Right(Application.Caller, 1)
Select Case deg
Case 1: [b6] = "MAKBUZ GİRİŞİNİ AD SOYAD KURUSUNUN SOL TARAFINDAN YAPACAKSINIZ"
Case 2: [b6] = "YAZDIR İLE İLGİLİ MESAJINIZI YAZIN."
Case 3: [b6] = "BİLGİ SAYFASI İLE İLGİLİ MESAJINIZI YAZIN."
End Select
End Sub

 

[mehteroglu1]

teşekkürler

yina harikasınız üsdadım herzaman olduğunuz gibi