esıt olmayan alanlar

[obenimm]

formul :=EĞER(BAĞ_DEĞ_SAY(BUL(" ";A18;BUL(" ";A18)+1))>0;SOLDAN(A18; BUL(" "; A18;BUL(" "; A18)+1)-1); SOLDAN(A18; BUL(" "; A18)-1))
bu formulu yazınca sıyahın sonuna 01 kısmınıda yazıyor,
ben 01 kısmını ıstemıyorum va soldan parça al ıle fılan satır sayamıyorum cunku bır suru verı var , satır sayıları esıt değil

 

[Korhan Ayhan]

Merhaba,

B1 hücresine aşağıdaki DİZİ formülünü uygulayıp denermisiniz.

=SOLDAN(A1;MİN(EĞER(ESAYIYSA(--PARÇAAL(A1;SATIR($1:$1024);1));SATIR($1:$1024);"-"))-2)

 

[obenimm]

malesef olmadı

 

[Murat OSMA]

Formülü yazıktan sonra, Formül Çubuğundayken Ctrl + shift + Enter tuşlarına basın.
Formülün başında ve sonunda {} işaretleri olacak. DİZİ formülünü bu şekilde bir deneyin..

Ya da Makro ile yapmak isterseniz; şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        Cells(i, "B") = Split(Cells(i, "A"), " ", -1)
    Next i
    i = Empty
End Sub

 

[obenimm]

boylede olmadı maalesef

 

[Murat OSMA]

Yanlış yapıyorsunuzdur...

Dosyayı ekliyorum..

 

[Murat OSMA]

Durum nedir, çözüldü mü ? :dusun:

 

[obenimm]

tesekkur ederım dosyayı aldım ,siz 2 ısmide yazabılmıssınız ama ben aynı formullerı uyguladıgımda sadece tek ısmı yazıyor...

 

[Korhan Ayhan]

Merhaba,

Siz uyguladığınız dosyanızın küçük halini foruma eklermisiniz.

Ben dizi formülü yanlış uyguladığınızı düşünüyorum.

Önerdiğim formülü forumdan kopyalayın.
B1 hücresindeyken F2 tuşuna basıp CTRL+V ile formülü hücreye yapıştırın. Hücreden çıkmadan cursor hücre içinde aktif haldeyken CTRL+SHIFT+ENTER tuşlarına beraber basıp işlemi tamamlayın.
Son olarak formülü alt hücrelere kopyalayın.

 

[Murat OSMA]

tesekkur ederım dosyayı aldım ,siz 2 ısmide yazabılmıssınız ama ben aynı formullerı uyguladıgımda sadece tek ısmı yazıyor...

Korhan Bey'in önerdiği formülde bir sorun görünmüyor, dediği gibi: uygulamada yanlış yapıyor olabilirsiniz.

Eğer benim verdiğim kodda bahsediyorsanız; ilk boşluk karakterine kadar olan isimleri aldırdım.

 

[obenimm]

dosya eklidir , size zahmet verdırıyorum kusura bakmayın ltf.

 

[Korhan Ayhan]

Merhaba,

Dediğim gibi DİZİ formülü yanlış uygulamışsınız.

Eklediğiniz dosya için tekrar tarif ediyorum;

B1 hücresindeki formülün başındaki "{" ve sonundaki "}" elle eklediğiniz sembolleri silin.
Yine B1 hücresi içindeyken CTRL+SHIFT+ENTER tuşlarına beraber basıp formül girişini tamamlayın.
Formül çubuğuna baktığınızda "{" ve "}" sembolleri otomatik olarak eklenecektir. Bunları elle kendiniz eklerseniz formül doğru sonuç üretmez.

Son olarak B1 hücresindeki formülü alt hücrelere kopyalayın.

 

[obenimm]

gercekten cok tesekkur ederım yardımlarınız ıcın , cok fazla ugrastırdım sizi ve Murat Bey'i.sonunda basarbildim

tekrar tesekkurler..

 

[Murat OSMA]

Elde var 1..

İyi günler...