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

[Mdemir63]

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]

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]

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]

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]

Ö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]

Ö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]

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]

Ö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]

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]

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]

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]

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]

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]

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]

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

 

[idare]

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]

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("D : D").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit

bu kodlar&#305; deneyiniz

 

[idare]

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.

 

[vitaminb1]

ev et cavap yok mu

 

[vitaminb1]

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