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

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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.
 
Katılım
24 Ocak 2007
Mesajlar
17
Excel Vers. ve Dili
Türkçe
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ö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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Ö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!!!!!!!!!!!!!!
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Ö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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
2,827
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
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
Excel Vers. ve Dili
İZİN TAKİP PROGRAMI
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 .
 

musculus

Altın Üye
Katılım
15 Ağustos 2007
Mesajlar
248
Excel Vers. ve Dili
excel 2003
türkçe
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
Excel Vers. ve Dili
İZİN TAKİP PROGRAMI
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
Excel Vers. ve Dili
izin programı
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