excel de sayfanın tamamını başka bir sayfaya aktarma

[AvaLon-]

iyi çalışmalar kolay gelsin ekte göndermiş olduğum dosyada çalışan klasörü içerisine aktar tuşuna basıldığında klasör içerisine adı soyadı ile yeni bir çalışma sayfası açılmasını sağlamak ve tablo lar ile birlikte sayfa açılmasını nasıl sağlaya bilirim ekte sadece masa üstüne sayfa açtıra bildim vede belirli hücreler deki bilgileri aldıra bildim tablo ları aldıramadım yardımcı olurmusunuz teşekkürler kolay gelsin
exel dosyası

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.
NOT: Kodlar alıntıdır. (ayrıca başlığınızdaki ibare exel değil excel)

Link:
https://dosya.co/pbgtnh4qrnrm/AvaLon-klasör_içine_sayfa_kaydet.rar.html

 

[AvaLon-]

çok teşekkürler kardeşim

 

[AvaLon-]

sayfa sonunda ş harfi çıkıyor

 

[muygun]

Muygun bey eklediginiz belgeyi kendime uyarladım ve kodlar güzel calısıyor... tsk ederim... ancak yeni sayfaya kopyalarken formül ve makroları almamasını engelleyebilirmiyiz...

Kodları kaydettiği dosyaya zaten almaz.

Kodlarda;

Columns("A:E").Select
Selection.Copy
Sheets("kayıt").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("A7").Select
Sheets("işlem").Select
Application.CutCopyMode = False
Range("A7").Select

Kısmını silerek yerine;

Set s2 = ThisWorkbook.Worksheets("kayıt")
s2.Range("a1:e56").ClearContents
For i = 1 To 56
For k = 1 To 5
If Cells(i, k) <> "" Then
s2.Cells(i, k) = Cells(i, k)
End If
Next k
Next i

Kodlarını ekleyin ve deneyin.
İyi çalışmalar.

 

[muygun]

Muygun bey tsk ederim... makroda aktardıgımız excel belgesinin ismini islem sayfası b3 den aldıgı gibi aktardigımız sayfada isminide bu sekilde verebilirmiyiz....

Olabilir.
Deneyin.

 

[muygun]

Muygun bey cok sagolun ellerinize saglık... belge guzel calisiyor, belge ve sayfa ismini veriyor ancak belge isminin sonuna t harfi ekliyor... bu sonradan oldu makroya baktım ama nedenini bulamadim....

Kodlarda herhangi bir sorun göremedim.

Kayıt yapılan yerde aynı adlı dosya var mı?
Varsa onu silerek deneyin.