Yazımın uzunluğuna göre hücre açılsın

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#1
Arkadaşlar merhabalar

hücreye yazdığım metne göre hücre açılsın istiyorum.örneğin iki satır yazdıysam o kadar açılsın daha fazla yazdıysam bu defa o yazdığım kadar açılsın istiyorum. Nasıl yapabilirim?

Not: Forumda aradım orada Biçim>Sütun>En uygun genişlik var ama o benim istediğim gibi değil, Hatta Wordde tabloya yazı yazdığımızda sığmadığında aşağıya doğru açılıyorya aynı onun gibi

Saygılar sunuyorum.
 

bilginoz

Altın Üye
Altın Üye
Katılım
24 Ocak 2007
Mesajlar
17
Beğeniler
0
Excel Vers. ve Dili
Türkçe
#2
Tüm hücreleri seçip herhangi birisinin üzerinde sağ tıklayıp Hücreleri biçimlendire tıkladıktan sonra Hizalama ya tıkla. Buradan altta "Metini Kaydır" kutusunu işaretle. Bu işlem yazdığın metine göre Satır genişlemesini sağlıyor. Ama Sutun genişlemesini sağlamıyor. Sutunun nasıl genişleyeceğini bilmiyorum. Umarım bu işini görür
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#3
Tüm hücreleri seçip herhangi birisinin üzerinde sağ tıklayıp Hücreleri biçimlendire tıkladıktan sonra Hizalama ya tıkla. Buradan altta "Metini Kaydır" kutusunu işaretle. Bu işlem yazdığın metine göre Satır genişlemesini sağlıyor. Ama Sutun genişlemesini sağlamıyor. Sutunun nasıl genişleyeceğini bilmiyorum. Umarım bu işini görür
Teşekkürler

işime yaradı

kolay gelsin
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#4
Bu defa sadece yazdığım hücreyi genişletiyor ama diğer hücreler geneşlemediği için yazı tabiki net görünmüyor

yani sorun halen devam ediyor bu şekildi sorun kısmen çözülüyor
 
Katılım
23 Ağustos 2005
Mesajlar
3,847
Beğeniler
41
Excel Vers. ve Dili
Excel : 2010
#5
Örnek kodu deneyiniz. Hücre Biçimlendirme'de METNİ KAYDIR'ı seçili yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1] = 1) Then [A1].Rows.AutoFit
End Sub
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#6
Örnek kodu deneyiniz. Hücre Biçimlendirme'de METNİ KAYDIR'ı seçili yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1] = 1) Then [A1].Rows.AutoFit
End Sub
Hocam harikasın

çok teşekkürler

Kolay gelsin


Not: Sizler varken NO PROBLEM!!!!!!!!!!!!!!
 
Katılım
23 Ağustos 2005
Mesajlar
3,847
Beğeniler
41
Excel Vers. ve Dili
Excel : 2010
#7
Bu kod hem Satır hemde Sütun genişliklerini otomatik olarak ayarlıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1] = 1) Then
[A1].Rows.AutoFit
[A1].Columns.AutoFit
End If
End Sub
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#8
Örnek kodu deneyiniz. Hücre Biçimlendirme'de METNİ KAYDIR'ı seçili yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1] = 1) Then [A1].Rows.AutoFit
End Sub
Hocam kusura bakmayın ama satırdaki bir kısım hücreyi birleştirdikten sonra içine yazdığım yazıyı tek hücreye yazdığım yazı gibi genişleterek yazmıyor bunun için bir çözümünüz var mı?

Saygılar
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#9
Bu kod hem Satır hemde Sütun genişliklerini otomatik olarak ayarlıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([A1] = 1) Then
[A1].Rows.AutoFit
[A1].Columns.AutoFit
End If
End Sub
Hocam verdiğiniz kodlar la birlikte METNİ KAYDIR seçeneğini işaretliyorum buraya kadar tamam. Ama birkaç tane hücreyi birleştirdiğimde o birleştirdiğim hücreye birşeyler yazdığımda birleştirilmiş hücreyi yazdığım yazı kadar açmıyor. diğer tek hücreler için sorun yok.

Saygılar
 
