cümleyi bölüştürme

[ismailayan]

merhaba

ACIBADEM ECZANESİ**Kadıköy-Merkez*İstanbul
AĞAÇLARALTI ECZANESİ**Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe*İstanbul

tek hücrede bulunan bu hücreyi

A B C
------ ------------------- -------------
ACIBADEM ECZANESİ Kadıköy-Merkez İstanbul
AĞAÇLARALTI ECZANESİ Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe İstanbul


şeklinde hücrelere bölüştürmek istiyorum

yardımcı olurmusunuz???

 

[BG]

merhaba

ACIBADEM ECZANESİ**Kadıköy-Merkez*İstanbul
AĞAÇLARALTI ECZANESİ**Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe*İstanbul

tek hücrede bulunan bu hücreyi

A B C
------ ------------------- -------------
ACIBADEM ECZANESİ Kadıköy-Merkez İstanbul
AĞAÇLARALTI ECZANESİ Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe İstanbul


şeklinde hücrelere bölüştürmek istiyorum

yardımcı olurmusunuz???

sütunu seçin , Veri/Metni sütunlara dönüştür/Sınırlandırılmış/Diğer alanına tıklayıp * işaretini koyun ve son butonuna tıklayın.

 

[Orion1]

merhaba

ACIBADEM ECZANESİ**Kadıköy-Merkez*İstanbul
AĞAÇLARALTI ECZANESİ**Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe*İstanbul

tek hücrede bulunan bu hücreyi

A B C
------ ------------------- -------------
ACIBADEM ECZANESİ Kadıköy-Merkez İstanbul
AĞAÇLARALTI ECZANESİ Kasımpaşa-Hasköy-Halıcıoğlu-Örnektepe İstanbul


şeklinde hücrelere bölüştürmek istiyorum

yardımcı olurmusunuz???

Sizin için bir KTF hazırladım Bu ktfyi boş bir modüle kopyalayınız ve bir hücreye aşağıdaki formülü girin.
Değerin A1 hücresinde olduğu kabul edilmiştir.
=ayir(A1)

Function ayir(deg As Range)
Dim deg2 As Variant, i As Byte
    deg2 = Split(deg, "*")
    For i = LBound(deg2) To UBound(deg2)
        sonuc = sonuc & deg2(i) & " "
    Next i
    ayir = Left(sonuc, Len(sonuc) - 1)
End Function

 

[ismailayan]

elimde 3100 tane liste var arkadaşlar

a1 hücresindekini eczane adı ilçesi ve ili şeklinde 3 tane hücreye ayırmam bölüştürmem lazım...


daha parlak fikri olan bir arkadaş el atsın lütfen

 

[Kemal Demir]

ismail bey,

İki cevapta çok pratik.

 

[Orion1]

Ekli dosyayı değiştirdim formülleri aşağı duoru kopyalayarak sonuca ulaşabilirsiniz.

Function ayir(deg As Range, olcut As Byte)
Dim deg2 As Variant, i As Byte
    deg2 = Split(deg, "*")
    ayir = deg2(olcut)
End Function

 

[ozgretmen]

elimde 3100 tane liste var arkadaşlar
a1 hücresindekini eczane adı ilçesi ve ili şeklinde 3 tane hücreye ayırmam bölüştürmem lazım...
daha parlak fikri olan bir arkadaş el atsın lütfen

Parlak bir fikir olmasa da AKTERNATİF olması bakımından ekliyorum.İyi çalışmalar..

Sub Ayır()
For i = 1 To [A65536].End(3).Row
a = Split(Cells(i, 1).Text, "*")
topl1 = UBound(a) + 1
k = 1
For x = 1 To topl1
k = k + 1
Cells(i, k) = Right(a(x - 1), 50)
Next x
Next i
Columns("C:C").Delete
Columns("B:B").ColumnWidth = 30
Columns("C:C").ColumnWidth = 20
Columns("D:D").ColumnWidth = 15
[B1].Select
End Sub

 

[DIRAL]

teşekkürler çok faydalı oldu