closed c: est.xls file will be opened and saved after c: userform1.frm is added Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Kullanıcıya göndereceğin B.xls dosyasındaki kod;

Kod:
Sub Test()
    Myfile = "C:Test.xls"
    MyForm = "C:UserForm1.frm"
    If Dir(Myfile)  Empty And Dir(MyForm)  Empty Then
        Workbooks.Open Myfile
        On Error GoTo ErrHandler:
        Workbooks(Dir(Myfile)).VBProject.VBComponents.Import MyForm
        Workbooks(Dir(Myfile)).Close SaveChanges:=True
        MsgBox "İşlem tamam !"
        Exit Sub
    Else
        MsgBox Myfile & " ve " & MyForm & " dosyalarının isimlerini ve doğru" _
        & " yerleştirildiğini kontrol edin !"
        Exit Sub
    End If
ErrHandler:
    Select Case Err.Number
        Case 60061
        MsgBox "Dosyada " & Dir(MyForm) & " zaten mevcut !"
        Case Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End Select
    Workbooks(Dir(Myfile)).Close SaveChanges:=False
End Sub

Yapılan iş; yukarıdaki kodlar çalıştırıldığında kapalı durumdaki C:Test.xls dosyası açılacak ve içine C:UserForm1.frm ilave edildikten sonra kaydedilerek kapatılacaktır.

Kodlar çalıştırılmadan önce yapılması gereken ise; kullanıcının C:Test.xls ve C:UserForm1.frm dosyalarını kendi bilgisayarlarında, kodlarda belirtilen yerlere yerleştirmiş olmasıdır. -

No	Macro Name
1	closed c: est.xls file will be opened and saved after c: userform1.frm is added
2	excel operators hk
3	pdf preview
4	specify partition, list how many files you have
5	Calculate the duration of the mp3 file (type the file path and select that cell)
6	warn if other user is on
7	desktop icon creation
8	add file folder
9	automatic image fetch
10	a .bat file from a floppy disk
11	who opened the file
12	Who opened the file 2
13	txt who opened the file on what date
14	calculator on / off
15	add save key to userforma
16	save as
17	userforma save as key
18	opening calculator
19	book opening-copying-closing
20	browse folder xls list

Excel Free Macros (VBA)

Closed C: Est.xls File Will Be Opened And Saved After C: Userform1.frm İs Added

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords