Makro ile sayfayı kaydetme

[skyhero34]

Merhabalar,

Aşağıda yazılı olan makro ile bir excel dosyasındaki tüm sayfaları farklı kaydedebiliyorum fakat kayıt yeri için makroyu her seferinde düzenlemem gerekiyor. Bunun yerine makroda "MyPath" yazan yeri sordurmak mümkünmüdür. yani makroyu çalıştırdığımda bana kayıt yerini sorsun. Gözat penceresi olmasda olur, elle yazılacak bir pencere bile olabilir

Sub Kaydet()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:= MyPath & "\" & sht.Name & ".xls", FileFormat:=56
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub

Teşekkürler,

 

[hamitcan]

Bu şekilde deneyin.

MyPath = InputBox("Yolu Girin", , ThisWorkbook.Path & "\")

 

[skyhero34]

Çok teşekkür ederim, sorunsuz çalışıyor.