Yedek Almada Problem

Katılım
22 Temmuz 2006
Mesajlar
186
Excel Vers. ve Dili
2003
Arkadaşlar hepinize kolay gelsin,

Aşağıdaki kodlarla çalışma kitabından çıkarken yedek aldırıyordum, benim bilgisayırmda sorunsuz çalışıyor ama başka bilgisayardan aynı dosyada bu kodlar çalıştırıldığında " . , : / " butür karekterler kullanılamaz diye uyarı veriyor.

'ActiveWorkbook.SaveAs Filename:="\\(AĞDAKİ BİLGİSAYAR YOLU)\" & Date & ".xls"

Yardımlarınızı bekliyorum arkadaşlar.
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Muhtemelen sizin bilgisayarınızda tarih ayracı olarak Nokta(.) kullanılıyor bu yüzden hata vermiyor.

Birde şöyle deneyin

Kod:
Dim Tarih As String
Tarih = Day(Date) & "." & Month(Date) & "." & Year(Date)
ActiveWorkbook.SaveAs Filename:="[URL="file://(AĞDAKİ/"]\\(AĞDAKİ[/URL] BİLGİSAYAR YOLU)\" & Tarih & ".xls"
 
Katılım
22 Temmuz 2006
Mesajlar
186
Excel Vers. ve Dili
2003
Teşekkürler

Sayın Alpi yardımın için teşekkürler,

Tarih olarak bir problem yaşamıyorum.
Problem zaman da Saat:Dakika:Saniye için aralardaki krakterlerden sorun oluyor.

Bunun için nasıl bir çözüm üretebiliriz acaba,
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Herhalde onuda şu şekilde çözebiliriz

Dim Saat As String
Saat = Hour(Now) & "." & Minute(Now)
 
Katılım
22 Temmuz 2006
Mesajlar
186
Excel Vers. ve Dili
2003
Sayın Alpi

Çok teşekkür ederim.
 
Üst