makroyla hücre aralığı

[kemalist]

benim yapmak istediğimmakroyla sütun aralığı nasıl yapılır?
örnek dosya ektedir.
ilginiz için şimdiden teşekkür ederim.

 

[bmutlu966]

benim yapmak istediğimmakroyla sütun aralığı nasıl yapılır?
örnek dosya ektedir.
ilginiz için şimdiden teşekkür ederim.

Sub genislik()

   j = InputBox("Kaç kolon genişliği ayarlayacaksınız")
     k = InputBox("Genişliği girin")
   
   For i = 2 To j * 2 Step 2
    Cells(1, i).Select
    Selection.ColumnWidth = k
Next
End Sub

 

[kemalist]

Sub genislik()

   j = InputBox("Kaç kolon genişliği ayarlayacaksınız")
     k = InputBox("Genişliği girin")
   
   For i = 2 To j * 2 Step 2
    Cells(1, i).Select
    Selection.ColumnWidth = k
Next
End Sub

hata verdi
örnek dosya ektedir

 

[bmutlu966]

Gönderdiğn dosya sorunsuz çalışıyor bende...

 

[kemalist]

teşekkürler işlem tamam