Farklı kaydet makrosu

[drummers]

ekteki dosyamda farklı kaydet makrosu yazılı bu butona tıkladığımda

L8 hücresindeki isme göre çalışma kitabımı D:\teklifler\2010\ klasörünün içne kaydetmekte

1- benim istediğim D:\teklifler\2010\ klasörünün içinde aynı isimde bir klasör varsa uyarı verip ismin sonuna 1...2... yazsın örn: L8 "deneme" olsun eğer varsa "denem1" oda varsa "deneme2" yazsın

2- konu hücresinin yanındaki hücreye günün tarihi gibi bir seri numarası versin bu seri numarası her dosya kaydedilişinde artsın ama önüne örn: PRM05012010/1 sonrakinde PRM05012010/2

TEŞEKKÜRLER

Selamlar,

Konuyla ilgili olarak aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/showthread.php?t=5837

not: konuyu inceledem fakat beceremedim... tabiki haklısınız bazı şeyleri kendimiz yapmalıyız fakat olmayınca olmuyor işte....

 

[halit3]

bu kodu denermisiniz.

Sub kayıtet()
yer = "D:\teklifler\2010\"
yer1 = Cells(9, 12).Value & ".xls"
dosya_adı = Cells(9, 12).Value
sat = 0
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(yer).Files
If Mid(Dosya.Name, 1, Len(Cells(9, 12).Value)) = Cells(9, 12).Value Then
sat = sat + 1
End If
Next
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists(yer & yer1)
If a = True Then
'MsgBox "Bu isimde bir dosya var"
'On Error Resume Next
DosyaSistemi.CopyFile ThisWorkbook.FullName, (yer & dosya_adı & sat) & ".xls"
Else
'On Error Resume Next
'MsgBox "Bu isimde bir dosya yok"
DosyaSistemi.CopyFile ThisWorkbook.FullName, (yer & dosya_adı) & ".xls"
End If
End Sub

 

[drummers]

licenses information for this component not fount. you do not have an appropriat licanse to use this functionality in the desing environment diye bi ileti alıyorum

 

[halit3]

ekli dosyaya bir bak

 

[drummers]

hiçbir işlem yapmıyor malesef

 

[security]

drummers:hiçbir işlem yapmıyor malesef

Kodlar Çalısıyor.Bende Sorun Yok.
Sn: halit3 Teşekkürler.

 

[halit3]

hiçbir işlem yapmıyor malesef

ne hatası veriyor excell proğramın bozuk olmasın yada güvenlik düzeyin kapalı olmasın

sayın:security' de kodlar çalışıyormuş!

 

[unalh]

S.a


Bende denedim sorun yok çalışıyot.

Teşekkürler.

Hayırlı İşler.

 

[mehmetsadri]

evet kodlar çalışıyor bende denedim.Arkadaş heralde makrodaki D:\ klasörü yolu kendi bilgisayarına göre değiştirilmesi gerekiyor.Eğer D: yoksa çalışmıyor

dosyayı her defasında farklı isimde bir xls dosyası olarak nasıl kaydedebiliriz onu size sormak istiyorum teşekkürler ilgi ve alakalarınız için.

 

[halit3]

evet kodlar çalışıyor bende denedim.Arkadaş heralde makrodaki D:\ klasörü yolu kendi bilgisayarına göre değiştirilmesi gerekiyor.Eğer D: yoksa çalışmıyor

dosyayı her defasında farklı isimde bir xls dosyası olarak nasıl kaydedebiliriz onu size sormak istiyorum teşekkürler ilgi ve alakalarınız için.

aradığınızı aşağıdaki linkde bulabilirsin

http://www.excel.web.tr/showthread.php?t=68040

 

[mehmetsadri]

Çok teşekkür ederim Allah yüzünüzü daim güldürsün arkadaşım.

 

[halit3]

Çok teşekkür ederim Allah yüzünüzü daim güldürsün arkadaşım.

iyi çalışmalar iyi akşamlar

 

[bilalakdeniz]

Kitap açılıyor ama değerler açılan kitaba kopyalanmıyor,

 

[halit3]

Kitap açılıyor ama değerler açılan kitaba kopyalanmıyor,

yukurıda iki üye bu işin olduğunu söylüyor bilgisayarınızda kısıtlama veya d sürücüsü yoksa bu işlimi yapmaz.