Sayın gardean;
Kodunuz şu şekilde olunca sanırım istediğinizi karşılıyor.
Kod:
Private Sub Açılan_Kutu17_Click()
If Metin36 > "5399999999" And Metin36 < "5500000000" Then
If Açılan_Kutu17 = "Vodafone" Then
Metin83.Value = "DIP"
Else
Metin83.Value = ""
End If
Else
Metin83.Value = ""
End If
End Sub
Sn gardean, sorunuza 01.04.2010 saat:18.05'de sn Hayri16 tarafından cevap verilmiş olmasına ve sizin 02.04.2010 16:36'da siteye girmiş olmanıza rağmen geri dönüş yapmadığınızı üzülerek tespit ettim.
Site Kuralları ile ilgili bu kadar çok hatırlatma yapılırken neden böyle bir tutum içerisindesiniz anlam veremiyorum. Uyarı seviyeniz her geçen gün yükselmekte. Lütfen biraz daha titiz olalım.
İlk öncelikli olarak işyerinden bağlanıyorum ve site beni hatırlıyor siteye daha yeni girebildim ve yeni deneyebildim daha cevabını da yazıyorum zaten şimdi. Ancak bildiğiniz gibi işyerinde bilgisayarlar ortak kullanılıyor. Bilgi işlemde calısan diğer arkadaslar siteyi incelemek için girmişler bunda benim uyarı almamı gerektiricek etken nedir tam olarak anlamış değilim.
İkinci olarak siteye girip benim online zamanlarım kontrol ediliyor bu güzel bir davranış üyelerin takibi açısından ancak aynı alanda üyelik tarihim de yazıyor mesaj sayım da belli ki yeni üyeyim bu durumda biraz daha tölerans gösterip en azından pm ile uyarmanız daha etik olmaz mı ?
Şimdi gelelim cevaba;
Syn Hayri16 hocam teşekkür ederim öncelikle verdiğin kodlar tam anlamıyla istediğimi karşıladı sorunsuz çalıştırdım sistemi teşekkür ederim ilginizden dolayı