ılk ıkı kelımeyı seçmek

[haso_excel]

Merhaba arkadaşlar,

Amacım A kolonundaki bir kaç kelimelik cümlenin ilk kelimesini B kolonuna daha sonraki kelimeleri ise C kolonuna almak istiyorum. Bunun bir yolu var ise yardımcı olur musunuz?
Öğrenmek açısından Kod yazacak arkadaşların bir de formul ile çözülebilirliği varsa onuda ayrıca yazmalarını rica edebilir miyim.

 

[Merhum İdris SERDAR]

Dosyanız ekte.

.

 

[haso_excel]

Çok teşekkür ederim elinize sağlık

 

[haso_excel]

Üstadım bu formulun açıklaması varmı bir yerde

 

[Merhum İdris SERDAR]

Üstadım bu formulun açıklaması varmı bir yerde

Bir yerde var mı bilmiyorum.

Var da...

Benim yapmam gerekir.

Buna da zamanım yok.

.

 

[kulomer46]

Makro ile yazılmış program ek'tedir..
İyi çalışmalar..

 

[haso_excel]

Okey diğer paylaştığınız dosyalar yeter üstadım.

 

[haso_excel]

Elinize sağlık çok teşekkür ederim.

 

[haso_excel]

Üstadım biliyorum "kod anlatılmaz yazılır" ama rica etsem öğrenmek açısından kodu anlatmanız mümkünmü ?

 

[kulomer46]

Yukarıdaki programın makro kodlarını açıklıyorum..

Sub aktar()
Dim i, j, son, metin, uzunluk, harf, kac

' A sütunundaki en son hücre kaçıncı satırda buluyoruz..
son = Cells(65500, 1).End(xlUp).Row

' A sütunundaki tüm hücrelerdeki değerleri metin değişkenine atıyoruz
For i = 2 To son
metin = Cells(i, 1)
metin = Trim(metin)

' metin değişkeninin kaç karakterden oluştuğunu buluyoruz..
uzunluk = Len(metin)
For j = 1 To uzunluk

' metin karakterindeki 2. boşluk karakteri nin yerini buluyoruz..
If Mid(metin, j, 1) = " " Then kac = kac + 1
If kac = 2 Then GoTo atla
Next
atla:
kac = 0

' bulduğumuz yerden metin değişkenini 2 ye bölüyoruz
'1. bölümü B sütununa
Cells(i, 2) = Mid(metin, 1, j - 1)

'2. Bölümü C sütununa atıyoruz
Cells(i, 3) = Mid(metin, j, uzunluk - j + 1)

Next

'işlem tamam..



End Sub

 

[haso_excel]

Çok teşekkür ederim.

 

[haso_excel]

Üstadım C kolonuna atadığı değerleri boşlıklarını kaldırıyor. Nasıl düzelteceğim. Dosya ekde

 

[haso_excel]

Özür dilerim şifreyi kaldırmayı unutmuşum.

 

[haso_excel]

Dim hcr As Range
For Each hcr In Range("C1:C" & Cells(65536, "C").End(xlUp).Row)
hcr.Value = Trim(hcr)
Next

kodla çözdüm teşekkürler