Çalışma sayfasında araya sayfa ekleme

[Ergün GÖKER]

Hayırlı geceler
Bir çalışma sayfası hazırlamaya çalışıyorum.
yapmaya çalıştığım, bir sayfada çalışırken değişen durumlara göre yan sayfada bulunan bir formattaki alanı çalışma alanımın ortasına kopyalatmak veya değişen duruma göre aradan çıkarmak. Bu durum mevcut şartlara göre değişiyor bazen 1 sayfa bazen 5 sayfa ekliyorum, Bazende 10 bu durum değiştiği için bunun makro ile getirilip eklenmesini veya çıkarılmasını(sayfanın) istiyorum. Bu konuda destek ve yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

Dosyam :

http://s3.dosya.tc/server12/m3754y/DENEME_01.xls.html

 

[Ömer BARAN]

Merhaba.

-- Önce sayfalardaki açıklama yazdığınız METİN KUTULARINI silin.
-- VUK DEPO sayfasına en SOLa boş bir sütun (A sütunu) ekleyin ve aşağıdaki kodu kullanın.
.

[B]Sub SAYFA_EKLE()[/B]
If WorksheetFunction.CountIf(Sheets("VUUK").Range("B:B"), "Öncelik*") = 0 Then
    sat = 61
Else
    sat = (WorksheetFunction.CountIf(Sheets("VUUK").Range("B:B"), "Öncelik*") + 1) * 54 + 7
End If
    Sheets("VUKDEPO").Range("A1:AS54").Copy
    Sheets("VUUK").Cells(sat, "A").Insert Shift:=xlDown
    Application.CutCopyMode = False
[B]End Sub[/B]

 

[Ergün GÖKER]

Ömer hocam saygılar .
Sayfa ekleme işi tamam düzgün ekliyor aynı şekilde silmek istediğimde de eklenenleri tersten silmek istiyorum.

 

[Ömer BARAN]

Belge ekte.
Dosyaya buradan da erişebilirsiniz.
.

 

[Ergün GÖKER]

Hocam teşekkürler
Altın üye olmadığım için dosyayı indiremiyorum.
Teşekkür ederim