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\

 

[Saban Sertkaya]

"Seçim aralık dışı" hatası. Yani var olmayan bir adrese veya excel sınırları üzerinde bir noktaya ulaşmaya çalışıyorsunuz.

Yüksek olasılıkla,
TABLO = "[CEZA TEHİRİ İŞLEMLERİ] " & txtadısoyadı.Txt & ".xls"
kod satırınızda hata var.

Olası hatalar,
- adresteki dosya isminde boşluk olması
- belirtilen dosyanın, belirtilen adreste olmaması
- dosya uzantısının hatalı olması
gibi...

 

[yerbakili]

Cevap için teşekkürler hocam. Ancak, kod satırında bir hata bulamadım. Çünkü, aynı kodlarla kendi bilgisayarımda sorunsuz çalışıyorum. Yarın bir kez de "- adresteki dosya isminde boşluk olması" durumunu gözden geçirerek, dosya isminde boşluk içermeden deneyeceğim. Mantıklı geldi hocam. Geri dönüş sağlarım mutlaka.