masaüstüne kopyalamak

[k0081]

Merhaba arkadaşlar;

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
[COLOR="Red"][B]"D:\malzeme\" [/B][/COLOR]& Range("D3") & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

End Sub

yukarı da vermiş olduğum kodda d sürücüsü içinde malzeme klasörüne kopyalama yaptırıyorum. Bunun yerini masaüstü olarak nasıl değiştirebiliriz ?

yardımcı arkadaşa şimdiden teşekkürler..

 

[İhsan Tank]

Merhaba arkadaşlar;

Private Sub CommandButton4_Click()
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
[COLOR="Red"][B]"D:\malzeme\" [/B][/COLOR]& Range("D3") & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select

End Sub

yukarı da vermiş olduğum kodda d sürücüsü içinde malzeme klasörüne kopyalama yaptırıyorum. Bunun yerini masaüstü olarak nasıl değiştirebiliriz ?

yardımcı arkadaşa şimdiden teşekkürler..

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Private Sub CommandButton4_Click()
Dim ts, trabzonspor
Set ts = CreateObject("Wscript.Shell")
trabzonspor = ts.Specialfolders.Item("Desktop")
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
trabzonspor & "\" & Range("D3") & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select
End Sub

 

[k0081]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Private Sub CommandButton4_Click()
Dim ts, trabzonspor
Set ts = CreateObject("Wscript.Shell")
trabzonspor = ts.Specialfolders.Item("Desktop")
Sheets("kolon").Select
Range("F1:L51").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
trabzonspor & "\" & Range("D3") & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
ActiveWindow.ScrollRow = 40
Range("D3").Select
End Sub

Tamamdır.. Ihsan hocam,, Teşekkürler..

 

[İhsan Tank]

Tamamdır.. Ihsan hocam,, Teşekkürler..

Rica ederim
:keyif: