satır içindeki yazıyı yan yana getirme

[miromax]

merhaba arkadaşlar ekteki dosyada ,satırların içerisinde bulunan sayılar üzerine tıklayınca 3 sıra halinde duruyor bunları tek sıra haline nasıl getirebilirim yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[miromax]

yardımcı olabilecek arkadaşlar yokmu

 

[tahsinanarat]

aşağıdaki kodu Modüle yapıştırıp çalıştırınız.
Sub Altentersil()
'Range("B2").Select
ActiveCell.Replace What:=Chr(10), Replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=Chr(10), Replacement:=" ", lookat:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[miromax]

modül dediğiniz yer neresi acaba

 

[miromax]

Tahsin abi gönderdiğin kodları ve yapıştırılacak yeri hiç anlamadım,sen yapıştırabilirmisin?

 

[Necdet]

merhaba arkadaşlar ekteki dosyada ,satırların içerisinde bulunan sayılar üzerine tıklayınca 3 sıra halinde duruyor bunları tek sıra haline nasıl getirebilirim yardımcı olacak arkadaşlara şimdiden teşekkürler.

Sorudan hiç bir şey anlamadım.

 

[ziya]

Sorudan hiç bir şey anlamadım.

Herhangi bir hücreye tıkladığınızda, hücre içindeki datalar ; lerden bölünerek sanki 3 satırmış gibi alt alta görüntüleniyor.
Tıklamadığınız sürece sorun yok.

 

[monelogg]

Anladığım kadarıyla şu şekilde gözükmesi yerine
(abc
abc
abc)

şu şekilde gözüksün istiyorsunuz.
abcabcabc

 

[Necdet]

Herhangi bir hücreye tıkladığınızda, hücre içindeki datalar ; lerden bölünerek sanki 3 satırmış gibi alt alta görüntüleniyor.
Tıklamadığınız sürece sorun yok.

Yooo nasıl görüyorsam öyle görünüyor. Tıklasam da tıklamasamda aynı.

Soru ne?

 

[miromax]

aşağıdaki kodu Modüle yapıştırıp çalıştırınız.
Sub Altentersil()
'Range("B2").Select
ActiveCell.Replace What:=Chr(10), Replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=Chr(10), Replacement:=" ", lookat:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

tahsin abi tamamdır yaptım,teşekkürler

 

[miromax]

Anladığım kadarıyla şu şekilde gözükmesi yerine
(abc
abc
abc)

şu şekilde gözüksün istiyorsunuz.
abcabcabc

yaptım teşekkürler

 

[dEdE]

Merhaba,
Sayfa adının(Sayfa1) üstüne sağ tıklayıp Kod Görüntüleyi seçiniz.
Açılan sayfaya aşağıdaki kodu yapıştırınız ve bu sayfayı kapatınız.
Tekrar sayfanıza dönüp sayfanın herhangibir yerinde çift tıklarsanız sorununuz çözülecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells.Replace What:=Chr(10), Replacement:=""
End Sub