Kosula baglı olarak uyarı

[rekkezum]

Arkadaslar a1 e ahmet yazdıgımda b1 de kımlıgını sor yazmasını ıstıyorum nasıl yapabılırız.

 

[fedeal]

a1 doluysa,
=EĞER(a1<>"";"kimlik sor";"")
a1'de ahmet yazıyorsa,
=EĞER(a1="ahmet";"kimlik sor";"")
a1'de 3 ve fazla karakter girilmişse
=EĞER(UZUNLUK(a1)>=3;"kimlik sor";"")
sorunuz fonksiyon sorusuysa bunlar olabilir, makrolu çözüm ise,
ismi yazıp enter tuşuna basıyorsanız:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a65000")) Is Nothing Then Exit Sub
a = ActiveCell.Offset(-1, 0).Value
If Len(a) >= 3 Then MsgBox "kimlik sorun", , "rekkezum"
End Sub

sayfanın kod bölümüne kopyalayın,saygılar.(a sütunu isim sütunu)

 

[rekkezum]

tesekkur ettım dostum...

 

[baydeniro]

Teşekkürler