Metinleri parçalı yazma?

[serkanatmis]

Bir dosya hazırlıyorum ve o dosyada vergi numaralarını daha sonra (copy-paste) şeklinde kullanmam gerektiğinden ve ilk rakamın sıfır olabileceğinden ilk karakteri ( ' ) kullanarak yazıyorum. Bunu yapmamın nedeni sıfır değerine daha sonra ihtiyaç duyabilmemden kaynaklanıyor. Dolayısıyla sayıları metin olarak görmekte. Sorunum şu:

Acaba bu şekildeki bir değeri hücre içinde parçalara ayırarak görüntülemek mümkün mü?

Örneğin: '0234567891 =====>> Görüntü : 023 456 7891

 

[Merhum İdris SERDAR]

Format/Cell/Number/Custom'ı aşağıdaki şekilde yapın.
Biçimlendir/Hücre/ Sayı/İsteğe Uyarlanmış

0### ### ####

 

[serkanatmis]

Metinleri parçalı yazma

Sayın yurttaş

İlginiz için teşekkürler ancak sorun 0 ı hücre içerisinde de göremememden kaynaklanıyor. Yani sıfırın hücre içeriğinde de yer alması gerekiyor.

0123456789 hücre içinde 123456789 şeklinde değil 0123456789 olarak yer almalı. Yani hem görüntüde hem de içerikte aynı şeyin olması lazım.

Tekrar teşekkürler. İyi çalışmalar..

 

[Seyit Tiken]

Örnek kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1:A20].NumberFormat = "0" & "000 000 000"
End Sub

Not : Yeni aklıma geldi. If komutuyla ilk verinin sıfırlı veya sıfırsız şeklinde yapabilirsinz. Yanlmıyorsam MAKROSUZDA yapılabilir.

 

[Merhum İdris SERDAR]

Sayın yurttaş

İlginiz için teşekkürler ancak sorun 0 ı hücre içerisinde de göremememden kaynaklanıyor. Yani sıfırın hücre içeriğinde de yer alması gerekiyor.

0123456789 hücre içinde 123456789 şeklinde değil 0123456789 olarak yer almalı. Yani hem görüntüde hem de içerikte aynı şeyin olması lazım.

Tekrar teşekkürler. İyi çalışmalar..

yukarıda belirttiğim yoldan bu kez;

0000000000

şeklinde yapın.

 

[Seyit Tiken]

İlgili dosyayı inceleyiniz.
A1 hücresine sıfırla başlayan ve sıfırla başlamayan 10 krakter sayı girip deneyiniz.

 

[serkanatmis]

İlgili dosyayı inceleyiniz.
A1 hücresine sıfırla başlayan ve sıfırla başlayan 10 krakter sayı girip deneyiniz.

Sayın Tiken F2 tuşuna basıp içeriğine girdiğimde 0123456789 olarak görmek istiyorum ama 123456789 olarak gözüküyor. İşlem yapınca ekranda aralıklı olarak gözüküyor ama içeriğine girince aslında orda 0 olmadığı gözüküyor bu belirttiğim konu vergi numarası olduğundan "0" ı yok sayamıyorum malesef

İlginiz için teşekkürler...

 

[Seyit Tiken]

Aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Len([A1].Value) = 9 Then
[A1] = "0" & NumberFormat = "000000000"
Else
NumberFormat = "0000000000"
End If
Application.EnableEvents = True
End Sub