• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kapalı Dosyaya Veri Kaydetmede Sayfa İsmini Değiştirme

A

AyYıldızım

Katılım
15 Nisan 2008
Mesajlar
303
Excel Vers. ve Dili
2010
Arkadaşlar Kapalı Kitap2 dosyasına kitab1 dosyasından istediğim sayfayı aşağıdaki kod ile kopyalayabiliyorum lakin sayfa aynı isimle kopyalanıyor, sayfa ismini kopyalanacak sayfadaki bir hücredeki değeri aldırabilir miyiz.
Olmadığı takdirde manuel sayfa ismi yazma penceresi eklenebilir mi. Saygılar.

Kod: 
Application.ScreenUpdating = False
    Workbooks.Open ThisWorkbook.Path & "\" & "Kitap2.xlsx"
    Workbooks("Kitap1.xlsm").ActiveSheet.Copy Before:=Workbooks("Kitap2.xlsx").Sheets("Sayfa1")
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    Sheets(1).Select
    [A1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ActiveWindow.Close
 
. . .

Kod: 
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
[COLOR="Red"]ActiveSheet.Name = Range("A1")[/COLOR]
Sheets(1).Select
[A1].Select

. . .
 
Hüseyin Bey çok teşekkürler, istediğimi yapıyor yalnız şöyle birşeyde yapılabilirmi, aynı sayfa adı varsa üzerine yazmıyor, ve kopyalanan sayfanın ismiyle kopyalanıyor, bunu aynı sayfa ismi varsa üzerine yazılabilir hale getirebilir miyiz. bunu da çözersek çok iyi olacak. şimdiden teşekkürler.
 
hocam teşekkür ederim yalnız aynı sayfa varsa üzerine yazmıyor her kaydetmede Sayfa1(1), Sayfa1(2) .. şeklinde yeni kayıt yapıyor. benim istediğim aynı isimli dosya kopyalanıyorsa üzerine kopyalama yapması yeni sayfa oluşturmaması lazım.
 
. . .

Bu hatayı örnek dosyada mı alıyorsunuz, kendi tablonuza uygulayınca mı ?
Örnek dosyada ben denemeler yaptım. Daha önce mevcut sayfa varsa siliyor. Yeniden oluşturuyor.

. . .
 
Kendi dosyamda hocam butonla yapmaya çalışınca aldım. Şimdi düzelttim hocam Allah Razı olsun. çok teşekkürler.
 
Hocam fazla oluyorum ama bu başlık altında sormak istedim. Kitap1 de bulunan sayfaları kitap2 ye sayfa ismi olarak ilk sayfadaki A1 hücresindeki değeri alacak şekilde tek sayfada birleştirmemiz mümkün mü. satır sayısı değiştirilebilir şekilde olacak şekilde. saygılar.
 
Hüseyin Bey, verdiğiniz örneğe göre, kitap1 den kapalı kitap 2 ye sayfa kopyalama işlemi tamamlandıktan sonra, bir butonla kitap 1 ' in kapanıp(userformun olduğu) kitap 2 nin açılmasını nasıl sağlayabilirim.
 
AyYıldızım' Alıntı:
Hüseyin Bey, verdiğiniz örneğe göre, kitap1 den kapalı kitap 2 ye sayfa kopyalama işlemi tamamlandıktan sonra, bir butonla kitap 1 ' in kapanıp(userformun olduğu) kitap 2 nin açılmasını nasıl sağlayabilirim.
Genişletmek için tıkla ...
. . .

Örnek için
Kitap1 de Userform oluşturun ve 1 tane buton ekleyin.
Butonun click kodlarına şunları yazın.
Tablolar aynı klasör içinde olmalı.

Çalışma adımları
  • Userformu kapatacak
  • Kitap2 yi açacak
  • Kitap1 i kapatacak

Kod: 
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

yol = ThisWorkbook.Path & "\Kitap2.xls"

Unload Me
Workbooks.Open (yol)
Workbooks("Kitap1").Close True

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

. . .
 
Hocam çok teşekkürler, bu işlemi ve kopyalama işlemini aynı buton ile modül kullanmadan yapabilirmiyiz hocam
 
. . .

Çalışma adımlarını belirttim.
Gerekli kodları, kopyama kodlarının en altına ilave edin.
Kodları çalıştırarak deneme yanılma ile yapabilirsiniz.

. . .
 
Hüseyin Hocam, Tekrardan rahatsız ediyorum ama, işin içinden çıkamıyorum, eklemiş olduğunuz örnekte, Kitap1 den Kitap 2 ye kopyalama yapıyorum, yalnız bu sayfa isimleri aynı olduğu zaman üzerine kopyalamada sorun var, art ardına kopyalama yapıp baştaki sayfa adını tekrardan kopyalamak istediğimde kopyalanan sayfadaki ismi ile kopyalanıyor. hücredeki değeri almıyor. yani araya sayfa girdiği zaman aynı isimli olanlar değişmiyor.
 
AyYıldızım' Alıntı:
Hüseyin Hocam, Tekrardan rahatsız ediyorum ama, işin içinden çıkamıyorum, eklemiş olduğunuz örnekte, Kitap1 den Kitap 2 ye kopyalama yapıyorum, yalnız bu sayfa isimleri aynı olduğu zaman üzerine kopyalamada sorun var, art ardına kopyalama yapıp baştaki sayfa adını tekrardan kopyalamak istediğimde kopyalanan sayfadaki ismi ile kopyalanıyor. hücredeki değeri almıyor. yani araya sayfa girdiği zaman aynı isimli olanlar değişmiyor.
Genişletmek için tıkla ...
. . .

Şuan dosya indirip-yüklemediğim için, bu tarz kapsamlı sorulara çözüm sunamayacağım.
Arkadaşlar yardımcı olacaktır.

. . .
 
Tamam hocam fırsatınız olduğunda yanıtlarsanız sevinirim, iyi çalışmalar dilerim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst