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

Katılım
3 Temmuz 2019
Mesajlar
8
Beğeniler
2
Excel Vers. ve Dili
Türkçe
#1
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,511
Beğeniler
235
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#2
Gelen verinin biçimi metin olabilir. Örnek dosya yüklerseniz sorunu ve çözümünü daha iyi anlarız.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,511
Beğeniler
235
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#4
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.

1562151850659.png

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.
 
Katılım
3 Temmuz 2019
Mesajlar
8
Beğeniler
2
Excel Vers. ve Dili
Türkçe
#6
ayrıca yeri değil ama 'TLLU1607314' bu kodu 'TLLU160731-4' isteğe uyarlanmıştan nasıl düzenleyebilirim.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,511
Beğeniler
235
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#7
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:

Kod:
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.
 
Katılım
3 Temmuz 2019
Mesajlar
8
Beğeniler
2
Excel Vers. ve Dili
Türkçe
#8
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,511
Beğeniler
235
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#9
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:

PHP:
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
 
Üst