Benim Pc'de Doğru Çalışıyor Başka Pc'de Doğru Çalışmıyor

[gulevurgun]

Bu butona basınca benim pc gereken herşeyi olması gereken gibi yapıyor.Ama diğer pc kullanıcı adını değiştiriyorum masa üstüne günün tarihiyle klasör açıyo ama onun içine kayıt etmesi gerekirken gidiyor belgelerimin içine kayıt ediyor.

Olması gereken yoksa o günün tarihiyle klasör açacak ve B38 hücresindeki isim ve tarihle kayıt edip yazıcıdan çıktı alıp exceli kapatacak.Benim pc oluyor aa kullanaması gereken arkadaşın pc olmuyor.Belgelerime atıyor.Yardımlarnızı bekliyorm.
--------------------------------------------------------------
Sub Makro11()
Dim ds, dd, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set dd = CreateObject("Scripting.FileSystemObject")
a = dd.FolderExists("C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler")
If a = True Then GoTo 10
ds.createfolder "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler"
10 ChDir "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler"
ActiveWorkbook.SaveAs Filename:= _
Sheets("SİPARİŞ FORMU").Range("B38") & " " & Format(Date, "- dd.mm.yyyy") & ".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.Quit
End Sub

 

[BG]

Bu butona basınca benim pc gereken herşeyi olması gereken gibi yapıyor.Ama diğer pc kullanıcı adını değiştiriyorum masa üstüne günün tarihiyle klasör açıyo ama onun içine kayıt etmesi gerekirken gidiyor belgelerimin içine kayıt ediyor.

Olması gereken yoksa o günün tarihiyle klasör açacak ve B38 hücresindeki isim ve tarihle kayıt edip yazıcıdan çıktı alıp exceli kapatacak.Benim pc oluyor aa kullanaması gereken arkadaşın pc olmuyor.Belgelerime atıyor.Yardımlarnızı bekliyorm.
--------------------------------------------------------------
Sub Makro11()
Dim ds, dd, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set dd = CreateObject("Scripting.FileSystemObject")
a = dd.FolderExists("C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler")
If a = True Then GoTo 10
ds.createfolder "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler"
10 ChDir "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler"
ActiveWorkbook.SaveAs Filename:= _
Sheets("SİPARİŞ FORMU").Range("B38") & " " & Format(Date, "- dd.mm.yyyy") & ".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.Quit
End Sub

C:\Documents and Settings\sengul.demir\Desktop
diger bilgisayarın kullanıcı adı ile degistirmeyi denediniz mi?

 

[gulevurgun]

kullanıcı adını da değiştirdim ama yine belgelerime kayıt ediyor.Yardımcı olursanız sevinirim.şimdiden teşekkür ederim..

 

[tactless]

Private Sub CommandButton1_Click()
a = MsgBox("Programdan çıkmak istiyor musunuz ?", vbYesNo)
If a = vbNo Then
Exit Sub
ElseIf a = vbYes Then
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\yunus.koc\Desktop\" & Date & Sheets("SİPARİŞ FORMU").Range("B38") & ".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Dialogs(xlDialogSendMail).Show
Application.Quit
End If
End Sub

Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\yunus.koc\Desktop\" & Date & Sheets("SİPARİŞ FORMU").Range("B38") & ".xls"
Application.Dialogs(xlDialogSendMail).Show
End Sub

kaydet gifini tıklayıp denetim araç kutusundan kod görüntüle tıklayın kırmızı ile gösterdiğim yerleri kendi pc adını yazın sorun halolacaktır.

not:eğer şirket içi ağınız varsa; C:\Documents and Settings\yunus.koc\Desktop\ yerine \\serveradı\usersdoc$\yunus.koc\Desktop yazılmalı..!