Parça al İle sonuclandıramadıgım Kod da yardımcı olabilirmisiniz?

[Kemal Demir]

Arkadaslar iyi akşamlar.

İsmetpaşa Mh. Kamerhatunyolu CengizCandaryolu Güneştepeyokuşu
İsmetpaşa Mh. Kamerhatunyolu CengizCandaryolu GüntaşApartmanıNumara

yukarıdaki adresler gibi elimde son kelimelerin uzunluk sayısı belli olmaksızın baya bir data mevcut.

Küçük bir örnek yolluyorum.Bu konuda yardımlarınız bekliyorum.

NOT:Eğer Forum içerisindeki örnekleri yanlıs uygulamadıysam sonkelimenin uzunluklarından dolayı hatalı sonuclara ulaştım.Bu yüzden boyle bir konuyu tekrar açtım.

İyi Akşamlar.

 

[Ali]

F2 hücrenize

=SAĞDAN(E2;UZUNLUK(E2)-MAK(SATIR(DOLAYLI("1:"&UZUNLUK(E2)))*(PARÇAAL(E2;SATIR(DOLAYLI("1:"&UZUNLUK(E2)));1)=" ")))

yazıp Ctrl+Shift+Enter tuşuna basarak

{=SAĞDAN(E2;UZUNLUK(E2)-MAK(SATIR(DOLAYLI("1:"&UZUNLUK(E2)))*(PARÇAAL(E2;SATIR(DOLAYLI("1:"&UZUNLUK(E2)));1)=" ")))}

dizi formülü elde ederek aşağı doğru çekin.

 

[Kemal Demir]

İyi Akşamlar Sn.fructose

Kucuk bir kod buldum forum içerisinde.

Kod'u aşagıya yazıyorum.

Kod işimi gördü ama mantık olarak algılayamadıgım bir durum söz konusu.
A : D kolonları dolu ıken kod çalışıyor boş iken çalışmıyor.Buradaki mantık'ı açıklayabilirmisiniz?

KOD:

Sub kirp()
For a = 2 To [a65536].End(3).Row
For b = Len(Cells(a, 5)) To 1 Step -1
deg = Mid(Cells(a, 5), b, 1)
If deg = " " Then GoTo 10
birlestir = deg & birlestir
Next
10 Cells(a, 6) = birlestir
birlestir = ""
Cells(a, 5) = Left(Cells(a, 5), Len(Cells(a, 5)) - Len(Cells(a, 6)))
Next
End Sub

A : D kolonun dol olmasını gerektıren ıfade göremedım yoksa yanlısmı algılıyorum kodu.

Teşekkur Ederim.

 

[Ali]

Bu makroya göre hücre içindeki son kelime diğer hücreye aktarılarak değer alınan ilk hücrenin son kelimesi silinir ama burada D kolonunun dolu olmasının engellemesini engelleyecek birşey yok.
Yanlış hatırlamıyorsam kodlar Levent Bey'e ait olması lazım.Bende size bu kodları önerecektim siz bulmuşsunuz.

 

[Kemal Demir]

Sn.Fructose,

Herşeyden dolayı ilginden çok memnun kaldım.Evet Kodlar Levent Bey'e ait.

Bir tarihte bir soru içerisinde ek olarak soruyu ben sormustum.

O Esnada İlgili sorunum A kolonunda oldugu için kod tabiri cayiz ise Cuk diye oturdu.

Ama aynı durum şimdi e kolonu için geçerli ve kod'un calısmadıgı gördüm.

sonra ne olduysa a ve d kolonları arasını doldurdum sonuc aldım.

ama kodda bunu anlatan durumu çözemedim.

Bir fikriniz varsa yardımcı olurmusunuz.

 

[Korhan Ayhan]

Selamlar,

Yukarıdaki koddaki;

For a = 2 To [a65536].End(3).Row

satırını aşağıdaki şekilde değiştirip denermisiniz.

For a = 2 To [E65536].End(3).Row

 

[Kemal Demir]

Teşekkur Ederim Arkadaşlar iyi geceler.