Soru kodlarda hata mı var?

[GursoyC]

Merhaba,
Aşağıdaki kodlarda "dosya" ile ilgili kısımları sildiğimde (dosya as string, dosya = sistem.textbox2.value) kodlar gayet güzel çalışıyor. Ancak bu haliyle çalışmıyor.
Nerede hata yapıyorum görebilen var mı acaba?
Teşekkürler.

Dim yol As String, Tar As String, dosya As String
yol = ThisWorkbook.Path & Application.PathSeparator
Tar = sistem.ComboBox1.Value
dosya = sistem.TextBox2.Value
                           
ActiveWorkbook.SaveAs Filename:=dosya & yol & Tar & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("karşılama").Name = Tar

 

[PLİNT]

Merhaba
"Textbox2" dosya adına eklenecekse; şöyle deneyin
yol & dosya & Tar & ".xlsm"

Dim yol As String, Tar As String, dosya As String
yol = ThisWorkbook.Path & Application.PathSeparator
Tar = sistem.ComboBox1.Value
dosya = sistem.TextBox2.Value


ActiveWorkbook.SaveAs Filename:=yol & dosya & Tar & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("karşılama").Name = Tar

 

[GursoyC]

Sayın Plint, çok teşekkür ederim. Sorun çözüldü.
Saygılar,

 

[PLİNT]

Rica ederim, saygı bizden,
işlerinizde kolaylıklar dilerim.
gerçi sizde eklemişsinizdir ama konuyu takip edenler için; yukarıda isim yazarken arada boşluk bırakmak için
yol & dosya & " " & Tar & ".xlsm"