Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-02-2018, 18:23   #1
yerbakili
Destek Ekibi
 
Giriş: 12/05/2009
Şehir: İzmir
Mesaj: 171
Excel Vers. ve Dili:
Office 2003
Varsayılan Ağdaki Dosyaya Veri Yazmada "Subscript Out Of Range" Hatası

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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
'########################### 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\
yerbakili Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2018, 00:41   #2
saban20152015
 
Giriş: 06/07/2015
Mesaj: 582
Excel Vers. ve Dili:
2003
Varsayılan

"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...
__________________
İnsanlık, para karşısında bugün de değer kaybetti.

Bu mesaj en son " 15-02-2018 " tarihinde saat 23:38 itibariyle saban20152015 tarafından düzenlenmiştir....
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2018, 20:25   #3
yerbakili
Destek Ekibi
 
Giriş: 12/05/2009
Şehir: İzmir
Mesaj: 171
Excel Vers. ve Dili:
Office 2003
Varsayılan

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.
yerbakili Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 00:15


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden