kopyala kes yapıştır

[Sa.NaL]

merhaba benim excel uzmanı arkadaşlardan ricam excelde bilgisayar içinde bir adresden bir adrese excel dosyasını kopyalattırıp veya kesip başka bir adrese yapıştırma command butonları nasıl yapılır ve bu excel dosyasını atmadan ona yeni isim nasıl verdirilir.Yardımlarınızı bekler şimdiden tşk ederim.

 

[ersoyalan]

Merhaba,

AŞğağıdaki kodu bir modul içine kopyalayıp butona atayın

Sub Dosya_Taşı()
On Error Resume Next
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
f = ds.MoveFile("D:\ExcelÖrnekleri.xls", "C:\")
End Sub

 

[Sa.NaL]

peki kesip yapıştırmadan bi işaret ikonu koysak excele ona tıklayıca userform açılsa dosya adını girin dese bende ExcelÖrnekleri2 diye adını belirlesem sora komut butonuna bassam bu şekilde olabilirmi bunun kodu nasıl.öncelikle çok tşk ederim ilginiz için

 

[Sa.NaL]

birde son bi isteğim ersoyalan rumuzlu arkadaş mesela makroları içine kurguladığımız excel dosyasının adını verebilirmiyiz otomatik olarak kestiğimiz excel dosyasına