Hücre Sabitleme

[Lokmanx]

Merhaba ,

Ekteki dosyada basit örnek bir çalışma var. Benim istediğim kısacası hücreleri sabitlemek.
Formüller yardımı ile bir kaç farklı sayfadan veriler alıyorum ve veriler metin olarak uzun veya kısa olabildiği için hücreler sürekli değişiyor ve liste okunmaz hale geliyor.
Bu konuda yapabileceğimiz bir şey var mı. Ben çözmedim konuyu. Sadece hücreleri istediğim boyuta getirmek ve ve o şekilde sabit kalmasını istiyorum.

İyi çalışmalar

 

[YUSUF44]

İstediğinizi tam anlamadım ama Metni Kaydır özelliğini denediniz mi?

 

[Lokmanx]

Metin Kaydırma özelliği tam istediğimi karşılamıyor maalesef. Tam olarak istediğim herhangi bir hücrenin enine 5cm ve boyuna 5cm olsun ve hiç değişmesin o oran. Örnek ilk gönderide ek olarak yer alıyor.

 

[ASLAN7410]

Merhaba. İstediğiniz bu şekilde mi?

Aşağıdaki kodu bir modüle yapıştırıp deneyin.

Sub SatırSütun()
    Sheets("Sayfa1").Rows("1:100").RowHeight = 15
    
    Sheets("Sayfa1").Columns("A:A").ColumnWidth = 8.71
    Sheets("Sayfa1").Columns("B:B").ColumnWidth = 23.71
    Sheets("Sayfa1").Columns("C:C").ColumnWidth = 8.71
    Sheets("Sayfa1").Columns("D:D").ColumnWidth = 36.29
    Sheets("Sayfa1").Columns("E:E").ColumnWidth = 24.29
    Sheets("Sayfa1").Columns("F:F").ColumnWidth = 8.57
    Sheets("Sayfa1").Columns("G:G").ColumnWidth = 66.71
End Sub

 

[ASLAN7410]

Böyle bir şey mi?
Aşağıdaki kodu sayfanın kod bölümüne yapıştırıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A,G:G]) Is Nothing Then

    Rows("1:100").RowHeight = 15
    
    Columns("A:A").ColumnWidth = 8.71
    Columns("B:B").ColumnWidth = 23.71
    Columns("C:C").ColumnWidth = 8.71
    Columns("D:D").ColumnWidth = 36.29
    Columns("E:E").ColumnWidth = 24.29
    Columns("F:F").ColumnWidth = 8.57
   Columns("G:G").ColumnWidth = 66.71

Exit Sub
End If
End Sub