• Merhaba, 22 Ocak 2020 Çarşamba günü sabah 08:00 ile 12:00 saatleri arasında forumun bulunduğu sunucuda genel bakım çalışması yapılacaktır.
    Bu sürenin tamamında olmasa da bir süreliğine forum geçici olarak erişilemez olacaktır. Bilgilerinize

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

orhantan92

Altın Üye
Katılım
3 Temmuz 2019
Mesajlar
8
Excel Vers. ve Dili
Türkçe
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
8,093
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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
8,093
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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.
 

orhantan92

Altın Üye
Katılım
3 Temmuz 2019
Mesajlar
8
Excel Vers. ve Dili
Türkçe
Yusuf Bey çok teşekkür ederim. Sorun halloldu. İlk fırsatta Altın Üye olacağım.
 

orhantan92

Altın Üye
Katılım
3 Temmuz 2019
Mesajlar
8
Excel Vers. ve Dili
Türkçe
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
8,093
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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.
 

orhantan92

Altın Üye
Katılım
3 Temmuz 2019
Mesajlar
8
Excel Vers. ve Dili
Türkçe
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
8,093
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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