By alexoconnellsr@gmail.com 16 Mayıs 2018 Çarşamba günü
Yayınlanan Kutools for Excel
Cevaplar 2
Seviyor 0
Görünümler 5.1K
Oy 0
Çalışma Sayfası Araçları, Düğmelerle Dizin Sayfası Oluştur (VBA) kullanıyorum. Düğmelerden birini seçtiğimde, kod olması gerektiği gibi çalışıyor, ancak "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir." hata. Tüm sayfalar için aynı şeyi yapar. Sorun ne?? Kod aşağıdaki gibidir:

Alt GoToButton1_Click()
On Error Resume Next
Sayfalar("ODBC").Etkinleştir
Hata <> 0 ise MsgBox "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton2_Click()
On Error Resume Next
E-Tablolar ("Ana"). Etkinleştir
Hata <> 0 ise MsgBox "Master etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton3_Click()
On Error Resume Next
Sayfalar("TÜMÜ").Etkinleştir
Hata <> 0 ise MsgBox "TÜMÜ etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton4_Click()
On Error Resume Next
Sayfalar("ÜCRETLİ").Etkinleştir
Err <> 0 ise MsgBox "PAID etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton5_Click()
On Error Resume Next
Sayfalar("YERLEŞTİRİLDİ").Etkinleştir
Hata <> 0 ise MsgBox "SETTLED etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton6_Click()
On Error Resume Next
Sayfalar("KAPALI").Etkinleştir
Hata <> 0 ise MsgBox "KAPALI etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton7_Click()
On Error Resume Next
Sayfalar("YAŞAYAN DEĞİL").Etkinleştir
Eğer Err <> 0 ise MsgBox "NON-VIABLE etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton8_Click()
On Error Resume Next
Sheets("YASAL").Etkinleştir
Hata <> 0 ise MsgBox "YASAL etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton9_Click()
On Error Resume Next
Sayfalar("ÖZET").Etkinleştir
Hata <> 0 ise MsgBox "ÖZET etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0 KUTools VBERror.PNG
KUTools VBERror.PNG
KUTools VBERror.PNG

End Sub
Merhaba,
Üzgünüz, yazılımın işlevlerine veya özelliklerine bir VBA kodunda erişemezsiniz.
Henüz böyle bir işlemi desteklemiyoruz.
·
5 yıl önce
·
0 Beğeni
·
0 Oy
·
0 Yorumlar
·
Bu harika bir destek! 3 yıllık süre dolduğunda kesinlikle tüm kayıtlarımızı iptal edeceğim!
BTW - Çözüm sadece kod satırını kaldırmaktır (Eğer Err <> 0 ise MsgBox "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir.)
·
5 yıl önce
·
0 Beğeni
·
0 Oy
·
0 Yorumlar
·
Yazının Tamamını Görüntüle