Ağdaki Dosyaya Veri Yazmada "Subscript Out Of Range" Hatası

[yerbakili]

Merhaba, işyerimde kullandığım bir uygulamaya yeni bir özellik ekledim. Ancak, kendi bilgisayarımda kodların tam anlamıyla çalışmasına karşın ağdaki diğer bilgisayarlarda hata alıyorum.

'########################### YENİ TABLO OLUŞTUR VE DOLDUR ###########################
TABLO = "[CEZA TEHİRİ İŞLEMLERİ] " & txtadısoyadı.Text & ".xls"
Workbooks.Open (ThisWorkbook.Path & "\Data\Ceza Tehiri İşlemleri\" & txtadısoyadı.Text & " [" & tckimlikno & "]\[CEZA TEHİRİ İŞLEMLERİ] " & txtadısoyadı.Text & ".xls")
SATIR = Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("B" & Rows.Count).End(xlUp).Row
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("A" & SATIR + 1) = "1"
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("B" & SATIR + 1) = büyükharf(kurumbilgisi)
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("C" & SATIR + 1) = Left(txtadısoyadı.Text, InStrRev(txtadısoyadı.Text, " ") - 1)
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("D" & SATIR + 1) = Mid(txtadısoyadı.Text, InStrRev(txtadısoyadı.Text, " ") + 1, Len(txtadısoyadı.Text))
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("E" & SATIR + 1) = tckimlikno
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("F" & SATIR + 1) = büyükharf(suçu)
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("G" & SATIR + 1) = doğumtarihi
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("H" & SATIR + 1) = büyükharf(durumu)
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("I" & SATIR + 1) = ştt
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("J" & SATIR + 1) = büyükharf(txthastalık.Text)
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("K" & SATIR + 1) = "X"
Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("AH" & SATIR + 1) = "- HÜKÜMLÜ HAKKINDA CEZA TEHİRİ İŞLEMLERİ " & CDate(Date) & " TARİHİ İTİBARİYLE KURUMUMUZCA BAŞLATILMIŞTIR. (" & CDate(Date) & ")"
Workbooks(TABLO).Save
Workbooks(TABLO).Close
'########################### YENİ TABLO OLUŞTUR VE DOLDUR ###########################

SATIR = Workbooks(TABLO).Sheets(ActiveSheet.Name).Range("B" & Rows.Count).End(xlUp).Row

Ağdaki diğer bilgisayarlarda yukarıdaki satırda "Subscript out of range" hatası alıyorum. Sebebini çözemedim. Yardımcı olabilirseniz sevinirim.

ThisWorkbook.Path = \\ab11334-0016\data\Ceza Tehiri İşlemleri\

İllaki kullandığım yöntem olacak diye bir şey de yok. Her türlü öneriye açığım. :biggrin: