Sayfa kopyalama

SilinenUye8231 · 10 Kas 2019

Merhaba
Ekte gönderdiğim excel dosyamda sayfa çoğaltma kodu mevcut.
Yapmak istediğim sayfa üzerindeki butona bastığımda sol tarafa sayfa eklesin.
Birde sayfa isimleri rakam olması şartı eklemeye çalıştım ama olmadı.

Örneğin 2019 sayfasındaki butona bastığımda hemen soluna 2020 sayfası oluşsun,

Yardımcı olur musunuz?

SilinenUye8231 · 10 Kas 2019

Örnek dosyayı ekliyorum.

Ömer BARAN · 10 Kas 2019

Cep telefonundan yazıyorum, bu nedenle hata olabilir.

Sub YENI_SAYFA()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
isim=Activesheet.Name
For each shf In Thisworbook.Sheets
If shf.Name = Val(isim) + 1 Then
Msgbox "Sayfa zaten var"
Exit Sub
End If
Next
ActiveSheet Copy After:=Sheets.Count
Activesheet.Name=Val(isim)+1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

SilinenUye8231 · 10 Kas 2019

Sayın Ömer Bey, hayırlı sabahlar ilginiz çok teşekkür ediyorum.
ActiveSheet.Name = isim bu satırı sarıya boyuyor.

Ömer BARAN · 10 Kas 2019

Sarı boyanan satırdaki isim kelimesinin yerine
Val(isim)+1 yazın.
Önceki cevabımı güncelledim.

SilinenUye8231 · 10 Kas 2019

Sayın Ömer Bey, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı günler diliyorum.

	Bir sayfadan diğer sayfaya sütunları kopyalama hakki83 2 Eki 2022 Makro Soruları
	Çalışma Sayfasını Başka Kitaba Kopyalama yagizasker 20 Ara 2024 Makro Soruları
	Başlangıç Değerine Göre Satırları Başka Sayfaya Kopyalamak cakarem 4 Mar 2025 Makro Soruları
	Makro ile Sayfalar Arası Kopyalama Yapma Ömer BARAN 17 Ara 2022 Makro Soruları
	Makroyla birden fazla sayfa kopyalama AhmetRasim 17 Mar 2021 Makro Soruları