Dosya Kaydederken GÜnayyilsaat.dak.hÜcredekİ Verİ Bİlgİsİ Olarak Yapabİlİrmİ

[ahmetbalp]

Dosya Kaydederken GÜnayyilsaat.dak.hÜcredekİ Verİ Bİlgİsİ Olarak Yapabİlİrmİ

Sn Üstadlar;
Şİmdİye VerdİĞİnİz Bİlgİler Fİkİrler Ve Vba Kodlari Sayesİnde Bİrcok İŞİmİzİ Hallettİk Bunlar İcİn EmeĞİ Gecen Herkese TeŞekkÜr Ederİm.yİne Sİzlerİn YaptiĞiniz Formlardan AldiĞim Kodu Sayfama Ekledİm Gayet GÜzel ÇaliŞiyor Bunun ÇaliŞma Şeklİ Excel Sayfasini BelİrttİĞİm Bİr Sayfaya GÜnayyilsaatdakİka Olarak Kayit Yapiyor Buna İlave Yİne Ayni Sayfadakİ B12 HÜcrede Bulunana Verİyİ İlave Yapabİlİrmİ Yanİ İŞİn ÖzÜ GÜnayyilsaatdakİka B12 Dekİ Verİ Eklİ Dosyayi Eklİyorum ÇaliŞan Kodda İÇİnde Orayada Aciklama Yazdim Şİmdİden İlgİlen Ve Yardimci Olacak ArkadaŞlarima Cok TeŞekkÜr Ederİm .

 

[alpi]

VBA kodlarınızı göremiyorum şifre koymuşsunuz.

 

[alpi]

.SaveAs (Tarih & [B12] & ".xls")
şeklinde yapabilirsiniz.

 

[ahmetbalp]

Dosyanin Yenİsİnİ YÜkledİm

YanliŞ Sayfayi Upload YapmiŞim Kusuara Bakmayin Yenİsİnİ GÖnderİyorum DİĞerİnİde DÜzeltİm İlgİlendİĞİnİz İÇİnde TeŞekkÜr Ederİm Sn Alpİ

 

[abdi]

Sub Test2()
Dim FSO As Object
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Deneme"
MyFile = Format(Now, "dd mmmm yyyy hh mm") & " " & ActiveSheet.Cells(12, 2).Value & ".xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If
ActiveWorkbook.SaveCopyAs Filename:=MyFolder & Application.PathSeparator & MyFile
Set FSO = Nothing
End Sub