metni sütunlara dönüştürmek

[peral]

arkadaşlar,
ekteki dosyada kitap ismi ve yazarı bir hücrede girilmiş,kitap ismini bir hücrede yazarı diğer hücreye ayırmak istiyorum ,metni sütunlara dönüştür den yapamadım,yardım isterim sizlerden...

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir module kopyalayıp deneyiniz

Sub AYIR()
Dim SUT As Long
On Error GoTo ERR
For SUT = 2 To Cells(65536, "B").End(3).Row
If Cells(SUT, "B") Like "*" & " – " & "*" Then
Cells(SUT, "C") = Split(Cells(SUT, "B"), " – ")(1)
End If
Next
ERR:
End Sub

 

[Merhum İdris SERDAR]

arkadaşlar,
ekteki dosyada kitap ismi ve yazarı bir hücrede girilmiş,kitap ismini bir hücrede yazarı diğer hücreye ayırmak istiyorum ,metni sütunlara dönüştür den yapamadım,yardım isterim sizlerden...

Dosyanız ekte.

.

 

[peral]

teşekkür ederim.....

 

[Ali]

metni sütunlara dönüştür den yapamadım,yardım isterim sizlerden...

B sütununu komple seçin Veri-Metni Sütunlara dönüştürü sihirbazını çalıştırın. Sınırlandırılmışı seçin Diğer seçeneği onaylayın ve ayırmak için kullandığınız – (uzun tire) işaretini bu kutucuğa yazın ileri ve sonu tıklayın.