kapalı dosyadaki çalışma sayfasının ismini değiştirme

[samuelsaw]

a.xls çalışma kitabının içindeki a1 hücresinde yazılı olan değeri kapalı dosya olan b.xls çalışma kitabının çalışma sayfasının ismi olarak belirleyip a.xls dosyası içindeki verileri kapalı dosya olan b.xls çalışma kitabının içine kaydettirmek mümkün müdür?

 

[dEdE]

Merhaba,
Aşağıdaki linkte yer alan kodları inceler misiniz?
Sizin isteğinizden tek farkı sayfa adını A1 den değilde aktardığı sayfanın adından almasıdır.

http://www.excel.web.tr/f48/sayfa-kopyalama-t120967.html

 

[samuelsaw]

ben kapalı dosyanın çalışma sayfasının ismini değiştirip değiştirdiğim çalışma sayfasına göre işlem yapmam gerekiyor.çünkü ana sayfamdaki A1 hücresinde işlem yaptığım günün tarihi mevcut bunun kpalı dosyanın içindeki çalışma sayfasında yazılı olması gerekiyor ...ilginiz için teşekkür ederim....bunun için bi çözüm varmıdır? yada başka alatarnatif sunabilrimisiniz?

 

[dEdE]

Merhaba,
a.xls ve b.xls dosyalarınız aynı klasör içinde olmak koşulu ile aşağıdaki kodu a.xls dosyanızda bir modüle yapıştırarak kullanabilirsiniz.
Kodlar yukarıda verdiğim linkteki kodlarda küçük bir değişiklik yapılarak elde edilmiştir.

Sub Kopyala()
    sAdı = ActiveSheet.[A1].Value
    Application.ScreenUpdating = False
    Workbooks.Open ThisWorkbook.Path & "\" & "b.xls"
    For i = 1 To Sheets.Count
        If Sheets(i).Name = sAdı Then
            If MsgBox(Sheets(i).Name & "  İsimli Sayfa Var." & vbCrLf & " Yine de Aktarmak İstiyor musunuz?", _
            vbYesNo + vbQuestion, "U Y A R I   !!!!") = vbNo Then Exit Sub
            Windows("a.xls").Activate
            ActiveSheet.UsedRange.Copy
            Windows("b.xls").Activate
            Sheets(i).[A1].Select
            ActiveSheet.Paste
            GoTo Atla
        End If
    Next
    ThisWorkbook.ActiveSheet.Copy Before:=Workbooks("b.xls").Sheets(1)
Atla:
    Workbooks("b.xls").ActiveSheet.Name = Workbooks("b.xls").ActiveSheet.[A1].Value
    [A1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam...", vbInformation, "dEdE Başarılar Diler..."
End Sub

 

[samuelsaw]

çok teşekkür ederim tam istediğim gibi olmuş..emeğinize sağlık...bir sorum daha olacak; kopyaladığım sayfada butonlar var onların kopyalanmaması için ne yapabilirim?

 

[dEdE]

... kopyaladığım sayfada butonlar var onların kopyalanmaması için ne yapabilirim?

Merhaba,
Kopyalanmaması için ne yapılabilir bilmiyorum?
Ama kopyalandıktan sonra silebiliriz. Bunun için mexcut kodun aşağıda belirttiğim siyah satırlarının arasına kırmızı satırları eklemeniz yeterli olacaktır.

Workbooks("b.xls").ActiveSheet.Name = Workbooks("b.xls").ActiveSheet.[A1].Value
[COLOR="Red"]For Each Nesne In Workbooks("b.xls").ActiveSheet.Shapes
    Nesne.Delete
Next[/COLOR]
[A1].Select

 

[samuelsaw]

emeğinize sağılk ..çok teşekkürler...

 

[5353]

Bir çalışma sayfasında çalışıyorken bir Makro düğmesi olsun;
Kapalı bir dosya başka bir programdan otomatik olarak "Report (11).xls , Report (12).xls ... " otomatik geliyor. Fakat benin çalışma sayfam kapalı Report.xls dosyasına köprü hedef olduğundan. Değerler gelmiyor. Bir makro tuşuyla bu kapalı dosya ismi devamlı aynı hedef Dosyada Report.xls yapılabilir mi ? makro kapalı dosyada (11) gibi fazlalık değerleri atarak değişsin.