Hücreye Girilen Verinin Karakter Sayısını Belirleme

[insspire]

merhaba arkadaşlar;
konunun yeri belki doğru olmayabilir..bunun için şimdiden özür dilerim...
yapmak istediğim olay...

hücreye girilen verinin karakter sayısını belirleme..

örnek olarak;

a2 hücresine benim belirlediğim sayıda karakter ( 10 karakterden fazla girilmemesi gibi ) girilmesi..

 

[Ömer]

Merhaba,

Veri / Doğrulama / İzin verilen seçeneğinden Metin Uzunluğunda Arasında Yada Eşit bölümünden karakter sayısına sınırlama koyabilirsiniz..

.

 

[luckystrike]

merhaba,
benim de bir sorum olacak.
hücreye girilecek veriye tamamen sınırlama getirmek istiyorum. şöyle ki ;
b kolonuna girilecek tüm veriler aynı formatta ve aynı uzunlukta olacak. örnegin;

TT-PRF-HRP-012-00

yani :

2harf-3harf-3harf-3rakam-2rakam

toplam 17 karakter. şekil dışı bir veri girildiğinde hata versin mesela.

bu mumkun mudur acaba?
şimdiden teşekkurler.
selamlar...

 

[mahmuder]

Merhaba,

Veri / Doğrulama / İzin verilen seçeneğinden Metin Uzunluğunda Arasında Yada Eşit bölümünden karakter sayısına sınırlama koyabilirsiniz..

.

Konu başlığı geçmiş tarihli de olsa öğrenilmeyen bilgi her zaman yenidir.
Benim hazırlamam gereken bir tablom var satıra girilen fazladan karakterler otomatik olarak yok sayılamaz mı

Satırımda en fazla 6 karakter olacak 7. karakteri girdiğimde ben girsem dahi silebilir mi
Örnek: MAHMUTER yazdım ama MAHMUT olacak şekilde
Teşekkürler

 

[YUSUF44]

Sayfanın kod bölümüne aşağıdaki kodları yapıştırınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

Yalnız bu kodlar sayfadaki tüm hücreler için geçerlidir. Bu kodları kaydettikten sorna herhangi bir hücreye girdiğiniz tüm veriler, türüne bakılmaksızın ilk 6 karakteri kaydedilir.

eğer sadece belirli hücrelerde ya da sütunlarda/satırlarda bu işlem olacaksa onu target içine range olarak belirtmeniz gerekir.

Örneğin sadece B sütunu için aşağıdaki şekilde:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

C5, C18 ve D6 hücreleri için ise aşağıdaki şekidle olmalıdır:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("c5, c18, d6")) Is Nothing Then Exit Sub
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

 

[mahmuder]

Sayfanın kod bölümüne aşağıdaki kodları yapıştırınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

Yalnız bu kodlar sayfadaki tüm hücreler için geçerlidir. Bu kodları kaydettikten sorna herhangi bir hücreye girdiğiniz tüm veriler, türüne bakılmaksızın ilk 6 karakteri kaydedilir.

eğer sadece belirli hücrelerde ya da sütunlarda/satırlarda bu işlem olacaksa onu target içine range olarak belirtmeniz gerekir.

Örneğin sadece B sütunu için aşağıdaki şekilde:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

C5, C18 ve D6 hücreleri için ise aşağıdaki şekidle olmalıdır:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("c5, c18, d6")) Is Nothing Then Exit Sub
If Len(Target) > 6 Then
Target = Left(Target, 6)
End If
End Sub

Kardeş Özür dilerim tabloya uygulayamadım . Tablomu ekte sunuyorum formülü D sütununa 15 karakterle sınırlandıracak şekilde uyarlarsanız sevinirim.Selam ve dua ile

 

[YUSUF44]

Bu hücreye uygulanacak bir işlem değildir. Hangi sayfada uygulayacaksanız sayfa sekmesinin üstünde sağ tıklayıp Kod görüntüle deyin ve bu kodları çıkan sayfaya yapıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("c5, c18, d6")) Is Nothing Then Exit Sub 
If Len(Target) > 6 Then 
Target = Left(Target, 6) 
End If 
End Sub