Sayfadaki tüm verileri yeni sayfaya kopyalamak

[ulutanas]

Arkadaşlar merhaba,
Uzun zaman oldu excel ile uğraşmayalı bir çok şeyi unuttuğumu fark ettim. Yeni işletmem de kullanacağım bir taslak hazırladım ama kod kısmına gelince tıkandım. Sizlerden ricam konu hakkında yardımlarınız.

Konudan kısaca bahsedeyim. TESELLÜM MAKBUZU DATA sayfasına müşterilerimin getirdiği ürünlerin teslimi ile ilgili bazı veriler yazıyorum birde tesellüm makbuzu numarası var j3 hücresinde bu sayfaya girdiğim verileri Kaydet tuşuna basınca makbuz numarası adında yeni bir sayfa açıp bütün verileri oraya kaydedecek. Data sayfasındaki makbuz no sunu da +1 yapacak.

Yardımlarınız için şimdiden teşekkür ederim.

İyi çalışmalar,
Saygılarımla...
Ulutan Uygur.

 

[aercin]

Aşağıdaki kodları sayfanızdaki yerlere göre uygulayarak çalıştırabilirsiniz.

Sub Kopyala()
YeniSayfaAdi = Cells(1, 5).Value
Sheets("MAKBUZ").Copy After:=Worksheets(Worksheets.Count)
ActiveWindow.ActiveSheet.Name = YeniSayfaAdi
Sheets("MAKBUZ").Select
Cells(1, 5).Value = Cells(1, 5) + 1
End Sub

 

[ulutanas]

İlginiz için çok teşekkürler lakin dosyada verdiğiniz kodları ekleyince hata veriyor.
Sizden ricam ekli dosyaya siz ekleyebilir misiniz.

İyi çalışmalar,
Saygılarımla...
Ulutan Uygur.

 

[turist]

Alternatif olarak;
VBA sayfasında Sayfa6 ya ekleyerek deneyin.

Private Sub CommandButton1_Click()
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = [J3].Value
    ActiveSheet.Shapes("CommandButton1").Delete
    Sayfa6.Select
[J3].Value = [J3].Value + 1
   MsgBox [J3].Value & "  Tesellüm Makbuzu Kaydedildi"
End Sub

 

[turist]

Dosyanızda Makbuz sayfası Sayfa Koruması ile veri girişi yapılan yerler açık bırakılmış ve makbuz yazıldıktan sonra veriler temizlenmiştir.
Deneyin.

 

[ulutanas]

Ancak bu kadar güzel yapılırdı, söylemeyi unuttuğum şeyleri bile siz düşünüp yapmışsınız ya harikasınız hocam. Çok ama çok teşekkür ederim.

İyi çalışmalar,
Saygılarımla...
Ulutan Uygur.