Ayırma işlemi

[ismailayan]

Merhaba arkadaşlar!...

Web sitesinde aradım bulamadım....

Benim amacım...

hücredeki kelimeyi ayrı ayrı hücrelere parçalamak istiyorum.
Mesela

A
yeşilköy bakırköy istanbul

B
istanbul
C
bakırköy
D
yeşilköy

gibi
bu konuda bana yardımcı olursanız sevinirim...

 

[Kemal Demir]

sn.ismailayan,

Örnek bir dosya Yollarmısınız.

 

[Ali]

Veri - Metni Sütunlara dönüştür sihirbazı işini görecektir.

 

[ismailayan]

Ekte gönderiyorum

 

[Seyit Tiken]

İlgili hücreyi seç >Veri>Metni Sütunlara Dönüştür>Son, tamam deyin.

 

[ismailayan]

iyide arkadaşım bende tüm türkiyenin il ilçe ve belediye isimleri var toplam 12000 küsür tane teker teker olmuyor bu iş


bu na göre bir formül vardır elbet... değilmi...

 

[Ali]

Sn ismailayan, Bununla ilgili bir çalışma yapıp Excel örnek çalışmalar kısmına eklemiştim.

Linki inceleyin

http://www.excel.web.tr/viewtopic.php?t=11195

 

[Merhum İdris SERDAR]

iyide arkadaşım bende tüm türkiyenin il ilçe ve belediye isimleri var toplam 12000 küsür tane teker teker olmuyor bu iş


bu na göre bir formül vardır elbet... değilmi...

1. Metni sütunlara dönüştürme yöntemi en basiti olup, siz tek tek hücre seçmeyin, tüm sütunu seçerek uygulayın.

2. Bununla ilgili formüller elbette var. Örnek dosya ekte.

 

[aucar19]

Hücredeki cümleyi kelimelere ayırmak.

Aşağıdaki kodu modüle yapıştırınız.
Kodlar satırdaki cümleyi kelimelerine ayırmanızı sağlar.

Sub ayirma()
Dim i As Integer
sat = 10
sat = Sheets("Sayfa1").Range("A1").End(xlDown).Row
For x = 1 To sat
ke = Cells(x, 1)
k1 = Len(ke)
k = 1
su = 2
For y = 1 To k1
If y = k1 Then
Cells(x, su) = Mid(ke, k, y - k + 1)
End If
If Mid(ke, y, 1) = " " Then
Cells(x, su) = Mid(ke, k, y - k)
su = su + 1
k = y
End If
Next y
k = 1
su = 2
Next x
End Sub