Kapalı Dosya Örnek dosyaya Veri kayıt Ve Farklı kaydet

[irfancantr]

İyi günler değerli forum üyeleri;

Forumda biraz aradım ama tam istediğime ulaşamadım sanırım.
Farklı bir klasörde örnek bir dosyam var, hazırladığım userformdan bu dosyaya verileri aktarıp bu örnek dosyayı hiç bozmadan Farklı kaydet yaparak örnek dosya klasörünün bulunduğu klasöre kayıt edebilir miyim?

Daha anlaşılır olması için örnek bir dosya ekliyorum.. Yardımlarınız için şimdiden teşekkürler.

 

[irfancantr]

İyi günler , soruyu özetleyerek sorsam:

Kapalı bir X dosyasına herhangi bir veri girerek , X dosyanının bulunduğu (yada önceden tanımlayacağım bir yol ile olabilir) klasör içerisine farklı kaydet yapabilir miyiz?

 

[asi_kral]

Merhaba
Bu işlem yapılabilir yeni dosyanın adını nereden bulacağız biliyorsunuz aynı klasör içinde aynı isimde farklı bir dosya olamaz.
Ayrıca userform'da üst menüler eklemişsiniz ( MultiPage1 ) buna neden gerek gördünüz onu da anlayamadım açıkcası. Bu şekilde formu kullanmak zaman kaybı olmayacak mı_?
Ben sizin yerinizde olsam onun yerine bir combobox kullanır bunun içerisine dosya adlarını aldırtırdım böylece daha rahat istediğim zaman istediğim dosyada mouse ( fare ) kullanmadan işlemlerimin hepsini yapardım.

 

[irfancantr]

Merhaba
Bu işlem yapılabilir yeni dosyanın adını nereden bulacağız biliyorsunuz aynı klasör içinde aynı isimde farklı bir dosya olamaz.
Ayrıca userform'da üst menüler eklemişsiniz ( MultiPage1 ) buna neden gerek gördünüz onu da anlayamadım açıkcası. Bu şekilde formu kullanmak zaman kaybı olmayacak mı_?
Ben sizin yerinizde olsam onun yerine bir combobox kullanır bunun içerisine dosya adlarını aldırtırdım böylece daha rahat istediğim zaman istediğim dosyada mouse ( fare ) kullanmadan işlemlerimin hepsini yapardım.

Üstad "aynı klasör içinde aynı isimde farklı bir dosya" değil, anlatmak istediğim aynı klasör içerisinde bulunan X.xlsx adlı dosya adı "X - Tarih - Deneme.xlsx" olacak. X dediğim dosya örnek şablon olarak devamlı kalacak.

İkinci olarak multipage sayfaları kullanmaktansa combobox demişsiniz, eğer size meşguliyet olmayacaksa verdiğim örnek üzerinde yada farklı bir dosya ile bir örnek alabilir miyim?

İlginiz için teşekkürler...

 

[asi_kral]

Üstad "aynı klasör içinde aynı isimde farklı bir dosya" değil, anlatmak istediğim aynı klasör içerisinde bulunan X.xlsx adlı dosya adı "X - Tarih - Deneme.xlsx" olacak. X dediğim dosya örnek şablon olarak devamlı kalacak.

İkinci olarak multipage sayfaları kullanmaktansa combobox demişsiniz, eğer size meşguliyet olmayacaksa verdiğim örnek üzerinde yada farklı bir dosya ile bir örnek alabilir miyim?

İlginiz için teşekkürler...

Maalesef o kadar vaktim yok bu bir örnek.
Userform'un kod bölümündeki Kayıt butonuna ekleyin ve deneyin.

Option Explicit
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, YOL As String, SSTM As Object
Dim KLS As String, DSY As String, ANA As String, ANA1 As String
Dim XCL As Application, KPL As Workbook
If TextBox21 <> Empty Or TextBox22 <> Empty Then
Set SSTM = CreateObject("Scripting.FileSystemObject")
Set XCL = CreateObject("Excel.Application")
XCL.Visible = False
YOL = ThisWorkbook.Path & "\" & MultiPage1.SelectedItem.Caption & "\"
ANA = "Terlik (Örnek).xlsx"
DSY = YOL & ANA
ANA = Mid(ANA, 1, InStr(1, ANA, "(", vbTextCompare) - 1)
KLS = YOL & ANA & " - " & Format(TextBox21, "dd.mm.yyyy") & " - " & TextBox22 & ".xlsx"
SSTM.copyfile DSY, KLS
Set KPL = XCL.Workbooks.Open(KLS)
Set S1 = KPL.Sheets("Terlik")
S1.Range("B3") = TextBox1.Value: S1.Range("D3") = TextBox6.Value
S1.Range("E3") = TextBox11.Value: S1.Range("G3") = TextBox16.Value
S1.Range("B4") = TextBox2.Value: S1.Range("D4") = TextBox7.Value
S1.Range("E4") = TextBox12.Value: S1.Range("G4") = TextBox17.Value
S1.Range("B7") = TextBox3.Value: S1.Range("D7") = TextBox8.Value
S1.Range("E7") = TextBox13.Value: S1.Range("G7") = TextBox18.Value
S1.Range("B11") = TextBox4.Value: S1.Range("D11") = TextBox9.Value
S1.Range("E11") = TextBox14.Value: S1.Range("G11") = TextBox19.Value
S1.Range("B12") = TextBox5.Value: S1.Range("D12") = TextBox10.Value
S1.Range("E12") = TextBox15.Value: S1.Range("G12") = TextBox20.Value
KPL.Save: XCL.Quit
MsgBox "Kayıt Yapıldı", vbInformation
Else
MsgBox "Tarih Yada Açıklama Boş İşlem Yapılmadı", vbCritical
End If
End Sub

Dosyanız Ekte.

 

[irfancantr]

Bu bile fazlası ile yeterli, alakanız için teşekkür ederim.

Dediğiniz combobox olayını forumda araştırmaya devam edeceğim.Tekrardan saygılar.

 

[asi_kral]

Bu bile fazlası ile yeterli, alakanız için teşekkür ederim.

Dediğiniz combobox olayını forumda araştırmaya devam edeceğim.Tekrardan saygılar.

Kolay Gelsin.