Hücreye, Sınırlı Miktarda Sayı Girmek

[1Al2Ver]

Merhaba,

"Personel_Bilgileri" isimli sayfada ;

J4 hücresine 11 karakter'den az yada fazla girildiğinde,
K4 hücresine 14 karakter'den az yada fazla girildiğinde,

fazla veya az girilen sayı adedini mesaj ile belirten ve J4 için 11 karakter, K4 için 14 karakter girilmesine, (buton olmadan) zorlayan makroyu rica ediyorum,

Teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J4:K4]) Is Nothing Then Exit Sub
If Target.Column = 10 And Len(Target.Value) <> 11 Then Target.Offset(0, 0).Select
If Target.Column = 11 And Len(Target.Value) <> 14 Then Target.Offset(0, 0).Select
End Sub

 

[1Al2Ver]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J4:K4]) Is Nothing Then Exit Sub
If Target.Column = 10 And Len(Target.Value) <> 11 Then Target.Offset(0, 0).Select
If Target.Column = 11 And Len(Target.Value) <> 14 Then Target.Offset(0, 0).Select
End Sub

Sayın Necdet Yeşertener merhaba,

Öncelikle cevap için teşekkür ederim, ancak formül anılan hücrelere 11 ve 14 karakter için bir zorlama yapmadı, teşekkür ederim.

 

[Necdet]

Merhaba,

Neden makro ile düşündüm ki?

Veri doğrulama bunun için tam biçilmiş kaftan

 

[uzmanamele]

merhaba

alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ([j4,k4])) Is Nothing Then Exit Sub
If Len(Target) <> 11 Then
uzunluk = IIf(Len(Target) < 11, "boyu kısa kalmış!", "o kadar uzun boylu değil!")
MsgBox Target.Address & " " & uzunluk
End If
End Sub

 

[1Al2Ver]

Merhaba,

Neden makro ile düşündüm ki?

Veri doğrulama bunun için tam biçilmiş kaftan

Sayın Necdet Yeşertener merhaba,

Veri doğrulama ile de olabilir, rica etsem ilgili formülleri yazarmısınız ?

 

[Necdet]

Merhaba,

J4 İçin Veri Doğrulama

• Veri
• Veri Doğrulama
• İzin Verilen - Metin Uzunluğu
• Veri - Eşit
• Uzunluk - 11

K4 İçin Veri Doğrulamayı yaparsınız artık benzer yöntemle

 

[1Al2Ver]

merhaba

alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ([j4,k4])) Is Nothing Then Exit Sub
If Len(Target) <> 11 Then
uzunluk = IIf(Len(Target) < 11, "boyu kısa kalmış!", "o kadar uzun boylu değil!")
MsgBox Target.Address & " " & uzunluk
End If
End Sub

Sayın uzmanamele merhaba,

Alternatif çözüm için teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Merhaba,

J4 İçin Veri Doğrulama

• Veri
• Veri Doğrulama
• İzin Verilen - Metin Uzunluğu
• Veri - Eşit
• Uzunluk - 11

K4 İçin Veri Doğrulamayı yaparsınız artık benzer yöntemle

Sayın Necdet Yeşertener merhaba,

Çözüm için teşekkür ederim,

Saygılarımla.

 

[baydeniro]

Teşekkürler paylaşım için