Döngü ile sütun genişliğini ayarlamak

[gezgin72]

Merhaba,
Çok uzun süredir macrolarla uğraşmayınca neyin nasıl yapıldığını unutmuşum.
Benim sorunum döngü içinde sütunların genişliğini ayarlamak.
Örnek olarak kullandığım ama çalışmayan kodu yazayım:

For sutun = 1 To 400 Step 4
      Columns(sutun,sutun).ColumnWidth = 3
      Columns(sutun+1,sutun+1).ColumnWidth = 3
      Columns(sutun+2,sutun+2).ColumnWidth = 5
      Columns(sutun+3,sutun+3).ColumnWidth = 5
Next

Columns kullanımından dolayı bir hata yapıyorum ama çözemedim.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[gezgin72]

Kodlamayı aşağıda ki şekilde düzeltince çalıştı.
Belki daha sonra aynı sorunu yaşayan olursa.

For sutun = 1 To 400 Step 4
      Columns(sutun).ColumnWidth = 3
      Columns(sutun+1).ColumnWidth = 3
      Columns(sutun+2).ColumnWidth = 5
      Columns(sutun+3).ColumnWidth = 5
Next

 

[Vedat Özer]

Selamlar,


Boş bir modül ekleyip aşagıdaki kodları deneyin,

Option Explicit
Sub sütun_genişliği()
Dim ts
For ts = 1 To 400 Step 4
Cells(1, ts).ColumnWidth = 3
Cells(1, ts + 1).ColumnWidth = 3
Cells(1, ts + 2).ColumnWidth = 5
Cells(1, ts + 3).ColumnWidth = 5
Next
End Sub