Sütun genişliği komutu neden doğru çalışmıyor?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sadece merakımdan soruyorum. Aşağıdaki kodlarda kırmızı renkli ifadenin yerine "F5:F500" yazdığımda Selection.ColumnWidth = 12 satırı görev yapıyor. Bu şekilde bıraktığımda ise sadece ilk kolonun genişliği 12 oluyor. Diğerleri neyse o.

Private Sub CommandButton1_Click()
    Range([COLOR="Red"]"F5:F" & Cells(Rows.Count, "F").End(3).Row[/COLOR]).Select
    Selection.Copy
    Range("N5").Select
    Selection.ColumnWidth = 12
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
        SkipBlanks:= False, Transpose:=True
End Sub

Neden olabilir?
Saygılarımla

 

[muygun]

Merhaba;
Sütun sayısı Harfe dönüştürerek sonuç alınabilir.

Sub Makro1()
verisayısı = Cells(Rows.Count, "F").End(3).Row
sütunsayısının_harfadı = Split(Cells(1, verisayısı).Address(1, 1), "$")(1)
Columns("F:" & sütunsayısının_harfadı).Select
Selection.ColumnWidth = 12
Range("A1").Select
End Sub

Burada F sütunundaki veri sayısına bağlı kaç sütun sonrasında işlem yapacaksanız verisayısı verisine ekleme yada çıkarma yaparak düzenleme yapabilirsiniz.

iyi çalışmalar.

 

[Tevfik_Kursun]

Sayın Muygun,
Çok teşekkür ederim.
Saygılarımla