Bir hucredeki metni ayirmak

[alpertheidiot]

merhaba,
bir hucrenin icinde soyle bir deger olsun: opel - astra - 2004
bu hucrenin icindeki degeri "-" isaretini referans alacak sekilde uc hucreye ayrimak mumkun mu?

yani diyelim ki A1 hucresinde opel - astra - 2004 var. Bunu bir sekilde B1 de opel C1 de astra ve D1 de 2004 olacak sekilde duzenleyebilirmiyim? tabii bunu A kolonundaki tum degerler icin uygulayacagim.

saygilar

 

[Necdet]

Merhaba,

Verilerin A sütununda olduğunu varsayalım (B, C, D Sütunları boş olmak şartıyla)

• A sütünunu seçiniz
• Veri
• Metni Sütunlara Ayır
• Sınırlandırılmış
• Ayraç tan Diğerine - işareti yazın
• Tamam

Aynı işin Makrolu ayrı çözümü :

Sub SutunlaraAyir()

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-"
End Sub

 

[alpertheidiot]

cok tesekkur ederim

 

[Mx@Raid]

Sub SutunlaraAyir()
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar _
:="-"

End Sub

Bu şekilde yaparsanız boşlukları çıkartarak ayırır.

 

[izcik]

Merhaba,

Verilerin A sütununda olduğunu varsayalım (B, C, D Sütunları boş olmak şartıyla)

• A sütünunu seçiniz
• Veri
• Metni Sütunlara Ayır
• Sınırlandırılmış
• Ayraç tan Diğerine - işareti yazın
• Tamam

Aynı işin Makrolu ayrı çözümü :

Sub SutunlaraAyir()

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-"
End Sub

.........
............


Değerli Necdet Yeşertener makroda bir hata olabilir mi acaba? MxRaid in verdiği oluyor fakat sizinkini denedim yapamadım.

 

[Necdet]

Evet çalışmaz çünkü buraya kopyalarken eksik kopyalamışım.

Makalenin başı yok

Sub Ayır() gibi bir isim gerekli kodların en başına.

 

[izcik]

Necdet Yeşertener olmuyor. Satırlar aynı hizada olmadığı için olmuyor olabilir mi acaba?

 

[Orion1]

Alternatif;
Veriler a sütununda olduğu kabul edilmiştir.

Sub ayir()
Dim i  As Long, deg, k As Integer
Range("B1:K65536").Clear
For i = 1 To Cells(65536, "A").End(xlUp).Row
    deg = Split(Cells(i, "A").Value, "-")
    For k = LBound(deg) To UBound(deg)
        Cells(i, k + 2).Value = deg(k)
    Next k
Next i
MsgBox "İşlem tamamdır"
End Sub

 

[izcik]

Değerli Evren Gizlen. Bu da olmadı ne yazık ki
A1 hücresindeki isimde hiç bir değişiklik yapmadan B1 hücresine atıyor.

 

[izcik]

Mx Raid arkadaşımızın verdiği formül hatasız oldu. Fakat boşlukları çıkarmadan nasıl ayırabileceğiz onu merak ediyorum doğrusu.

Bir de Mx Raidin formülünde A sütunundaki metni ayırırken, yine A sütunundan başlıyor ayırmaya. Oysa ayırmaya B sütunundan başlasa daha iyi olur. Dolayısı ile metnin orjinali (yani A1 hücresindeki veri) silinmiş oluyor. Bu şekilde yapmak mümkün mü?

 

[Orion1]

Değerli Evren Gizlen. Bu da olmadı ne yazık ki
A1 hücresindeki isimde hiç bir değişiklik yapmadan B1 hücresine atıyor.

Nasıl olmuyormuş
Ekli dosyayı inceleyiniz.

 

[izcik]

Doğrusu ben aralarında tire olmadan deniyordum sizin örnekte A sütunun içindeki metinde aralarında tireler var. Bu da güzel bir çalışma. Bu dosyayı da Evren Gizlen ismiyle saklıyorum.

Peki tire olmayan (örnek: KIRMIZI RENKLİ BMW ARABA)
metni B sütunundan başlayacak şekilde düzenleyebilirmisiniz. Böyle yapalım ki A sütunundaki metnin orjinal halini görelim.

Mx Raid in formülüne bu özellik eklenecek yani.

 

[izcik]

Kaptım bu işi

 

[Orion1]

merhaba,
bir hucrenin icinde soyle bir deger olsun: opel - astra - 2004
bu hucrenin icindeki degeri "-" isaretini referans alacak sekilde uc hucreye ayrimak mumkun mu?

yani diyelim ki A1 hucresinde opel - astra - 2004 var. Bunu bir sekilde B1 de opel C1 de astra ve D1 de 2004 olacak sekilde duzenleyebilirmiyim? tabii bunu A kolonundaki tum degerler icin uygulayacagim.

saygilar

Doğrusu ben aralarında tire olmadan deniyordum sizin örnekte A sütunun içindeki metinde aralarında tireler var. Bu da güzel bir çalışma. Bu dosyayı da Evren Gizlen ismiyle saklıyorum.

Soru nasıl sorulmuş.
Aralarında tire var denilmiş.Bizde ne yaptık aralarındaki tire durumuna göre yaptık.Nasıl yapıcaktık.Soruda tire sorulduğu halde boşluka göremi yapacaktık.
Boşluğu nereden çıkardınız anlamış değilim.Sonrada bu olmadı everen gizlen diyorsunuz.Olmasın ben o dosyayı çiğ çiğ yerim.

 

[izcik]

Eee adam bu işin hocası. Hem öğretir hem arada kulak çeker ki değerini bilelim

 

[Mx@Raid]

Evren bey emeğinize sağlık.

 

[Orion1]

Evren bey emeğinize sağlık.

Rica ederim.
iyi çalışmalar.

 

[Necdet]

Soru nasıl sorulmuş.
Aralarında tire var denilmiş.Bizde ne yaptık aralarındaki tire durumuna göre yaptık.Nasıl yapıcaktık.Soruda tire sorulduğu halde boşluka göremi yapacaktık.
Boşluğu nereden çıkardınız anlamış değilim.Sonrada bu olmadı everen gizlen diyorsunuz.Olmasın ben o dosyayı çiğ çiğ yerim.

Başka ne demeli ki?

 

[afilli]

çok güzel elinize sağlık arkadaşlar
fakat bu makro nasıl nereye yapıştırılıyor?
birde bu veri den metinleri sütuna dönüştürü yapmaya çalıştım olmadı.
aslında bu bana çok lazım
bunun ikisinide öğrenmek istiyorum
yardımlarınızı bekliyorum arkadaşlar
iyi çalışmalar

 

[Mx@Raid]

sayfa üzerine gelip sağ tıklayın Vba kod Görüntüle veya Alt+F11 tuşuyla makro sayfasına geçin. Sağ tıklayın Insert/Module seçin ve makroyu yazın veya yapıştırın. Sonra excele dönün görünüm/araç çubukları seçeneğini seçin. Gelen menüden düğme özelliğini seçip sayfanın herhangi bir yerinde oluşturun(sizin için en uygun yeri de ayarlayabilirsiniz.) daha sonra oluşturduğunuz buton üzerine sağ tık yapın ve makro ata seçeneğinden kullanacağınız makro adını seçin. Butona tıkladığınızda makro çalışıp gerekli uygulamayı yapacaktır.