Katılım
23 Ağustos 2005
Mesajlar
3,847
Beğeniler
41
Excel Vers. ve Dili
Excel : 2010
#10
Aşağıdaki kod birleştirilmiş hücredeki krakter sayısına göre satır genişlemesini varsayılan olarak gerçekleştiriyor. Kendi çalışmanıza uydurunuz. Farklı kod satırını ilave edebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Range("A1").Value) < 10 Then [a1].RowHeight = 15
If Len(Range("A1").Value) > 10 Then [a1].RowHeight = 30
End Sub
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#11
Aşağıdaki kod birleştirilmiş hücredeki krakter sayısına göre satır genişlemesini varsayılan olarak gerçekleştiriyor. Kendi çalışmanıza uydurunuz. Farklı kod satırını ilave edebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Range("A1").Value) < 10 Then [a1].RowHeight = 15
If Len(Range("A1").Value) > 10 Then [a1].RowHeight = 30
End Sub
Hocam merhabalar

vallahi verdiğiniz kodları denedim ama başaramadım onun için dosyayı gönderiyorum.

Saygılar
 
Katılım
23 Ağustos 2005
Mesajlar
3,847
Beğeniler
41
Excel Vers. ve Dili
Excel : 2010
#12
Kodlara biraz dikkatli bakılsaydı, hücre adresleri A1 hücresi olarak vermiştim. Siz ne yapmıştınız, A8 hücresine işlem yapıyorsunuz. Bu mantıkla kod tabiki çalışmaz. Ekli dosyaya bakın.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#13
Kodlara biraz dikkatli bakılsaydı, hücre adresleri A1 hücresi olarak vermiştim. Siz ne yapmıştınız, A8 hücresine işlem yapıyorsunuz. Bu mantıkla kod tabiki çalışmaz. Ekli dosyaya bakın.
Hocam merhaba

özür dilerim hakikaten dikkat etmemişim elinize sağlık teşekkür ederim.
yalnız son birşey
Aşağıdaki kodların ne anlatmak istediği ve A1 hücresiyle birlikte başka hücrelerde ekleyebilirmiyiz bu kodların içine
Saygılar sunuyorum


If Len(Range("A1").Value) < 10 Then [a1].RowHeight = 15
If Len(Range("A1").Value) > 10 Then [a1].RowHeight = 30
 
Katılım
23 Ağustos 2005
Mesajlar
3,847
Beğeniler
41
Excel Vers. ve Dili
Excel : 2010
#14
kodun mantığı çok basit. Açıklama şu : Eğer A1 hücresindeki krakter sayısı 10'dan az ise, satır genişliği(yüksekliği) 15 olsun. İstenilen farklı hücre adreslerini kullanabilirsiniz.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
1,842
Beğeniler
40
Excel Vers. ve Dili
Excel-2003 Türkçe
Excel-2010 Türkçe
#15
kodun mantığı çok basit. Açıklama şu : Eğer A1 hücresindeki krakter sayısı 10'dan az ise, satır genişliği(yüksekliği) 15 olsun. İstenilen farklı hücre adreslerini kullanabilirsiniz.
Hocam merhaba

Teşekkür ederim açıklamalarınıza

saygılar
 
Katılım
15 Haziran 2007
Mesajlar
33
Beğeniler
0
Excel Vers. ve Dili
İZİN TAKİP PROGRAMI
#16
ben de bir belge hazırladım. hücrelerin çouğu korumalı yalnız 2 hücre açık
o hücrelerin mirine isim soyisim yazılacak yazılan yazıya göre hücre otamatik genişlesin ve daralsın istiyorum.Bu kodları bir türlü anlamıyorum bunun başka basit yolu varmı belgeyi ekliyorum .
 
Katılım
15 Ağustos 2007
Mesajlar
248
Beğeniler
0
Excel Vers. ve Dili
excel 2003
türkçe
#17
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("D : D").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit

bu kodlar&#305; deneyiniz
 
Katılım
15 Haziran 2007
Mesajlar
33
Beğeniler
0
Excel Vers. ve Dili
İZİN TAKİP PROGRAMI
#18
sn muskulus cevab&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler. Sorumdada belirtim ben visual basic hi&#231; bilmiyorum.Kod yazmay&#305;da bilmiyorum. ba&#351;ka bir yolu varm&#305; yada bu kodlar nas&#305;l yaz&#305;l&#305;yor onu nerde bulabilirim.
 
Katılım
7 Şubat 2008
Mesajlar
206
Beğeniler
0
Excel Vers. ve Dili
izin programı
#20
kendim sorsum ve başka başlıkta cevabını buldum.

cevabıo buldum başka yerden.kodunu aşağıya yazıyorum.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A:A").EntireColumn.AutoFit
End Sub
 
Üst