Makro İle Sütun Genişliği Ayarlama

[Sarigol_937]

Merhaba arkadaşlar, 3.sütündan 11. sütüna kadar hücre genişliğini bir buton ile "16cm" olcak şekildeayarlama şansımız varmıdır. ben satır yüksekliğini şu kodla yapıyorum ancak sütün genişliğini nasıl bilmiyorum.

Sub yükseklik()
For i = 1 To 400

i = i

Rows(i).RowHeight = 25
Next
End Sub

 

[Mustafa MUTLU]

buyurun

Sub Genislet()
    Columns("c:k").ColumnWidth = 16
End Sub

 

[Sarigol_937]

Allah razı olsun süpersin kardeş.Kod işime yaradı.

 

[Mustafa MUTLU]

Allah razı olsun süpersin kardeş.Kod işime yaradı.

iyi Geceler...

 

[yusuf1284]

Belirli bir satırdan başlayarak son dolu hücreye kadar yaptırabilir miyiz hocam

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayabilirsiniz.

For h = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(h, "A").RowHeight = 20
Next