Office XP de Çalışan Kon Neden Office 2000 de Çalışmaz

[programer]

Arkadaşlar aşağıdaki kodu offis xp de kullanıyorum sorun yok. Ama dosyayı office 2000 yüklü bi makinaya yüklediğimde kırmızı renkli yerlerde hata veriyor.

Kodlar:

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$8:$D$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
If [c59] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$59:$D$109"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
If [c110] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$110:$D$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
End Sub

Private Sub CommandButton4_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
ShName = Sheets("Çıkış Rapor").Range("B8")
Set wb = ActiveWorkbook
With wb
.SaveAs "Satış " & ShName _
& " " & strdate & ".xls"
.SendMail "mutlu@mutlu.mail", _
"Günlük Satış"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

 

[programer]

Arkadaşlar Yardımcı olacak kimse yokmu. Kodlar daha önce calışıyodu ama
ShName = Sheets("Çıkış Rapor").Range("B8") şu şekilde kod ekledikten sonra çalışmamaya başladı. eski kod aşağıda

Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "mutlu@mutlu.mail", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True

 

[firstisland]

Merhaba

Office 2000 İngilzce kullanıyorum. Yazdığınız kodları denedim sorunsuz çalıştı.

Başka bir sorun olabilir.

İyi çalışmalar.

 

[isakarakus]

hata mesajını yazarsanız belki daha iyi anlaşılır.

 

[kundakci]

sayfa adların da ve dosya adlarında türkçe karekter kullanmayın

office xp 2003 te küçük harflerde bile dorun yaşarsınız

Mesala :yeni.xls dosyasını makro ile açmak istediğinizde hata verir
şu şeklide yazarsan çalışıyor YENI.XLS
Sanırım bu da küçük harf (i) büyük harf (İ) çevermesinden kaynaklanıyor.

kolay gelsin

 

[programer]

hata mesajını yazarsanız belki daha iyi anlaşılır.

strdate = Format(Now, "dd-mm-yy h-mm-ss")

Compile error:
Can't find project or library

şeklinde bi hata veriyor format kısmını seçiyo

 

[isakarakus]

sn kundakci'nın dikkat çektiği yeri denediniz mi,

ayrıca buton isimleri de değişmiş olabilir.
bu hatayı genelde olmayan nesneler kullanılırken veriyor..

benim daha önce yaptığım bir çalışamda hiçbir sorun yok iken de aynı hatayı vermişti.

formları, nesneleri ve komutları ayrı ayrı yeni bir excel dökümanına taşıyarak sorunu halletmiştim.
belki böyle bir sorundur.

 

[programer]

Bende aynı şeyi yaptım ama gene aynı hatayı verdi. Valla bende bi şey anlamadım

 

[firstisland]

strdate = Format(Now, "dd-mm-yy h-mm-ss")

Compile error:
Can't find project or library

Ekteki resmi inceleyin. VBA penceresinde Tools(araçlar) meresünden preferences i seçtiğinizde aynı şekilde seçili olup olmadığına bakıp birde öyle deneyin.

Bu tip hatayı bir dll veya ocx dosyayını bulamadığı zaman veriyor.

İyi çalışmalar...

 

[programer]

Arkadaşlar hepinize yardımlarınız içim teşekkür ederim. Kodları Aşağıdaki gibi değiştirdim çalıştı.

Private Sub CommandButton1_Click()
Dim a
Dim b
a = Sheets("Çıkış Rapor").Range("c59")
b = Sheets("Çıkış Rapor").Range("c110")
ActiveSheet.PageSetup.PrintArea = "$A$8:$D$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
If a = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$59:$D$109"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
If b = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$110:$D$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
End Sub


Private Sub CommandButton2_Click()
Dim wb As Workbook
Dim strdate
Dim Shname
strdate = Sheets("Çıkış Rapor").Range("B9")
Shname = Sheets("Çıkış Rapor").Range("B8")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Satış " & Shname _
& " " & strdate & ".xls"
.SendMail "ayse@mutlu.mail"
.Subject = Sheets("Çıkış Rapor").Range("B8")
Application.DisplayAlerts = False
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub