Hücre Genişliklerini Değiştirmek

[ahmed_ummu]

Günaydın arkadaşlar.

Aşağıdaki kodlar ile "D" ile "AO" colonlarının genişliklerini butona her tıklandığında 1 piksel küçültsün istiyorum ama küçültmüyor. Nerede yanlışlık var yardımcı olabilir misiniz.

Sheets("tablo").Select
Sheets("tablo").Columns("d:ao").ColumnWidth = Columns("d:ao").ColumnWidth - 0.1


Aşağıdaki kod ile de genişliğini artırmak istiyorum, bu da artırmıyor.

Sheets("tablo").Columns("d:ao").ColumnWidth = Columns("d:ao").ColumnWidth + 0.1

 

[ÖmerFaruk]

Çalışması gerek.
Çalışmaması için olası nedeler

1. Application.ScreenUpdating = False yapmış olabilirsiniz.​

Çalışmayan kodlardan önce Application.ScreenUpdating = True satırı ekleyerek tekrar denermisiniz.​

​

2. Uyguladığınız 0.1 sütun genişliği biraz düşük. Göremiyor olabilir misiniz?​

​

3. Aynı makroda ya da tetiklendiği için hem azaltma hem arttırma satırları işleniyorsa sonuçta bir şey değişmemiş olacak.​

​

 

[ahmed_ummu]

Çalışması gerek.
Çalışmaması için olası nedeler

1. Application.ScreenUpdating = False yapmış olabilirsiniz.​

Çalışmayan kodlardan önce Application.ScreenUpdating = True satırı ekleyerek tekrar denermisiniz.​

​

2. Uyguladığınız 0.1 sütun genişliği biraz düşük. Göremiyor olabilir misiniz?​

​

3. Aynı makroda ya da tetiklendiği için hem azaltma hem arttırma satırları işleniyorsa sonuçta bir şey değişmemiş olacak.​

​

Teşekkürler Ömer Faruk bey.

Sheets("tablo").Select
Application.ScreenUpdating = True
Sheets("tablo").Columns("d:ao").ColumnWidth = Columns("d:ao").ColumnWidth + 0.9

Yukarıdaki hali ile de denedim. yine olmadı. Benim dosyamda bir sorun var heralde. Yeni bir excel sayfası açıp denedim
Application.ScreenUpdating = True satırını eklemeden açlışıyor.çalışıyor.