Sayfa kopyalama

[oornek1]

merhaba arkadaşlar ekteki dosyada "data" sayfasını userformda açtığım yeni sayfaya "data" sayfasını kopyalamasını istiyorum ben çok uğraştım ama bir türlü yapamadım sayfayı ekliyorum. eklediğim sayfaya "data" sayfasını kopyalama yapamıyorum bu konuda yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

CommandButton1_Clik olayını aşağıdaki gibi değiştiriniz.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim ad As String
On Error Resume Next
[B][COLOR=red]Sheets("data").Copy After:=Sheets(Sheets.Count)[/COLOR][/B]
Set sh = ActiveSheet
ad = sh.Name
sh.Name = TextBox1.Text
If Err.Number > 0 Then
    MsgBox "GİRDİĞİNİZ FİRMA YARATILAMAZ", vbCritical, "UYARI"
    With Application
        .DisplayAlerts = False
         sh.Delete
        .DisplayAlerts = True
    End With
End If
Call Sayfalari_Listele
Set sh = Nothing
End Sub

 

[oornek1]

hocam teşekkürler bu kod istediğim kod