Sütundaki verileri nasıl ayırabiliriz?

[cemal42]

Bir sütunda 2011/852 biçiminde veriler var. Bu verileri 2011 aynı sütunda kalacak "/" sonraki 852 yan sütuna gelecek şekilde ayırmamız gerekiyor. Ayırmadan sonra sütunlardaki veriler 2011 ve 852 biçiminde olacak "/" olmayacak. Makro ile nasıl yapabiliriz? Yardımlarınızı bekliyoruz. İyi çalışmalar

 

[accountant80]

Merhaba 2011/852 yazısının A1 de olduğunu varsayarsak;

B1 e

=SOLDAN(A1;4)

c1 e

=SAĞDAN(A1;3)

Yazarak deneyiniz.

 

[Levent Menteşoğlu]

Bir sütunda 2011/852 biçiminde veriler var. Bu verileri 2011 aynı sütunda kalacak "/" sonraki 852 yan sütuna gelecek şekilde ayırmamız gerekiyor. Ayırmadan sonra sütunlardaki veriler 2011 ve 852 biçiminde olacak "/" olmayacak. Makro ile nasıl yapabiliriz? Yardımlarınızı bekliyoruz. İyi çalışmalar

Verileriniz hangi sütunda ve kaçıncı satırdan başlıyor. Ayrıca ayrılan veriler hangi sütunlara aktarılacak.

 

[accountant80]

2011 in aynı sütunda kalmasını istiyorsanız;

Metnin olduğu hücreyi seçin veri sekmesinden metni sutunlara dönüştür ü seçin ileri deyip ayırıcılar kısmında diğer yazan yere / işaretin koyun ve son deyin.

 

[cemal42]

Veriler B2 den başlıyor. B sütunundaki verilerden 2011, b sütununda kalacak,
852 c sütununa gidecek

 

[Levent Menteşoğlu]

Veriler B2 den başlıyor. B sütunundaki verilerden 2011, b sütununda kalacak,
852 c sütununa gidecek

Bu durumda en pratik çözüm Sn accountant80'in bir üst mesajında önerdiği "metni sütunlara dönüştür" özelliğini kullanmak olabilir. Ancak mutlaka VBA ile bir çözüm isterseniz aşağıdaki kodu deneyebilirsiniz.

sub sayiayir()
for a=2 to [b65536].end(3).row
sayi=split(cells(a,"b"),"/")
cells(a,"b")=sayi(0)
cells(a,"c")=sayi(1)
next
end sub

veya "metni sütunlara dönüştür" özelliğinin makro ile kaydedilmiş halini kullanabilirsiniz.

Sub sayiayir()
[B2:B65536].TextToColumns Destination:=[b2], DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

 

[cemal42]

Cevaplarınız için teşekkür ederiz. Problemimizi çözdük.