Merhaba arkadaşlar...
Altta verdiğim kod ile kitap içinde sayfa4'ü başka bir isimle kopyalayabiliyorum.Benim istediğim aynı işlemi başka kitaba yapmak.
Yardım ederseniz sevinirim.Şimdiden teşekkürler...
Private Sub CommandButton10_Click()
Sheets("Sayfa4").Visible = True
Sheets("Sayfa4").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("TARİH GİRİNİZ...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
Sayfa4.[a1:ı65000] = ""
Sheets("sayfa1").Select
cvp = MsgBox("KAYDEDİP KAPATMAK İSTİYORMUSUNUZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
ActiveWorkbook.Save
Application.Quit
End If
End Sub
Altta verdiğim kod ile kitap içinde sayfa4'ü başka bir isimle kopyalayabiliyorum.Benim istediğim aynı işlemi başka kitaba yapmak.
Yardım ederseniz sevinirim.Şimdiden teşekkürler...
Private Sub CommandButton10_Click()
Sheets("Sayfa4").Visible = True
Sheets("Sayfa4").Copy After:=Worksheets(Worksheets.Count)
10 NewPageName = InputBox("TARİH GİRİNİZ...!!!")
For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(NewPageName) Then
MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin."
GoTo 10
End If
Next
ActiveWindow.ActiveSheet.Name = NewPageName
Sayfa4.[a1:ı65000] = ""
Sheets("sayfa1").Select
cvp = MsgBox("KAYDEDİP KAPATMAK İSTİYORMUSUNUZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
ActiveWorkbook.Save
Application.Quit
End If
End Sub