Sayfaya veri aktardıktan

[nur_u_allah]

Arkadaşlar veri sayfasından verileri başka sayfaya kopyala yaptırdıktan sonra veri sayfasındakı gırılen verilerin temizlenmesine ihtiyacım var yardımcı olursanız sevınır
Kopyalama yapmak için sağ ustte menu var onu kullanıyorum

Sayfa koruma şifresi:12345 dir.

 

[benli58]

Private Sub CommandButton1_Click()
For a = 1 To Sheets.Count
If TextBox1 = Sheets(a).Name Then Exit Sub
Next
TextBox1.Text = Sheets(1).[c7].Text
Sheets(1).Select
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
ActiveSheet.Name = TextBox1
Sheets(1).Activate
Range("c7:l12").ClearContents
Range("c15:l28").ClearContents
Unload Me
End Sub

 

[nur_u_allah]

Private Sub CommandButton1_Click()
For a = 1 To Sheets.Count
If TextBox1 = Sheets(a).Name Then Exit Sub
Next
TextBox1.Text = Sheets(1).[c7].Text
Sheets(1).Select
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
ActiveSheet.Name = TextBox1
Sheets(1).Activate
Range("c7:l12").ClearContents
Range("c15:l28").ClearContents
Unload Me
End Sub

Hocam verdiğinizi ekledim ama tam bi sonuç vermiyo bi örnek daha ekledim bi deneyin verdiğiniz kod eklenmiş hali sayfada çalışma aralıklarında koruma var şifresi aynı 12345 dir

 

[benli58]

dosyanız ektedir. sadece işlem yapılan hücrelerin korumasını kaldırdım.
kolay gelsin.

 

[nur_u_allah]

teşekkür ederim ilgin için istediğim gibi oldu şimdi