Çözüldü Excel Hücrenin Genişliğinin Otomatik Büyümesi

Merhabalar Sn. @merakli

-- Hücre içindeki değerlere göre satırın yüksekliğinin ayarlanması için örnek olarak satırını kullanabilirsiniz.
-- Resimde hangi satır olduğu belli olmadı için Rows("1:1") kısmındaki 1 değerleri yerine çalışma dosyanızdaki satır numarasını yazınız.
-- Bu kod, 1. satırın yüksekliğini kelimelerin uzunluğuna göre ayarlar.

-- Sütun genişliğini ayarlamak içinde örnek olarak satırını kullanabilirsiniz.
-- A sütunun genişliğini hücredeki değerlerin uzunluğuna göre ayarlar.

Rows("1:1").EntireRow.AutoFit

üstteki sanırım 1. satırın 1. sütununu otomatik yüksekliğini ayarlıyor
bana D2:M2 arasındaki hücrelerin yüksekliğini otomatik yapmam lazım
bu durumda üstteki formülü nasıl yazmalıyız?

Peki satırın yüksekliğinin en tepe değerinin 200 ile sınırlama yapılabilir mi?
Örneğin şuanki satır yüksekliğimiz 50 olsun yeni bir metin geldi otomatik 150 oldu sonrasında daha uzun bir metin girildi 230 oldu ama biz onu 200 de kalmasını sağlamak gibi...

Koşul ile satır yüksekliği kontrolü yapabilirsiniz.

-- Örnek olarak aşağıdaki kod bloğu 1. satırın yüksekliğini kontrol eder.
Eğer satır yüksekliği 200 den büyükse, satır yüksekliğini 200 e eşitler.
Eğer satır yükseliği 200 den büyük değilse hücre içindeki değere göre otomatik yükseklik verir.

Rows("1:1") ifadesi 1. satırın tamamı kapsar.
2. satır için yapmak istiyorsanız Rows("2:2") olarak kullanmalısınız.

2 numaralı mesajda belirtmiştim.

AhmetRasim' Alıntı:

-- Resimde hangi satır olduğu belli olmadı için Rows("1:1") kısmındaki 1 değerleri yerine çalışma dosyanızdaki satır numarasını yazınız.
-- Bu kod, 1. satırın yüksekliğini kelimelerin uzunluğuna göre ayarlar.

Genişletmek için tıklayın ...

Rows("2:2").EntireRow.AutoFit

VBA da çok yeni olduğum için en basit bir şeyi bile sorma gereği duyuyorum.
Kodlama mantığını bildiğim için kodları okuyup anlayabiliyorum ama nasıl kullanılacağı konusunda çok bilgim yok.

Bunu nereye yazacağım her sayfanın code kısmına mı yoksa modül içine mi?

AhmetRasim' Alıntı:

Rows("1:1") ifadesi 1. satırın tamamı kapsar.
2. satır için yapmak istiyorsanız Rows("2:2") olarak kullanmalısınız.

2 numaralı mesajda belirtmiştim.

Genişletmek için tıklayın ...

satırı Sheet1 isimli sekmede içerisinde veri bulunan tüm sütunların genişliğini otomatik olarak ayarlar.

Modül içerisine Rows("1:1").RowHeight = 200 satırını yazarsanız, hangi sayfa aktif ise o sayfanın 1. satırı için işlem yapar.
-- Sayfa ismi kullanmadan sadece ilgili sayfanın kod bölümüne ekleyip çalıştırabilirsiniz.
-- Modül içerisinde kullanırken sayfa ismi belirtmeniz daha uygun olacaktır.
örnek olarak gibi.

Her sayfanın kod bölümüne aşağıdaki şekilde yaptım ancak herhangi bir değişiklik olmadı sanki bir yerde hata yapıyorum sanırım.

Rows("2:2").EntireRow.AutoFit

Kodların çalışması için bir prosedür içerisine yazılması gerekir.

Örnek olarak paylaştığınız dosyada Veri isimli sayfaya kayıt girdikçe sayfa isimli sekmede 2. satırın, satır yüksekliğini değiştirmek için Veri isimli sayfanın kod bölümüne şu kodları ekleyiniz.

-- Worksheet_Change prosedürü sayfada herhangi bir hücrede işlem yapıldığı zaman çalışmaya başlar.

Sadece belirli bir sütuna veri girdikçe çalışması için ne yapılabilir?
-- Worksheet_Change(ByVal Target As Range) başlığında Target isimli değişken ile sayfadaki hücreler belirtilmiştir.
** Target.Column ile işlem yapılan hücrenin sütun numarası bulunur.

Sütun numarasını bulduktan sonra geri kalan işlem koşul ile kontrol sağlamak.
-- If Target.Column <> 3 Then Exit Sub
Bu satırın anlamı: İşlem yapılan hücrenin sütun numarası 3 den faklı ise kodları çalıştırma.
Sütun numaraları soldan sağa doğru A=1, B=2, C=3 ... şeklinde devam eder.

-- If Target.Column <> 3 Then Exit Sub satırını yukarıdaki kodların ilk satırına ekleyip kullanırsanız;
Sadece C sütununda işlem yaptığınız zaman kodlar çalışır.

Teşekkür ederim @AhmetRasim Bey.

Rica ederim.
Saygılarımla, iyi çalışmalar.