Makro ile sütun açma ve açılan sütunu iptal etme

[ckarabacak]

Arkadaşlar Merhaba

Ekli dosyada belirtmeye çalıştığım gibi veri olan iki sütun arasına makroda (rakam ile belirleyerek) sütun açma ve açılan sütunları iptal etmek için yardımlarınızı rica ederim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub ColumnInsert()
  x = InputBox("Eklenecek Sütun Sayısını Giriniz")
    Range("F1").Select
  For i = 1 To x
    Selection.EntireColumn.Insert
    Next i
End Sub

Açılan sütunları iptal etmekten kastınız nedir?

 

[ckarabacak]

Sayın uzmanamele Merhaba

öncelikle ilginiz için teşekkür ederim

sorunuz cevabı ise eklenen sütunların hepsini veya bir kısmını kaldırmak

 

[ckarabacak]

Sayın uzmanamele Tekrar Merhaba

makroyu kullandığım da ortaya çıkan bir durumda f1 den açılan sütunlar sonraki sütunlarda veri olduğunu düşünürsek daha çok sütun açabilirmiyiz
yani I sütununda da veya daha sonraki sütunda da veri varsa her verinin sağında istenilen sayıda sütun eklemek ve çalışmalar sonunda boş kalan sütunların kaldırılmasını sağlayabilirmiyiz.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub ColumnInsert()
    x = InputBox("Eklenecek Sütun Sayısını Giriniz")
    stn = InputBox("Eklenecek Sütun Yerini HARF olarak Giriniz")
Range(stn & 1).Select
  For i = 1 To x
    Selection.EntireColumn.Insert
    Next i
End Sub

Sub ColumnDelete()
    stn1 = InputBox("Silinecek BAŞLANGIÇ Sütununu HARF olarak Giriniz")
    stn2 = InputBox("Silinecek SON Sütununu HARF olarak Giriniz")
Range(stn1 & 1 & ":" & stn2 & 1).Select
    Selection.EntireColumn.Delete
End Sub

 

[ckarabacak]

Sayın uzmanamele İyi Akşamlar

X 400 hatası veriyor

 

[ckarabacak]

hata bu yazdıklarımdan kaynaklanabilirmi; InputBox insert Eklenecek Sütun Yerini HARF olarak yazma yeri yok, Delete'de Silinecek SON Sütunu HARF yazma yok