Excel Dosya Adı Belirle

[Sa.NaL]

Merhaba Benim excel uzmanı arkadaşlardan ricam ekteki dosyamda bir onay kutusu var ona tıkladımmı userform1 açılsın ve excel dosya ismini belirleyim daha sonra göndere bastıımmı excelörnekleri.xls dosyasının adını benim belirlediğim isme çevirerek başka bir sürücüye kesip yapıştırsın.ilginiz için şimdiden tşkler.

 

[ewreka]

Sa.NaL f12 ye bastığın zaman bu işlemi zaten yapabiliyorsun. bunun için ayrıca bi fonksiyon yazmaya gerek var mı ?

 

[hamitcan]

Module1 içine aşağıdaki kodu ekleyin."OnayKutusu1" nesnesini "OnayKutusu1_Tıklat" makrosuna bağlamayı unutmayın.(Sağ klik,makro ata şeklinde.)

Sub OnayKutusu1_Tıklat()
 ActiveSheet.Shapes("Check Box 1").Select
 If Selection.Value = 1 Then UserForm1.Show
End Sub

Userform içine aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    Dim ds, f
    Set ds = CreateObject("Scripting.FileSystemObject")
    f = ds.copyFile("C:\excelörnekleri.xls ", "D:\")
    Filename = "D:\excelörnekleri.xls"
    NewFileName = "D:\" & TextBox1.Text & ".xls"
    Name Filename As NewFileName
End Sub

 

[ersoyalan]

Hamitcan hocam merhaba,

Bu çalışmanız benimde işime yaradı.Arşive aldım.

Teşekkürederim.

E.ALAN

 

[Sa.NaL]

Hata verdi hamitcan kardeş ya

 

[Sa.NaL]

Name Filename As NewFileName şu kodların üstü sarı kaplandı

 

[Sa.NaL]

tamam sonuna userform1.hide ekledim oldu saol ya çok tşk ederim birden senden ricam hamitcan kardeş mesela excel dosyamın adı "excelörnekleri1 -- makaleler" olsun ben bu excel dosyasının içine girdimmi A1 hücresinde otomatik olarak excel dosyası ilk açıldımı yani autoopen içine hangi kodu eklersem excel dosyasının isminin ilk bölümünü yani excelörnekleri1 kısmını A1 hücresine eşitler.yardımlarını bekler imdiden tşk ederim.makaleleri eşitlemesin ama