Metni Sutunlara Cevirme

[petrol_]

Arkadaslar arama falan da yaptim ama elimdeki tablo sitede buldugum cozumlerle sutunlara donusmuyo. Metni sutunlara cevirme konusunda yardimci olabilir misiniz. (ingilizce office kullaniyorum)

 

[Necdet]

Merhaba,

Örnek dosyanızda sütunlara dönüştürdüğünüzde olması gereken durumu belirtirseniz gerek makro gerekse fonksiyonlarla çözüm sunacak arkadaş olacaktır.

 

[muygun]

Slm.
2.sayfanızdaki gibi bir sonuç istiyorsanız eki inceleyin.
İyi çalışmalar.

 

[petrol_]

Belgenin ikinci sekmesinde ornek mevcuttu.

 

[uzmanamele]

merhaba
1. adım : dönüştür / sınırlandırılmış / diğer / :
2. adım : c-d arasına sütun ilave edin
3. adım : dönüştür / sınırlandırılmış / boşluk
4. adım : dönüştür / sınırlandırılmış / diğer / )
bu şekilde denermisiniz

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AYIR()
Dim S1, S2 As Worksheet
Dim SUT As Integer
Set S1 = Sheets("Sheet1")
Set S2 = Sheets("Sheet2")
For SUT = 4 To S1.Cells(65536, "C").End(3).Row
S2.Cells(SUT, "B") = Split(S1.Cells(SUT, "C"), " ")(0)
S2.Cells(SUT, "C") = Split(S1.Cells(SUT, "C"), " ")(1)
S2.Cells(SUT, "D") = Split(S1.Cells(SUT, "C"), " ")(2) & "( " & Split(S1.Cells(SUT, "C"), "(")(1)
S2.Cells(SUT, "E") = "(" & Split(S1.Cells(SUT, "C"), "(")(2)
Next
End Sub

 

[petrol_]

Ilgilenen tum arkadaslara tesekkur ederim. Tum tablolari inceledim. uzmanamele nin tarif ettigi sekilde ben de deniyordum, ancak 2. adimda belirttigi gibi araya sutun eklemedigim icin olmuyordu. hem macro, hem de diger arkadaslarin tarif ettigi sekilde bi kac tiklamayla hallederim artik.
Baska bir sorum daha olacak, normal bi sayfada menuden metni sutunlara cevirdikten sonra sayfadaki bilgileri silip ayni sayfaya yeni bir bilgi yapistirdigimda sanki daha once macro yapmisim gibi otomatik olarak yapistirdigim bilgiler sutunlara donusuyor aslinda iyi bi durum gibi ancak metni gereksiz (kullanamayacagim sekilde) yerlerinden ayirip sutunlara ceviriyor. Her defasinda yeni belge aciyorum.