hücreye değer girişleri

[EmirhanG]

Merhaba arkadaşlar.... sizlerden ricam

a1:a100 hüçrelerine sadece metin girilmektedir yani isimler girilmektedir. Bu hüçrelere rakam vb. şeyler girilmeye çalışıldığında uyarı mesajı versin ve giriş engellesin istiyorum....

b1:b100 hücrelerine ise rakamlar girilmektedir.Bu hücrelerede metin vb. şeyler girilmeye çalışıldığında uyarı mesajı versin ve giriş engellensin istiyorum......

c1:c100 hüçrelerine ise fiyatlar girilmektedir,yine bu hücrelere metin vb.girildiğinde uyarı versin ve engellesin ve girilen rakamlarıda ytl. cinsinden yapsın istiyorum.....Kusuruma kalmayın arkadaşlar belki çok oluyorum ama mümkünseee...... teşekürler

 

[Seyit Tiken]

A ve B sütunlarına veri girerek deneyiniz.

 

[dolphinisin]

bu işlemi nasıl yaptınız?

 

[Seyit Tiken]

Veri Doğrulama'ya bakın.

 

[EmirhanG]

teşekürler arkadaş ama c1:c100 sutunları için istediklerim hakkındada yardımlarınızı bekliyorum.....
bi de bunları veri doğrulama değilde kotlarla yapmamız mümkünmü.....? Teşekürler.......

 

[Mahmut Bayram]

Ekteki örneği inceleyiniz.

 

[EmirhanG]

İlgilenen ve emeği gecen tüm arkadaşlara teşekürler... ama ben bunları yapabilecek kodları istemiştim

 

[Seyit Tiken]

Ekli dosyayı tetkik ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 7 And WorksheetFunction.IsNumber(Target) Then
MsgBox "Metin Giriniz"
Target = ""
Exit Sub
ElseIf Target.Column = 8 And WorksheetFunction.IsText(Target) Then
MsgBox "Sayı Giriniz"
Target = ""
Exit Sub
End If
End Sub