Farklı uzantıda kaydetmek

[domino]

Makro yardımıyla Textbox a girilen isimde dosyayı farklı kaydediyorum fakat makrolarda kaydediliyor. Nasıl birşey önerirsiniz?
xlsx şeklinde kaydetsem olur mu?

 

[Murat OSMA]

Farklı kaydederken makroları silebilirsiniz. Google da bir araştırın...

Şu kodları da bir deneyebilirsiniz;

Sub Makro1()
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & textbox8.text
Set VBProj = ThisWorkbook.VBProject
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = 100 Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
End Sub

 

[domino]

Denedim ama formun olduğu ana dosyada bulunan macrolarıda sildi sanırım

 

[Murat OSMA]

Silmemesi gerek.