Kitaptaki tüm sayfalara 1 sütun ekle

[ahzola]

İyi geceler.
Arkadaşlar forumdan bu kodu buldum.

Sub ekle()
For i = 1 To Worksheets.Count
Sheets(i).[a6].EntireRow.Insert
Sheets(i).[a24].EntireRow.Insert
Next
End Sub

kod
a6 dan sonra 1 satır
a24 ten sonra 1 satır
ekliyor.

Ben ise Kitapta
ne kadar sayfa var ise
tamamına 1 sütun eklemek istiyoru
(K) sütununu baz alarak.

Makroyu kendime uyarlayamadım
hata veriyor sürekli.

Neresini değiştirmem lazım acaba?

 

[ahzola]

Option Explicit
Sub Satır_ve_Sütun_Ekle()
Sheets.Select
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
End Sub

Farklı bir şekilde taşarlanmış ama
işimi gördü belki birilerine daha lazım olur.

iyi geceler.

 

[ugurcoskun]

Sub ekle()
For i = 1 To Worksheets.Count
Sheets(i).activate
Columns("F:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub
hangi colondan sonra ilave etmek istiyorsanız o colon ismi ile değiştirin...