alt alta sıralama

[joey22]

arkadaşlar merhaba
yanyana virgülle yazılan yazıyı ben alt alta ve virgulsüz yazmak istiyorum. o kadar çok varki bunun kolay bir formülü var mı..

örnek olarak bir tane ekledim .

 

[zafer]

Merhaba

Makro ile isterseniz aşağıdaki dosyayı inceleyiniz.

 

[joey22]

tşkler ama formülle olmasını istiyorum

 

[Ali]

Kullanıcı tanımlı bir fonksiyonlada yapılabilir.

B1 hücresine =ayır($A$1;SATIR(A1);",") yazıp aşağı çekebilirsiniz.

Örnek ektedir.

 

[Merhum İdris SERDAR]

Formülsüz, Macrosuz çözüm;

1. İfadeyi kullanmadığınız bir hücreye taşıyın. O Hücrede iken Data/Text to Column / Delimited/ Comma'yı seçerseniz, ifade sütunlara parçalanmış olur.

2. Bu parçalanmış ifadenin olduğu satırı seçip, Edit/Copy dedikten sonra, koyacağınz yere gelip, Edit/Paste Special/Transpose seçip yapıştırırsanız istediğiniz olur.

 

[joey22]

harikasınız arkadaşlar..
çok teşekkür ederim hepinize. en kolayı yurttaş arkadaşın anlattığıymış.çok saol

 

[Ali]

tşkler ama formülle olmasını istiyorum

Siz böyle deyince mecburen formüllü bir çözüm sunma çabasına girdik.

 

[a.akyurek]

Kullanıcı tanımlı bir fonksiyonlada yapılabilir.

B1 hücresine =ayır($A$1;SATIR(A1);",") yazıp aşağı çekebilirsiniz.

Örnek ektedir.

=AYIR($A$1,ROWS($B$1:B1),",")

=AYIR($A$1;SATIRLAR($B$1:B1);",")

 

[Necdet]

AYIR fonksiyonun ingilizcesi nedir?

 

[Merhum İdris SERDAR]

AYIR fonksiyonun ingilizcesi nedir?

"AYIR" diye yerleşik bir fonksiyon mevcut değil.
Bunu Sayın Ali Bey aşağıdaki kodlarla kullanıcı tanımlı bir fonksiyon yaratmış.

Option Explicit

Function ayır(Txt, n, Ayırıc&#305 As String
Dim Txt1 As String, temperament As String
Dim Elemansayısı As Integer, i As Integer
Dim Karekter As String
Txt1 = Txt
If Ayırıcı = Chr(32) Then Txt1 = Application.Trim(Txt1)
If Right(Txt1, Len(Txt1)) <> Ay&#305;r&#305;c&#305; Then _
Txt1 = Txt1 & Ay&#305;r&#305;c&#305;
Elemansay&#305;s&#305; = 0
Karekter = ""
For i = 1 To Len(Txt1)
If Mid(Txt1, i, 1) = Ay&#305;r&#305;c&#305; Then
Elemansay&#305;s&#305; = Elemansay&#305;s&#305; + 1
If Elemansay&#305;s&#305; = n Then

ay&#305;r = Karekter
Exit Function
Else
Karekter = ""
End If
Else
Karekter = Karekter & Mid(Txt1, i, 1)
End If
Next i
ay&#305;r = ""
End Function

 

[Ali]

=AYIR($A$1,ROWS($B$1:B1),",")

=AYIR($A$1;SATIRLAR($B$1:B1);",")

Hocam Türkçeye çevirince satırlar gibi oluyor ama Excelde SATIRSAY olacak

=AYIR($A$1;SATIRSAY($B$1:B1);",")

 

[a.akyurek]

Hocam Türkçeye çevirince satırlar gibi oluyor ama Excelde SATIRSAY olacak

=AYIR($A$1;SATIRSAY($B$1:B1);",")

SATIRSAY gerçekten güzel bir adlandırma...

 

[Necdet]

Rezil oldum, dosyayı incelemeden sordum :roll:

 

[Merhum İdris SERDAR]

Rezil oldum, dosyayı incelemeden sordum :roll:

Üzülmeyin. Arada bir herkes boşluğa düşer. Biz sizi "çok, çok iyi" biliyoruz.

Ben de yanıtımı verdiğimde sizin bunu %100 bildiğinizden emindim. "Dur bakalım." dedim. Necdet Bey buna nasıl bir yanıt verecek?