Hücre Boyu Makrosu Hk.

[denizmusty]

Merhaba arkadaşlar,

Ana tablomdan bir özet tablo oluşturdum ve metin kaydırma ile hücre içindeki karakterler tam olarak sığıyor.
Fakat özet tablomda hücrelerin içinde üzerine not alabilmem için ve yazıların şıkışıklığını giderebilmem için hücrenin içindeki yazının altında ve üstünde bir satır boşluk veya hücrelerin yüksekliğini olduğundan bir miktar arttıran makro nasıl yapabilirim. Yardımcı olabilecek biri var mı ?

Teşekkürler.

 

[askm]

Örnek dosya eklerseniz yardımcı olalım. Kodun başına vbLf ekleyerek alt satır yapabilirsiniz.

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
ActiveCell.RowHeight = ActiveCell.RowHeight + 2
End Sub

 

[denizmusty]

İstediğiniz böyle bir şey mi?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
ActiveCell.RowHeight = ActiveCell.RowHeight + 2
End Sub

kodu çalıştıramadım excelde nasıl çalıştırabileceğimi söyleyebilir misiniz
sanırım bu kod orjinal satır aralığını 2 birim arttıracak eğer öyleyse evet istediğim bu.
teşekkürler

 

[Seyit Tiken]

Sayfanın Kod Penceresine kopyalayıp yapıştırınız.

 

[denizmusty]

Yapıyorum çalıştır deyince makrolar sekmesi çıkıyor.
İsim verip kodu tekrar acılan pencereye yapıştırıyorum tekrardan çalıştırıyorum.
Compile error expected end sub hatası veriyor.

 

[Seyit Tiken]

Kodu Yapıştırdıktan Sonra Hücreye Çift Tıklayın.

 

[denizmusty]

Ben düğme atamaya çalışıyordum o yüzden yapamamışım.
Fakat bu tam istediğim gibi olmadı.
Ben sayfadaki tüm satırları tek düğmeye basarak kendi orijinal inden 2 birim büyütsün istiyorum.
Onu nasıl yaparız.

Teşekkürler

 

[Seyit Tiken]

Verdiğim aralık[a1:a30] örnektir, kendinize göre ayarlarsınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
[a1:a30].RowHeight = [a1:a30].RowHeight + 2
End Sub

 

[denizmusty]

Ben aşağıdaki kodu uyguladım.

Sub Makro2()
For i = 3 To 400
i = i
Rows(i).RowHeight = Rows(i).RowHeight + 20
Next
End Sub

Bu kodu uygularken alt toplamları dahil etmemeyi yapabilme ihtimalimiz varmı ?

Fakat bunda şöyle problem oluyor. Kodu her çalıştırdığımda yükseklik büyüyor, pivot taboloyu yenilediğimde pivot tablonun yükseklikleri eskiye dönüyor ama pivot tablonun sayfayı doldurmadığı yerler büyük kalıyor onları da orjinale çevirecek bir kod olarak ne yazabilirim
teşekkürler.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Workbook_Open()
Range("a3:E" & Cells(65536, 3).End(xlUp).Row).EntireRow.AutoFit
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range("a3:E" & Cells(65536, 3).End(xlUp).Row).RowHeight = _
Range("a3:E" & Cells(65536, 3).End(xlUp).Row).RowHeight + 2
End Sub