Hücre Karakter Sayısı

[ataköylü-59]

A sütunundaki verilerin karakter sayıları C sütununda görülen şekilde 16 karaktere eşitlenecek
Buda A sütunundaki verilerin soldan birinci 9 sayısından sonrasına, gerektiği kadar 0 ilave edilerek C sütununda görüldüğü üzere 16 karaktere tamamlayan bir formül ile yapılmasını istirham ederim. Tabi mümkün mü değil mi bilemedim.
Yardımcı olacak üstad ve arkadaşlara şimdiden teşekkür ederim.

İndir Hücreye Karakter

Dosyayı indir Hücreye Karakter

dosya.co

 

[EmrExcel16]

A sütunundaki verilerin karakter sayıları C sütununda görülen şekilde 16 karaktere eşitlenecek
Buda A sütunundaki verilerin soldan birinci 9 sayısından sonrasına, gerektiği kadar 0 ilave edilerek C sütununda görüldüğü üzere 16 karaktere tamamlayan bir formül ile yapılmasını istirham ederim. Tabi mümkün mü değil mi bilemedim.
Yardımcı olacak üstad ve arkadaşlara şimdiden teşekkür ederim.

İndir Hücreye Karakter

Dosyayı indir Hücreye Karakter

dosya.co

Merhaba ,

Makrolu çözüm isterseniz , aşağıdaki kodları deneyebilirsiniz.

Sub Test()
    Dim x, y, ekle
    For x = 2 To Cells(Rows.Count, 1).End(3).Row
        For y = Len(Cells(x, 1)) To 15
            ekle = ekle & "0"
        Next
        Cells(x, 5).NumberFormat = "@"
        Cells(x, 5) = Left(Cells(x, 1), WorksheetFunction.Search(9, Cells(x, 1))) & ekle & Right(Cells(x, 1), Len(Cells(x, 1)) - WorksheetFunction.Search(9, Cells(x, 1)))
        ekle = ""
    Next
End Sub

 

[ataköylü-59]

Sayın[U] EmrExcel16[/U]
Emeğiniz için çok teşekkür ederim. Bu her halde işimi görecek bir Kod. Lakin ben Excel fonksiyonlarından yapılmış bir formülle olmasını istemiştim. Her ne ise yine de çok teşekkür eder iyi akşamlar dilerim.

 

[Korhan Ayhan]

Deneyiniz.

=A2&YİNELE(0;16-UZUNLUK(A2))

 

[çıtır]

Dosyanız.Link ekledim.
https://www.dosyaupload.com/flS2

 

[EmrExcel16]

O zaman bu şekilde olur .

=SOLDAN(A2;MBUL(9;A2))&YİNELE(0;16-UZUNLUK(A2))&SAĞDAN(A2;UZUNLUK(A2)-MBUL(9;A2))

 

[ataköylü-59]

Sayın Korhan beyin Formülü olmadı. Sayın Çıtır beyin Çözümüne ise ben ulaşamıyorum İkinize de teşekkür ederim.

 

[EmrExcel16]

Benim gönderdiğim formülü denediniz mi ?

 

[ataköylü-59]

O zaman bu şekilde olur .

=SOLDAN(A2;MBUL(9;A2))&YİNELE(0;16-UZUNLUK(A2))&SAĞDAN(A2;UZUNLUK(A2)-MBUL(9;A2))

Sayın EmrExcel16 bey
Bak bu oldu işte. Çok çok teşekkür ederim. Bu tam istediğim gibi. İyi geceler dilerim.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.

 

[çıtır]

?

 

[EmrExcel16]

.

 

[ataköylü-59]

Tamam sayın Emr bey
Benim veri alanım ilk 9 dan sonra daima sıfırla devam ediyor. ve Formülünüz de ilave edilecek yeteri kadar sıfırı ilave ediyor. Teşekkürler hepinize efendim.

 

[çıtır]

Sayın Çıtır üstadım , sorun nedir , tam olarak ben anlamadım.
çıkan sonuç = 9000000010000067

istenilen 9 dan sonrasına 16 karaktere tamamlayana kadar 0 eklenmesi idi , bir yeri mi atladım acaba.

Sayın EmrExcel16
9 İsteği dikkatimden kaçmış.Sizin çözümünüz doğru mesajımı kaldırdım.Çözümünüz ve dikkatiniz için tebrik ederim.İyi çalışmalar.

 

[Korhan Ayhan]

Ben de telefondan yazmıştım.

& işareti yerine yanlışlıkla - yazmışım. Güncelledim ama tam çözüm olurmu bilemedim.

 

[ataköylü-59]

Sayın Korhan bey hocamızın güncellemiş olduğu formül, karakter sayısını 16 ya eşitliyor. Ancak ilave edilen 0 ları hücre verisinin sağına ilave ediyor. Bizim veri alanımızda ise soldan sağa doğru bulunacak ilk 9 sayısının sağına koyması gerekiyor.
Sayın çıtır üstadımızın yazmış olduğu kod ise istediğimiz işlemi yapıyor. Sayın Korhan bey, ve bir hayli emek sarf eden sayın Çıtır beye de ayrıca teşekkür eder sağlıklar dilerim.