Macro yardımıyla sayfa kopyalama

[TolgaYavuz]

Elimde bulunan bır excel dosyasını makro yardımıyla bır tıklama da yenısını olusturmak istiyorum ve yeni bilgileri mi kaydettikten sonra da sayfanın ismini de yeni den adlanrırmak istiyorum bu konuda yardım edebılırseniz sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Sub yeni()
ad = InputBox("sayfa ismini giriniz.")
If ad = "" Then
MsgBox "önce isim girmelisiniz"
Exit Sub
End If
For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name = ad Then
MsgBox "bu isimde bir kaydınız mevcut."
Exit Sub
End If
Next
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ad
End Sub

 

[TolgaYavuz]

yardımın icin tesekkür ederim zahmet olmazsa bırde ana sayfa yazan yere bır buton seklınde yapıp ona tıklayınca yenı sayfa acsak olabilir mi ????
Tskler

 

[mumunal]

yardımın icin tesekkür ederim zahmet olmazsa bırde ana sayfa yazan yere bır buton seklınde yapıp ona tıklayınca yenı sayfa acsak olabilir mi ????
Tskler

Bu kadarını yapabildim umarım işinizi görür.

 

[caspero78]

Link açmıyor