diskete buton ile kayıt

[ccumhur]

arkadaslar yaptığımız calışmayı diskete otomatik aktarcak bir macro yazıla bilirmi? yazılırsa öğrenmek isterim. tşk

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:01584d3308]Sub disketeopyala()
ActiveWorkbook.SaveAs Filename:="A:\" & ActiveWorkbook.Name & ".xls"
End Sub[/vb:1:01584d3308]

 

[ccumhur]

teşkür edrim