Çalışma Sayfasını Farklı Klasöre Aktarma,

[MrExcelMr]

Merhaba,

Açık çalışmakta olduğum Çalışma kitabının "Sayfa1" sayfasını makro yardımıyla Masaüstü\RPM klasörünün içerisine A1 hücresindeki isim ile .xlsx uzantılı excel kitabı oluşturmak istiyorum. Yardımcı olur musunuz.

 

[EmrExcel16]

Merhaba deneyiniz..

Sub Farkli_Kaydet()
    Dim DsyYol
    If Sheets("Sayfa1").Range("A1").Value <> "" Then
        On Error Resume Next
        DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RPM"
        If Dir(DsyYol, vbDirectory) = "" Then MkDir (DsyYol)
        Sheets("Sayfa1").Copy
        ActiveSheet.DrawingObjects.Delete
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs DsyYol & "\" & Range("A1").Value
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False
        MsgBox "İşlem tamam..."
    Else
        MsgBox " Dosya ismi boş olamaz"
    End If
End Sub

 

[MrExcelMr]

@EmrExcel16 Hocam öncelikle kod için teşekkür ederim. Şöyle durum ile karşılaşıyorum. Çalışmakta olduğum dosyamda Sayfaları silmesi için bir makro ve kapalı dosyalardan değerler alıyorum. Makroyu bir adet butona bağlıyorum. Ama çalıştırdığımda Sayfa1 koda takılıyor ve masaüstündeki klasöre oluşturmuyor.
Bunun nedeni ne olabilir.

 

[EmrExcel16]

Dosyanızda "Sayfa1" isimli sayfa yok mu ? tam olarak anlamadım.

 

[MrExcelMr]

Aslında farklı bir excel dosyasında çalışıyor. Ama nedense benim sayfada diğer kodlardan kaynaklı takılıyor.

 

[EmrExcel16]

Diğer kodlarınızı görmek gerekir belki ama , verdiğim kodların başka kodlara takılmasına sebep olacak bir durumu olmaması gerekir..

 

[MrExcelMr]

@EmrExcel16 Teşekkür ederim. Kolay gelsin.

 

[EmrExcel16]

Sorun çözüldü mü ?

 

[MrExcelMr]

Sorun çözüldü mü ?

Hocam araştırıyorum. Neyin sebep olduğunu bulmaya çalışıyorum. İlginiz için teşekkür ederim.

 

[EmrExcel16]

Hocam araştırıyorum. Neyin sebep olduğunu bulmaya çalışıyorum. İlginiz için teşekkür ederim.

Tamamdır , rica ederim iyi çalışmalar dilerim.

 

[MrExcelMr]

Private Sub CommandButton1_Click()
Private Sub Worksheet_Activate()

Sayfa1 de iki adet kod var Sayfa1 belirli alanlarını silmek için Module de Sub() var
Sizin kodları da Module2 yazıyorum. Acaba Sayfa1 farklı sayfaya aktarırıken kodlarıda kapsadığından kaynaklı hata alıyor olabilir mi _?

 

[EmrExcel16]

Bu şekilde cevap vermek çok zor.