HÜcre Ekleme

[riyaziye]

Merhaba Sayın Grup Üyeleri;

Set n_ust = Sayfa2.Cells(2 + ((j - 1) * donati_sirasi_sayisi(j - 1)), 13)

şeklinde 13. kolondaki hücreyi n_ust değişkenine atama işlemini gerçekleştiriyorum ama diyelim ki excel çalışma sayfasında 9. ve 10. kolonların arasına yeni bir kolon eklemem gerekiyor ve her seferinde gidip komutlarda 13 yazan kolon numarasını bulup 14 e getirmek hata olasılığını arttırıyor.

Bunu nasıl çözebiliriz? Kolon eklediğimde kodlar içerisinde yazmış olduğum kolon numaralarını eklediğim kolon sayısı kadar arttıracak bir makro yazmak mümkün mü?

Teşekkürler

 

[Fuat Şirin]

Set n_ust = Sayfa2.Cells(2 + ((j - 1) * donati_sirasi_sayisi(j - 1)), textbox1.text)

bir textbox koyun tabiki bir tavsşye bu
koduda yukardaki gibi değiştirin siz kaç yazarsanız o şekilde işlem yapar

 

[riyaziye]

Hocam bu da bir çözüm olmakla beraber benim istediğim kolon eklediğimde kaç kolon eklediğimi sayması yani dışardan şu kadar kolon ekledim şeklinde textboxa girmek yerine yeni eklenen kolon adedini Cells(i,13+ count new columns) şeklinde bir kod yazabilmek mümkün mü acaba?

Teşekkürler

 

[Fuat Şirin]

bilgim dahilinde
söliyim tabiki daha güzel bir sonuç sunulabilir
ama

bu kodları bir butona bağlarsanız

Columns("D").Select
Selection.Insert Shift:=xlToRight
TextBox1 = TextBox1 + 1

d sütununa yeni sütun ekleyip
textbox1 de mesela 13 yazıyorsa 14 yapar

ilk yolladığım koda ek olarak kullanabilrsiniz

alternatif çözümler sunulabilir ama benim bilgima dahilinde buda işinizi görür düşünüyorum

 

[riyaziye]

Teşekkürler hocam ilgilendiniz elinize aklınıza sağlık.

 

[Fuat Şirin]

çözüm olduysa ne mutlu
Çözüldü olarak işaretlerseniz
konu araçlarından
arkadaşlar gereksiz yere uğraşmasın