Çok ilginç bir hata

[Barons]

Tüm foruma selam
Aşağıdaki kodu evde çalıştırıyorum sorun yok ancak işyerine gittiğimde işaretli satırda hata veriyor.
(Set sd=....... satırı)

Delirmek üzereyim...2 gün üstüste deneme yaptım evde çalışıyor,,,işyerinde hata...bütün işlemler aynı.İşyerinde ağ var ancak ben kendi bilgisayarımda uyguluyorum.
yardımcı olacak arkadaslara teşekkürler

Kod:

Sub matris()
'On Error Resume Next
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\kitap1.xls" 'İşyerindede aynı şekilde C sürücüsün altında bu isimde bir dosya koydum hatta 2.nci gün evdekini aynen kopyaladım.

Set sd = Workbooks("kitap1").Worksheets("database") ' HATA VEREN SATIR
Set sv = Workbooks("26.01.2009").Worksheets("Rapor")
For j = 1 To 3 'sütun
For t = 1 To 3 'grup
For i = 1 To 8 'satır
sat = sd.[A65536].End(xlUp).Row + 1
For k = 1 To 7 'grup içinde sütun
sut = k + 5
sd.Cells(sat, sut) = sv.Cells(t * 10 - 7 + i, j * 9 - 6 + k)
Next k
If sd.Cells(sat, 12) <> "" Then
sd.Cells(sat, 1) = sat - 1
sd.Cells(sat, 2) = sv.Cells(2, 1)
sd.Cells(sat, 3) = sv.Cells(1, j * 9 - 6) '3,12,21
sd.Cells(sat, 4) = sv.Cells(t * 10 - 8, 2) '2,12,22
sd.Cells(sat, 5) = sv.Cells(t * 10 - 8, j * 9 - 5) '2,12,22;4,13,22
sd.Cells(sat, 13) = sv.Name
End If
Next i
Next t
Next j
MsgBox ("Aktarma işlemi tamamlanmıştır.")
Workbooks("kitap1.xls").Close True
Application.ScreenUpdating = True
End Sub

 

[Levent Menteşoğlu]

Muhtemelen gereksiz bir referans işaretli, vb editöründe missing ile başlayan referanslardaki işaretleri kaldırın.

 

[Barons]

Sn.Levent
işyerindeyim baktım referanslarda missing yok ve hala hata veriyor.
Hata kodu: Runtime error 9
Subcript out of the range.
Dikkat ettim...hata verdiğinde kitap1 açılıyor ve Set sd = Workbooks("kitap1").Worksheets("database") ' HATA VEREN SATIR
Bu satırı pasif yaptığımda hata bir alttaki satıra kayıyor.
Lütfen Yardım...ben böyle bir şey görmedim...evde çalışan kod işyerinde çalışmıyor