Sheets bulunamadı

[mtbi00]

Merhaba,

Aşağıda yazdığım kod 2 gün önce çalışıyordu. Hiçbir şey yapmadım ama bugün çalışmıyor. Sayfa HESAPLAR.XLSM dosyasında mevcut olmasına rağmen bulamıyor. Yardımcı olursanız sevinirim.

Private Sub CommandButton8_Click()
Dim adosya As String
Dim wsh As Workbook
Set wsh = Workbooks.Open(ThisWorkbook.Path & "\Data\HESAPLAR.XLSM")
hesapkontrol = 0
adosya = "A-2"
For i = 1 To wsh.Worksheets.Count
If wsh.Sheets(i).Name = adosya Then
hesapkontol = 1
End If
Next i
If hesapkontrol = 0 Then
MsgBox adosya & " sayfası bulunamadı. Lütfen kontrol ediniz.. "
Exit Sub
else
MsgBox adosya & " sayfası BULUNDU.. "
Exit Sub
End If
End Sub

 

[kemal turan]

Merhaba,
Hata =hesapkontol = 1
Olması gereken =hesapkontrol = 1
Kolay gelsin

 

[mtbi00]

Merhaba,
Hata =hesapkontol = 1
Olması gereken =hesapkontrol = 1
Kolay gelsin

Çok teşekkür ederim. Kendime güldüm.

 

[Korhan Ayhan]

Kodlarınızın en tepesine Option Explicit komutunu eklerseniz böyle yazım hatalarında sistem sizi kırmızı renkle uyaracaktır. Tabi bu komutu eklemek demek ilgili modülde kullanacağınız tüm değişkenleri tanımlamak demek oluyor. Bu kurala dikkat ederek dilerseniz kullanabilirsiniz.

 

[mtbi00]

Hocam çok teşekkür ederim. Bunu biliyorum ama dediğiniz gibi bu seferde her değişkeni tanımlamak gerekiyor. Ama dediğinizi dikkate alacağım. İyi çalışmalar.