"İsteğe Uyarlanmış" düzenleme yapılmıyor.

[orhantan92]

Merhabalar,

12 haneli numaralar var 20 satır. Bunları ' ## ## #### ###-# ' şeklinde bazılarında( excel bize mail ile geliyor) olurken bazılarında olmuyor. Çözümü nasıl olur?

 

[YUSUF44]

Gelen verinin biçimi metin olabilir. Örnek dosya yüklerseniz sorunu ve çözümünü daha iyi anlarız.

 

[orhantan92]

Cevabınız için teşekkür ederim hocam.
https://s7.dosya.tc/server15/5mgqc0/BSS_049.xlsm.html dosyanın linki

 

[YUSUF44]

Belirttiğim gibi veriler metin olarak biçimlenmiş.

Aşağıdaki ekran görüntüsünde göründüğü gibi verileri seçip sarı ünlem işaretli düğmeye basıp Sayıya dönüştür derseniz sayıya dönüşür ve istediğiniz sayı biçimini kullanabilirsiniz.



Başka bir yöntem de boş bir hücreye 1 yazın ve kopyalayın, verilerin olduğu hücreleri seçin, sağ tıklayıp özel yapıştır menüsünü açın, değerleri ve çarp seçeneklerini seçip işlemi tamamlayın.

 

[orhantan92]

Yusuf Bey çok teşekkür ederim. Sorun halloldu. İlk fırsatta Altın Üye olacağım.

 

[orhantan92]

ayrıca yeri değil ama 'TLLU1607314' bu kodu 'TLLU160731-4' isteğe uyarlanmıştan nasıl düzenleyebilirim.

 

[YUSUF44]

Metin verisinde biçimlendirme yapılamıyor diye biliyorum. Bunun yerine makroyla araya - ekleme işlemi yapılabilir. Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Makro "seçilen alanda" TLLU ile başlayan verilerin son rakamından önce - ekler:

Sub tllu()
Dim hucre As Range
    For Each hucre In Selection
        hucre.Select
        If Left(hucre, 4) = "TLLU" Then
            hucre = Left(WorksheetFunction.Trim(hucre), Len(WorksheetFunction.Trim(hucre)) - 1) & "-" & Right(WorksheetFunction.Trim(hucre), 1)
            
        End If
    Next
End Sub

Eğer seçili alanda değil de belirli bir alanda uygulama yapılması isteniyorsa Selection yerine [C1:C40] gibi hücre adresi kullanılabilir.

 

[orhantan92]

Dediğiniz gibi son söylediğiniz makroda oldu ama biraz eksik oldu Sadece tllu içeren kodlara * koyuyor. Listede expu,pssu kodlarına - koymuyor. 2 tane daha çalışma sayfası açarak çözdüm ama hepsine ayrı ayrı makro komutu vermek gerekiyor. Hepsini tek makroda toplayabilir miyim?

 

[YUSUF44]

Aslında eksik olmadı, siz ne istediyseniz ben ona göre yapmıştım. Eğer isteğiniz C sütunundaki her verinin son karakterinden önce "-" eklemek ise makroyu aşağıdaki şekilde değiştirebilirsiniz:

Sub tire()
son = WorksheetFunction.Max(5, Cells(Rows.Count, "C").End(3).Row)
Dim hucre As Range
    For Each hucre In Range("C5:C" & son)
        hucre = Left(WorksheetFunction.Trim(hucre), Len(WorksheetFunction.Trim(hucre)) - 1) & "-" & Right(WorksheetFunction.Trim(hucre), 1)
    Next
End Sub