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 Makrolar ile İlgili Sorular
	Çalışma Sayfasını Başka Kitaba Kopyalama yagizasker 3 Nis 2021 Makrolar ile İlgili Sorular
	Hücre başlangıç değerine göre satırları başka sayfaya kopyalamak cakarem 3 Tem 2019 Makrolar ile İlgili Sorular
	Makro ile Sayfalar Arası Kopyalama Yapma Ömer BARAN 17 Ara 2022 Makrolar ile İlgili Sorular
	Makroyla birden fazla sayfa kopyalama AhmetRasim 17 Mar 2021 Makrolar ile İlgili Sorular

Sayfa kopyalama

Kısa Açıklama