Yeni Kayıt
Konudaki Resimler
|
|
_____________________________
Gandırası çam çam olanın mandırası gam gam olurmuş
|
Bildirim
excel otomatik farklı kaydetme
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
aşağıdaki makroyu kullanın.
kayıt aralığı 1 dakika olarak ayarlandı
ancak bilgisayar yavaşsa biraz daha yavaşladığını hissedebilirsin.
çünkü bilgisayara sürekli kontrol edeceği yeni bir iş veriliyor.
hızlı bilgisayarda yavaşlama hissedilmez.
kodlar biraz daha geliştirilebilir ancak basit hali işinizi görecektir.
kayıt klasörü ve adını
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
satırından değiştirebilirsin.
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
KaydetmeAraligi = 1 'dakiha
Do
If KayitZamani < Minute(Time) Then
'KayitNo = KayitNo + 1
KayitNo = Replace(Time, ":", "")
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
ActiveWorkbook.SaveAs Filename:=DosyaADI
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 11 Şubat 2016; 11:09:51 >_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
-
üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
kodlar değiştirildi. aşağıda:
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
KaydetmeAraligi = 1 'dakika
Do
Dakika = Minute(Time)
If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
If KayitZamani < Dakika Then
'KayitNo = KayitNo + 1
'KayitNo = Replace(Time, ":", "")
KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
ActiveWorkbook.SaveAs Filename:=DosyaADI
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 10 Ekim 2015; 19:49:30 >_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
-
quote:
Orijinalden alıntı: akcan
üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
kodlar değiştirildi. aşağıda:
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
KaydetmeAraligi = 1 'dakika
Do
Dakika = Minute(Time)
If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
If KayitZamani < Dakika Then
'KayitNo = KayitNo + 1
'KayitNo = Replace(Time, ":", "")
KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
ActiveWorkbook.SaveAs Filename:=DosyaADI
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub
teşekkürler ..işe yaradı. fakat şöyle bir şey yapmamız mümkünmü. şimdi bu kodla hep farklı dosyalar şeklinde kaydediyor ya. ilk exceli farklı kaydetse sonrakileri hep onun üzerine kaydetse.mümkünmü böle bişi_____________________________ Gandırası çam çam olanın mandırası gam gam olurmuş
-
Tabii
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
AsilDosyaADI = ActiveWorkbook.FullName
KaydetmeAraligi = 1 'dakika
Do
Dakika = Minute(Time)
If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
If KayitZamani < Dakika Then
'KayitNo = KayitNo + 1
'KayitNo = Replace(Time, ":", "")
KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
ActiveWorkbook.SaveAs Filename:=DosyaADI
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=AsilDosyaADI
Application.DisplayAlerts = True
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
-
olmuyor hocam.quote:
Orijinalden alıntı: Adamszalaiquote:
Orijinalden alıntı: akcan
üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
kodlar değiştirildi. aşağıda:
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
KaydetmeAraligi = 1 'dakika
Do
Dakika = Minute(Time)
If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
If KayitZamani < Dakika Then
'KayitNo = KayitNo + 1
'KayitNo = Replace(Time, ":", "")
KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
ActiveWorkbook.SaveAs Filename:=DosyaADI
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub
teşekkürler ..işe yaradı. fakat şöyle bir şey yapmamız mümkünmü. şimdi bu kodla hep farklı dosyalar şeklinde kaydediyor ya. ilk exceli farklı kaydetse sonrakileri hep onun üzerine kaydetse.mümkünmü böle bişi
Alıntıları Göster
ActiveWorkbook.SaveAs Filename:=DosyaADI
kısmında hata veriyor. ben hiç bilmiyorum bu makro eklemeyi.
biraz eksiğim açıkçası. bana biraz detaylı anlatabilirseniz sevinirim.
yaptıklarım şöyle
1-sizin göndermiş olduğunuz kodları eksiksiz kopyalıyorum.
2-excelde alt+f11 yapıp insert modüle diyorum.
3-kodlarınız buraya yapıştırıyorum.
4-masaüstüne kayıtlı exceller diye bir dosya açıyorum. dosya konumunu kopyalıyorum ve sizin kodlarınızdaki dosya adı bölümüne yapıştırıyorum. yani şöyle oluyor = DosyaADI = "C:\Users\xxxx\Desktop\kayıtlı exceller_" & KayitNo & ".xls"
5-ardından ctrl+s yapıyorum. ve karşıma kaydetme seçenekleri çıkıyor . aynen şöyle yazıyor: makro içermeyen çalışma kitabı olarak kaydetmeye devam etmek için eveti tıklayın.
6- ben hayırı tıklıyorum. run time error 1004 yazıyor.debug dediğimde şu satırı sarıya boyuyor = ActiveWorkbook.SaveAs Filename:=DosyaADI
nerede hata yapıyorum.
< Bu mesaj bu kişi tarafından değiştirildi Adamszalai -- 11 Şubat 2016; 22:41:34 >_____________________________ Gandırası çam çam olanın mandırası gam gam olurmuş
-
excel 2007 üzeri ise
makro içerdiği için dosya uzantısını xlsm olarak belirleyin
Sub OtomatikKaydet()
' makro: Mesut Akcan
' akcanSoft.com
AsilDosyaADI = ActiveWorkbook.FullName
KaydetmeAraligi = 1 'dakika
KayitKlasoru = "c:\KAYIT"
Do
Dakika = Minute(Time)
If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
If KayitZamani < Dakika Then
'KayitNo = KayitNo + 1
'KayitNo = Replace(Time, ":", "")
KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
DosyaADI = KayitKlasoru & "\dosya_" & KayitNo & ".xlsm"
ActiveWorkbook.SaveAs Filename:=DosyaADI
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=AsilDosyaADI
Application.DisplayAlerts = True
KayitZamani = Minute(Time)
End If
DoEvents
Loop
End Sub_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
