###"."####"."### formati

[taner3106]

###"."####"."### formatini nasil yaptirabilirim ki. yani hücre formatina bu sekilde yazdim ama bunu sadece rakamlar icin uyguluyor. harf dahil oldugunda hicbir formatlama yapmiyor.
011.VXED.7P4
1U5.1R51.549
gibi lazim bana. Bunu makroyla ( hücrenin yakin tarafina command_button koydum ve bu buttona basilinca ayarlayabiliyorum) basarabiliyorum ama acaba makrosuz bir cözümü var midir.

Ayrica Hücreye girilen karakter sayisini sinirlandirma imkani var midir. Sadece iki karakter girilebilsin mesela ve sadece rakam ya da sadece Harf girilebilsin.

Tesekkür ediyorum.

 

[Levent Menteşoğlu]

Bence butona bağladığınız kodu worksheet_change olayına yazın. Böylece hücreye veriyi girdiğinizde kod kendiliğinden çalışacaktır.

 

[Seyit Tiken]

Aşağıdaki Hücre Biçimlendirme formülü, belli krakterdeki sayısal değerleri görünmez yapar. Onun dışında görünür yapar(formül çubuğunda gözükür).
Hücre Biçimlendirme > Genel > İsteğe Uyarlanmış, [>9999]Genel;;;\] şeklinde yazıp deneyiniz.

 

[taner3106]

Sayin leventm ilginize tesekkür ediyorum. Dediginiz gibi Worksheet_Change olayina denedim ama ilk olarak yapiyor sonra yine ayni hücrede degisiklik oldugu icin bu defa hücre icindeki degeri alip yine asagidaki makro calisiyor ve taa ki durum ilk üc karakter ve de saginda alti tane nokta olana dek sürüyor. yani bir kere calismiyor. bunu bir kere calisacak hale nasil getirebilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$13" Then
a = Sheets("AUFTRAGSSCHEIN").Range("i13").Value
b = Mid(a, 1, 3)
c = Mid(a, 4, 4)
d = Mid(a, 8, 3)
Sheets("AUFTRAGSSCHEIN").Range("i13").Value = b & "." & c & "." & d
End If
End Sub



Sayin Seyit Tiken sizin de ilginize tesekkür ediyorum. Ama acikcasi tam olarak anlayamadim cözümünüzü. Bir dosyayla gönderebilirmisiniz rica etsem.

Diger iki soruma da cevap var mi acaba.(Hücreye girilen karakter sayisini sinirlama ve girilen karakterin sinirlandirilmasi(sadece harf;sadece rakam).
Tesekkür ediyorum.

Not: If Mid(a, 4, 1) = "." Then End
Bu satiri 3. satira yazinca durdu. Tabii Sorumu sorumu sorduktan sonra bu cözüm aklima geldi.

 

[Seyit Tiken]

Ekli dosyadaki Veri Doğrulama'yı inceleyiniz.

 

[taner3106]

Sayin Seyit Tiken tam aradigim gibi ama ben nasil-nerden yapabilirim. Tamam hücreyi kopyalayarak lazim olan yerlere ekleyebilirim ama karaktergiris sayisini degistiremiyorum. Bana nasil ve nerden yapildigini kisaca yazabilir misiniz.
Tesekkür edereim.

 

[taner3106]

Tamam buldum. Gecerlilik altindan yapiyoruz.