Dosyanın Tamamını Kaydet

[ormann]

İyi günler ;
Ekli dosyada tanımlar sayfasında C2 hücresine Klasör adını ;Veri girişi sayfasında C8 hücresinde sayfa adını girdiğimizde bu isimlerle excel dosyasının tamamını kayıt yaptırabilir miyiz ?
Not : dosyam hangi klasörün içerisinde ise (C ve D vb..) o klasörün içerisine tanımlar sayfasındaki C2 hücresindeki isimle klasör oluşturup bu klasörün içerisine ;Veri girişi sayfasında C8 hücresindeki isimle dosyanın tamamını kayıt yapacak.Yardımlarınızı bekliyorum.Saygılar.

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[ormann]

Arakaşlar iyi geceler;
Konu ile ilgili desteğinizi bekliyorum. Saygılar sunuyorum

 

[halit3]

kod:

Sub AKTİF_DOSYAYI_YEDEKLE()

Dim dosya As String, Kayıt_Yeri As String, uzanti As String, dosyaadi As String, klasor As String

klasor = ThisWorkbook.Path & "\" & Sheets("TANIMLAR").Cells(2, "c").Value

If CreateObject("Scripting.FileSystemObject").FolderExists(klasor) = False Then
MkDir klasor
End If

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
dosyaadi = ThisWorkbook.FullName

dosya = Sheets("VERİ GİRİŞİ").Cells(8, "c").Value
uzanti = "." & fL.GetExtensionName(dosyaadi)

ActiveWorkbook.Save
Application.DisplayAlerts = False

Kayıt_Yeri = klasor & "\" & dosya & uzanti

fL.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation, "U Y A R I"
Application.DisplayAlerts = True
End Sub

 

[ormann]

Halit hocam butona basınca şu uyarıyı veriyor. Tekrar basınca kayıt yapıyor.Bu uyarıyı nasıl engelleriz
"Gizlilik uyarısı:bu belge makrolar,Activex denetimleri,,XML genişletme paketi bilgileri veya web bileşenleri içeriyor ,Bunlar belge denetçisi tarafından kaldırılmayan kişisel bilgiler olabilir "

 

[halit3]

Evvelcede benzer soru sormuşsunuz aşağıdaki linlkde
sadece klasör yerini değiştirip sizde sonuca ulaşabilirdiniz.
Bence bu makroları öğrenmeye çalışın bir çok mesajınız olmuş

Farklı Kaydet

İyi günler; Ekteki örnek dosyadaki farklı kaydet butonuna bastığımda ekrana kutucuk gelip,kutucuğun içerisine dosya adı olarak sadece numa girip ,kaydet butonuna bastığımızda ise d klasörünün içerisinde satış klasörünün içerisine İSTİF NO=5 diye kayıt yaptırabilirmiyiz?.Ayrıca kayıt edilecek...

www.excel.web.tr

 

[halit3]

Gönderdiğiniz dosyanın uzantısı xlsx
Bu uzantıdaki dosyalarda makrolar çalışmaz bunu bilmeniz gerekiyor.
Bu dosyaları farklı kayıt yaparak xlsm uzantı türüne çevirmelisiniz.
yukarıdaki mesajımda da yazmıştım bu işi artık öğrenmeye gayret edin

 

[Korhan Ayhan]

@halit3 beye kesinlikle katılıyorum.

Artık >=500 mesaj sayılarına ulaşmış üyelerimizden bu konularda atılım bekliyoruz. Hatta bu konuda bir başlık açmayı hedefliyorum.

Alternatif olarak ekteki dosyayı deneyiniz.

Harici Link (Silinebilir) ; https://we.tl/t-I4ElrDzq1E

 

[ormann]

Çok haklısınız Korhan bey hocam.Artik biryerden başlamam gerekiyor.
Rica etsem dosyanın linkini yada makrosunu ekler misiniz

 

[Korhan Ayhan]

Üstte ki mesajıma harici link ekledim.

 

[ormann]

Pardon hocam yanlış yazdım

 

[ormann]

Sayın Korhan bey ve Halit bey destekleriniz için çok teşekkür ederim