Çalışma Sayfası Ekleme

[ozgurkeskin]

Merhaba aşağıdaki komut ile çalışma kitabına taşı kopyala işlemi yapılmakta buna eklemek istediğim bir sayaç gibi eklenen sayfaya otomatik numaralandırma yapması

Sheets("Sayfa14").Select
Sheets("Sayfa14").Copy Before:=Sheets(1)
Sheets("Sayfa14 (2)").Select
Sheets("Sayfa14 (2)").Name = "18"
ActiveWindow.SmallScroll Down:=-6
End Sub

 

[Korhan Ayhan]

Her seferinde tek sayfa mı ekliyorsunuz? Yoksa toplu sayfa ekleme işlemi mi yapıyorsunuz?

 

[ozgurkeskin]

Her seferinde tek sayfa mı ekliyorsunuz? Yoksa toplu sayfa ekleme işlemi mi yapıyorsunuz?

Her seferinde tek tek ekleniyor korhan bey

 

[programer]

Merhaba,

Makro İle Eklediğim Sayfanın Ensonda Olması

Makro Ãle Eklediğim Sayfanın Ensonda Olması Aşağıdaki kodu kullamıyorum sayfa ismini ComboBox1 den alıyor ama kaydet dediğimde sayfayı sona atmıyor bunun için ne yapmam gerekli Private Sub CommandButton1_Click() Worksheets("M_List").Activate Dim t As Range If ComboBox1 = "" Then...

www.excel.web.tr

yukarıdaki konu umarım size yardımcı olur.

İyi Çalışmalar.

 

[Levent Menteşoğlu]

Sheets("Sayfa14 (2)").Name = "18"

Yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.

Sheets("Sayfa14 (2)").Name =sheets.count

 

[ozgurkeskin]

Sheets("Sayfa14 (2)").Name = "18"

Yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.

Sheets("Sayfa14 (2)").Name =sheets.count

Levent hocam her sayfa için + 1 ekleme yaparak sayfa adını değiştirmesini istiyorum sayfa 14 yerine ekleme yapıldıgında 15 - 16 - 17 - 18 diye devam etmesi lazım

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. En son sayfa numarasına 1 ekleyerek yeni eklenen sayfayı adlandırır. Yine olmadıysa örnek dosyanızı ekleyin.

Sheets("Sayfa14 (2)").Name = Sheets(Sheets.Count).Name + 1