Makro kodu yazıldıktan sonra araya sütun ekleme

[simayakkurt]

Merhabalar,

Excel Makro da bir kod yazdım.
Mesela D sütununda KasaEn diye bir değişken var. D sütunundan öncesine yeni bir sütun ekliyorum, KasaEn artık E sütununda oluyor ve Range("D" & i) olarak kullanmış olduğum tüm kod satırlarını değiştirmem gerekiyor.
Kodun bir kısmı aşağıdaki gibi devam ediyor.

sayi = Application.CountA([a:a]) + 1
'1.Sütundaki toplam dolu hücre sayısı

For i = 3 To sayi

If Range("b" & i) = "Normal Kapı" Then
If Range("C" & i) = "DOLU" Then

Range("H" & i) = Range("E" & i) - 3.5
Range("I" & i) = Range("G" & i) * 2

Range("J" & i) = Range("D" & i) - 14.4
Range("K" & i) = Range("G" & i) * 3
...

Kolay bir yolu var mıdır? Sütunu isimlendirmek gibi ya da değişkene atamak olabilir?

Yardımlarınızı rica ediyorum

 

[muygun]

Merhaba;

Sub sütun_kaçıncı()
For i = 1 To Cells(1, 256).End(xlToLeft).Column
If Cells(1, i) = "KasaEn" Then süt = i
Next i
Cells(3, süt) = "burası"
MsgBox ("sütun no=") & süt
End Sub

başlıkların 1. satırda olduğunu varsayarsak makroyu çalıştırdığınızda;
for next aralığında başlığın sütun no'sunu bulunur.
Artık yeni bir döngü ile;
Cells(3, süt) = "burası"
3 yerine döngü adı yazarak istediğinizi yapabilirsiniz.
İyi çalışmalar.

 

[simayakkurt]

Merhaba;

Sub sütun_kaçıncı()
For i = 1 To Cells(1, 256).End(xlToLeft).Column
If Cells(1, i) = "KasaEn" Then süt = i
Next i
Cells(3, süt) = "burası"
MsgBox ("sütun no=") & süt
End Sub

başlıkların 1. satırda olduğunu varsayarsak makroyu çalıştırdığınızda;
for next aralığında başlığın sütun no'sunu bulunur.
Artık yeni bir döngü ile;
Cells(3, süt) = "burası"
3 yerine döngü adı yazarak istediğinizi yapabilirsiniz.
İyi çalışmalar.

Cevabınız için teşekkürler çok anlayamadım ancak kullanacağım verileri başka sayfaya aldım hesaplamaları başka çalışma sayfasında yapıyorum. Umarım Tekrar bir sorunla karşılaşmam. İlginiz için teşekkürler.