cell tek satır

[namida]

elimde bir cell'in içersinde 3-4 satırdan oluşan excel dosyası var, bu bir cell'in içersindekileri alt alta 3-4 satır yerine yan yana hale getirip tek satır halinde görmek istiyorum.. nasıl yapabilirim?

birde
Selection.EntireColumn.SpecialCells(xlCellTypeConstants, 23) tam olarak ne işe yarar?

 

[AS3434]

Sayın namida

3-4 satırlık verinizi (a1,A2, A3, A4....vs) seçin ve kopyala deyin.
B1 Hücresini seçin
Sağ Klik/ Özel Yapıştır/ İşlemi Tersine Çevir
Tamam deyip çıkın.

"Selection.EntireColumn.SpecialCells(xlCellTypeConstants, 23)"

Sütundaki DOLU hücreleri seç komutu diye biliyorum

 

[namida]

çok teşekkürler cevabınız için,
ben bunu makro olarak yazmak istiyorum, bir örnek yükledim sanırım daha iyi anlatmış olurum problemi..
örnekte B kolonunda yazılar alt alta olduğu için cell yüksekliğide büyüyor. ben bu alt alta olan yazıları A kolundaki gibi yan yana getirip yerden kazanmak istiyorum.

 

[AS3434]

Aşağıdaki kodları bir butona bağlayın.
Hücrede Alt+Enter ile yapılmış boşlukları silip tek boşluğu çevirir.


Sub Makro1()
[B1] = WorksheetFunction.Substitute([B1], Chr(10), " ")
End Sub

 

[namida]

çok teşekkürler, peki bu yan yana gelen satırlar bazen çok büyük olduğu için o cellin genişliği yetmio, alt alta gelen kelimelere göre satırın genişiliğini nasıl ayarlıyacağım.
alt alta farklı uzunlukda ifadeler var en uzununa göre, cell genişliğini nasıl ayarlıyabilirim?

 

[AS3434]

Sub Makro1()
[b1] = WorksheetFunction.Substitute([b1], Chr(10), " ")
Columns("b:b").AutoFit
End Sub

Dosyanızda Metni Kaydır seçeneğindeki işareti kaldırın.

 

[Ali]

Alternatif

Sub duzelt()
For i = 1 To 500
Cells(i + 1, 1).Value = Cells(i, 2).Value
Cells(i + 1, 1).Value = WorksheetFunction.Substitute(Cells(i + 1, 1).Value, Chr(10), " ")
Cells(i + 1, 1).WrapText = False
Next
Range("B1:B65536").ClearContents
End Sub

 

[namida]

çok teşekkürler gerçekten..
iyi günler..

 

[AS3434]

Benim düşünmediğimi sayın Ali düşünmüş ve tüm sütunu kontrol etmiş.
Yalnız B sütununda ki verileri A sütununa aktarıpta düzeltmiş.
Olduğu yerde düzeltmek için, aşağıdaki kodları kullanabilirsiniz;
Verilerin B sütununda olduğu varsayılarak yapılmıştır. Başka sütunda ise "b" yerine o sütunu yazın.

Sub duzelt()
For i = 1 To [b65536].end(3).row
Range("b"&i) = WorksheetFunction.Substitute(Range("b"&i) , Chr(10), " ")
Next
Columns("b:b").AutoFit
End Sub