Otomatik Satır Yükseklik Ayarı

[excelogreniyorum]

Herkese Selamlar,

Tüm forumda aradım fakat bulamadım. Farklı şekillerde mevcut ben kendime uyarlamayı bilmediğin için sormak istedim.

Benim yapmak istediğim şudur;

Sayfa 1 de yer alan bilgileri Sayfa 2 de düşeyara eğer gibi formüller kullanarak çağırıyorum hücreye yazdırıyorum. Fakat çağırdığım metin veya bilgiler o hücreye sığmadığında Metni Kaydır işaretli olduğu halde satır yüksekliğini ayarlamıyor. Bunu yapmanın bir yolu var mıdır ???

( Not: Biçimden En Uygun Satır Yüksekliği dediğimde ise diğer tüm satırlar küçülmekte (16.5 oluyor). Ben Satır yüksekliğinin en az 26 olmasını istiyorum.)

.... Herkese teşekkürler ....

 

[Emir Hüseyin Çoban]

Merhaba,

Örnek bir dosya görmeden konuyu tam olarak anlamak zor.
Aşağıdaki kodları deneyiniz.

Sub düzenle()
    Cells.Select
    Cells.EntireRow.AutoFit
End Sub

 

[mahmutozdemir]

Hüseyin Bey bu makro ne için..

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.EntireColumn.AutoFit
End Sub

 

[Emir Hüseyin Çoban]

Hüseyin Bey bu makro ne için..

Merhaba,
Satır yüksekliğini otomatik yazı puntolarına göre ayarlayacaktır.

 

[excelogreniyorum]

Arkadaşlar hepinize çok teşekkür ederim

Fakat olmuyor dediklerinizi tek tek uyguladım

Column yerine row da uyguladım fakat yine olmuyor.

Olmayanda şudur ; birinci sayfada gayet güzel yazdım satır genişledi ama aynı hücreyi sayfa 2 de formül ile çektiğimde aynen duruyor.
:kafa::kafa::kafa::kafa:

 

[hamitcan]

Her sayfada çalışması için kodu değiştirmelisiniz. Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Target.EntireColumn.AutoFit
End Sub

 

[Mdemir63]

Selamlar
Ekteki dosyayı incelermisiniz.

Umarım işinize yarar

 

[fateman333]

Sayın Arkadaşlar,

Hepinize çok teşekkür ederim. İstediğimi en iyi anlayan komutan oldu.

Evet komutan dediğin gibi fakat ekteki dosyaya bakman mümkünse bu dosya için formülünü nasıl uygularım yardımcı olurmusun.

Mevcut formu koruyarak sadece satır yüksekliğinin değişmesini istiyorum.

 

[Mdemir63]

Selamlar

Dosyanız açılmıyor. Sanırım Ofis2007
Siz dosyayı ofis2003 formatında kaydedin tekrar ekleyin

 

[fateman333]

Dosya ektedir ilginize teşekkür ederim.

 

[Mdemir63]

Selamlar

Dosyayı incelermisiniz.

 

[fateman333]

Çok yaklaştığımız kesin

Komutan Selamlar,

Evet bu şekilde istiyorum fakat bu işlem sadece D2 hücresinde oluyor diğerlerindede olması için ne yapmalıyım.

Teşekkürler

 

[Mdemir63]

Selamlar
Dosyayı incelermisiniz?

 

[fateman333]

D sütunu için formül nasıl yazılır

Tekrar selamlar Komutan,

Evet ama şimdide D2, D3 ve D4 için olmuş. Diğerleri içinde tek tek formülü çoğaltmam mı gerekir yoksa bütün D sütun için bir formül yazmak mümkünmüdür
Yanlış anlama makro bilmediğim için tam olarak kavrayamıyorum olayı.
İlgilendiğin ve zaman ayırdığın için tekrar teşekkür ederim.

 

[fateman333]

Bir sorum daha olucak Komutan,

Satır yüksekliği otomatik olarak 16.5 e iniyor. Yani girdiğim bilgi satırın

genişlemesini gerektirmiyorsa az bişey ise en az 20 genişlikte kalması

mümkünmüdür.

 

[fateman333]

ne olucak bu durum

arkadaşlar çözüme çok yaklaştık bir göz atan yok mu bitirelim şu işi

 

[mahmutozdemir]

emeği gecen bütün arkdaşların eline sağlık.Aynı problem bendede oluyor.Bunu sadece D2, D3 ve D4 içindeğilde bütün d sutunu için nasıl yapabiliriz.

 

[Emir Hüseyin Çoban]

Merhaba, konuyu takip edemedim. Ancak aşağıdaki kodları Sayfa2 nin kod bölümüne yapıştırarak denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.EntireRow.AutoFit
End Sub

 

[mahmutozdemir]

bunu denedim ama olmadı.sayfa 1den sayfa 2 ye vei çekince çekilen verilerin tamamı görünmüyor,yarısı görünüyor.o verilerin tümü nasıl hücrede otomatik olarak görünüy.