DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ekteki dosyada bulunan makroyu çalıştırdığımda yeni çalışma kitabı olarak kayıt yapıyor.Fakat aynı makro excell 2007'de hata veriyor.
Bu konuda yardımcı olabilirmisiniz.
Sub Kaydet()
'Konu : Kitabı Farklı Kaydet
'Mail : m.batu.1967@gmail.com
'Msn : m.batu.1967@hotmail.com.tr
'Coder By : asi_kral_1967
'Not : Kod 2007'ye uyarlanmıştır.
Dim zaman As String
Dim uzun As Integer
zaman = Sheets("sayfa1").Cells(1, 1)
zaman = Replace(zaman, ":", ";")
uzun = Len(zaman)
zaman = Left(zaman, uzun - 3)
ChDir _
"H:\Yeni klasör"
ActiveWorkbook.SaveAs Filename:= _
"\\H:\Yeni klasör\güncel kitap- " & zaman & ".xlsm" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("sayfa1").Select
MsgBox ("kayıt edildi.")
End Sub
merhaba dosya uzantısı değiştiği zaman bir uyarı ile karşılaşıyorum.
ekte belirtilen resimde olduğu gibi.
Bunu nasıl çözebiliriz acaba.
teşekkürler.
Evet göndermiş olduğunuz kodlar çalışıyor.Herhangibir uyarı yok.
emeğinize sağlık asi_kral_1967