Bir sayfadaki tabloyu,yeni bir sayfaya kopyalama

[yclz3426]

Arkadaşlar merhaba,
Tez çalışması sebebiyle makroyla yeni yeni tanışıyorum, yardımcı olursanız sevinirim. Nerde yanlış olduğunu anlayamadığım hata şöyle:
Bir sayfada oluşturduğum tabloyu yeni bir sayfaya kopyalamak için yazdığım kod çalışmıyor, kod şöyle:

Sub CommandButton1_Click()
Dim i As Integer
i = TextBox1.Value
Worksheets("yeniveri").Range(Cells(2, 1), Cells(i + 1, 7)).Select
Selection.Copy
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox3.Text
ActiveSheet.Paste Destination:=Sheets(TextBox3.Text).Range(Cells(3, 1), Cells(i + 2, 7))
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki gibi dener misiniz?
Bir de TextBox3 te belirttiğiniz sayfa olabilir, onun yüzünden de hata alıyor olabilirsiniz.
Sayfa var mı yok mu diye kontrol etmek gerek. Sayfa yoksa ilgili sayfası açmalı.

Sayfa kontrolü forumda var, aratınız. Ben kodlarınızdan anladığım kadarıyla kısaltma yaptım.

Sub CommandButton1_Click()
    
    Dim i As Integer
    
    i = TextBox1.Value
    Sheets.Add.Move After:=Sheets(Sheets.Count)
    ActiveSheet.Name = TextBox3.Text
    
    Worksheets("yeniveri").Range(Cells(2, 1), Cells(i + 1, 7)).Copy Range("A3")
    
End Sub

 

[yclz3426]

arkadaşlar yukarıdaki kod kompleks bişi değil biliyorum fakat çok uğraşmama rağmen sorunu çözemedim. Çok vaktinizi alcağını zannetmiyorum, yardımcı olursanız çok makbule geçicek.

 

[yclz3426]

Kusura bakmayın iletinizi görmemiştim. Hayır sayfanın bulunmasıyla alakalı bi sorun değil. Belirttiğiniz şekilde oldu fakat sadece ilk sütunu kopyaladı,ben tablo halinde kopyalamak istiyorum.

 

[yclz3426]

Hala sorunu çözemedim. Dosyanın linkinide yolluyorum. (Burada "i" değişkeni belirlememin nedeni her seferinde farklı satırdaki tabloyu kopyalamak, bilginize olsun.)

Gönderdiğim dosyanın "yeniveri" sayfasında bulunan "ürün ağacı oluştur" butonuna bastıktan sonra çıkan penceredeki "yeni ürün oluştur" butonunun içine yerleştirdiğim copy-paste kodu çalışmıyor.

Necdet Yeşertener ilginize çok teşekkür ederim fakat yukarıda da belirttiğim gibi kodunuz çalıştı fakat tablonun tamamını kopyalamadı.

https://www.dropbox.com/s/25e58y71350792g/yeni6.xlsm

 

[Necdet]

Merhaba,

Sadece tek sütun sanmıştım, kodları düzelttim, yeniden deneyiniz.

 

[yclz3426]

Biliyorum sıkıcı olmaya başladı fakat kod bu şekilde çalıışmıyor.

"Run-time error'1024':
Application-defined error or object-defined error" hatası,

hatanın gösterdiği dizin:

Worksheets("yeniveri").Range(Cells(2, 1), Cells(i + 1, 7)).Copy Range("A3")

 

[yclz3426]

Dün geceden beri basit gözüken bu problemi çözmekle uğraşıyorum. Çeşitli varyasyonları denememe rağmen bi çözüme ulaşamadım. Artık sinirlerim gerilmeye başladı. Lütfen ilgilenmenizi rica ediyorum. Şimdiden herkese teşekkürler.

 

[yclz3426]

Merhaba,

Sadece tek sütun sanmıştım, kodları düzelttim, yeniden deneyiniz.

Necdet Yeşertener, anlamadığım bir şekilde kod çalışmıyor, yardımlarınızı bekliyorum.

 

[yclz3426]

Worksheets("yeniveri").Range("A2:G" & (i + 1)).Copy Range("A3")

şeklinde düzenlediğimde oldu. Necdet Yeşertener değerli zamanınızı ayırıp ilgilendiğiniz için çok teşekkürler.