metni kaydır ve satır yüksekliği

[acar6783]

konuların hemen hemen hepsini karışıtırdım ama tam olarak yanıtımı bulamadım ya da anlayamadım verilen cevapları.....

sorum;

A sütunundaki verilerin (en sona kadar ) ilk üç satırdakiler gibi aynı yükseklikte (sırasıyla 39 - 34,75 - 9,75)
[sütün genişliği sabit kalacak--35--]
ve
hem metni kaydıracak hem de hücreye göre otomatik sığdıracak biir yol bulamadım ... bu soruma cevap varmıdır yapılabilirmi bu şekilde bir şey.....

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Sub Ayarla()
Application.ScreenUpdating = False
    Columns("A:A").ColumnWidth = 35
    Rows(1).RowHeight = 39
    Rows(2).RowHeight = 34.75
    Rows(3).RowHeight = 9.75
    Columns("A:A").Select
    With Selection
        .WrapText = True
        .ShrinkToFit = True
    End With
    Rows("1:3").Copy
    Cells.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Ayarlama İşlemi Tamamlandı.", , "dEdE Başarılar Diler..."
End Sub

 

[acar6783]

hocam aynısını benim sayfaya uyguladığımda resimdeki gibi bir hata alıyorum

 

[dEdE]

Merhaba,
2007 versiyonunda satır sayısı çok fazla olmalı! Aşağıdaki satırı

Cells.PasteSpecial Paste:=xlPasteFormats

Bununla değiştirip deneyelim. 1000 satır için düzenleme yapar, isterseniz satır sayıosını artırırsınız.

Rows("4:1000").PasteSpecial Paste:=xlPasteFormats

 

[acar6783]

hocam.
kodu uyguladım hata yok fakat hücredeki veriyi otomatik sığdırmıyor.....metin ne kadar uzun olursa olsun sadece belirli bölümünü gösteriyor kalanı okunmuyor..

 

[dEdE]

Merhaba,
Haklısınız Metni kaydır ile Uyacak şekilde darat seçenekleri bir arada kullanılamıyor. Metni kaydır kullanılırsa uyacak şekilde daralt pasif oluyor. Bunu unutmuşum.
Bu durumda iki seçemekten birini kullanacaksınız.
Koddaki
WrapText = True ---> metni kaydır
ShrinkToFit = True--> Uyacak şekilde daralt işlemi yapar . Birini silip diğieri ile devam edebilirsiniz.
Bu konuyu hücreleri biçimlendir seçeniğ ile manuel olarak ta görebilirsiniz.
Hoşçakalın.

 

[acar6783]

Hocam ilginize cok teşekkürler..
peki bu durumda hem metni kaydırıp hem de uyacak şekilde daraltabilecek bir şey yapılamıyormu..

 

[acar6783]

hocam yokmudur....