Çözüldü Bir Rakamı Yan Yana Yazdırma

TAM 365 versiyonuna uygun bir konu aslında. diğer sürümler için nasıl formüller gelecek ben de merak ediyorum.

excel 2016 ve üzeri için alternatif

365 sürümü için :

365 versiyonunda metinböl, metinbirleştir gibi formüllerle çok basitçe yapılabilir ama sizin profilde excel 2010 yazıyor. Kendim dizi formülleri ile yapmaya uğraştım sayıları parçalayıp 1. 2. gibi şekle sokabiliyorum ama ouşan diziyi birleştirmeyi 365 formülleri kullanmadan yapamadım. Ama VBA ile kabul ederseniz çözüm,
Bir module bu kodları yapıştırın:

Function NOKTABIRLESTIR(hucre1 As Variant) As String
Dim i As Integer, metin1 As String
For i = 1 To Len(hucre1) - 1
metin1 = metin1 & Mid(hucre1, i, 1) & "."
Next i
NOKTABIRLESTIR = metin1 & Right(hucre1, 1)
End Function

B1 hücresine klasik formülleri yazar gibi şuu yazın:
=NOKTABIRLESTIR(A1)

Teşekkür ederim arkadaşlar uygulayıp dönüş yapacağım

Excel 2016 kullanıyorum profilde eskisi kalmış düzelteyim

Excel2016 da da maalesef
METİNBİRLEŞTİR ve ARALIKBİRLEŞTİR işlevleri yok. Bu işlevler Excel2019 ve üzeri versiyonlarda mevcut.

A1 hücresinde yazan Sayının en fazla KAÇ olacağını bilmiyorum. Şu halde sizin için en uygun çözüm (Makro ile) KTF ile çözüm olacaktır diye düşünüyorum.

Yine de formülle çözüm arıyorsanız, yardımcı kolon kullanarak (yardımcı kolonu isterseniz gizleyebilirsiniz) çözüme gidebilirsiniz.

Eğer A1 hücresindeki sayı en fazla 9 olacak derseniz NBD işlevi ile de bir çözüme gidebilirsiniz. 9 dan büyük değerler için çalışmayacaktır. (15 basamak sınırı nedeniyle)

Sözünü ettiğim formülle çözümleri resimde göstermeye çalıştım.


Yardımcı kolon kullanılacaksa B2 hücresindeki formül (aşağıya doğru kopyalanır)
=EĞER(SATIR(A1)<=$A$1;EĞER(SATIR(A1)=1;1;$B1&"."&SATIR(A1));"")

9 a kadarki sayılar için formül :
=PARÇAAL(YERİNEKOY(METNEÇEVİR(NBD(9;SATIR(DOLAYLI("1:"&A1))*10^A1);YİNELE("\.0";A1));".0";".");2;255)
ya da biraz sadeleştirilmiş olarak (Zaten Tek basamak olacağı için ".0" değiştirilmesi işlemine gerek yok)
=DEĞİŞTİR(METNEÇEVİR(NBD(9;SATIR(DOLAYLI("1:"&A1))*10^A1);YİNELE("\.0";A1));1;1;"")

askan' Alıntı:

excel 2016 ve üzeri için alternatif

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

Excell 2016 da #AD? hatası verdi sayın askan

Teşekkür ederim arkadaşlar. Elinize sağlık.
Biraz uzun oldu ama yardımcı alan kullanmadan kendimce eşitse formülünü uygulayarak 25 e kadar alacak şekilde aşağıdaki gibi bir çözüm buldum.
Bu işlemi daha kısa nasıl yapabilirim.
=EĞER(A1=1;"1.";EĞER(A1=2;"1.2.";EĞER(A1=3;"1.2.3.";EĞER(A1=4;"1.2.3.4.";EĞER(A1=5;"1.2.3.4.5.";EĞER(A1=6;"1.2.3.4.5.6.";EĞER(A1=7;"1.2.3.4.5.6.7.";EĞER(A1=8;"1.2.3.4.5.6.7.8.";EĞER(A1=9;"1.2.3.4.5.6.7.8.9.";EĞER(A1=10;"1.2.3.4.5.6.7.8.9.10.";EĞER(A1=11;"1.2.3.4.5.6.7.8.9.10.11.";EĞER(A1=12;"1.2.3.4.5.6.7.8.9.10.11.12.";EĞER(A1=13;"1.2.3.4.5.6.7.8.9.10.11.12.13.";EĞER(A1=14;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.";EĞER(A1=15;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.";EĞER(A1=16;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.";EĞER(A1=17;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.";EĞER(A1=18;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.";EĞER(A1=19;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.";EĞER(A1=20;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.";EĞER(A1=21;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.";EĞER(A1=22;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.";EĞER(A1=23;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.";EĞER(A1=24;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.";EĞER(A1=25;"1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.";"")))))))))))))))))))))))))

Harikasınız sayın halily elinize sağlık

Konuyla ilgilenen herkese teşekkrü ederim