A Munkalapeszközöket használom: Készítsen indexlapot gombokkal (VBA). Amikor kiválasztom az egyik gombot, a kód úgy fut, ahogy kell, kivéve, hogy folyamatosan a "Nem lehet aktiválni az ODBC-t. Lehet, hogy törölték vagy átnevezték." hiba. Ugyanezt teszi minden lapnál. Mi a baj?? A kód a következő:
Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Az ODBC nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem lehet aktiválni a Mestert. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Az ÖSSZES nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Sheets("FIZETETT"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem lehet aktiválni a PAID-t. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Sheets("TELEPÍTETT"). Aktiválja
Ha Err <> 0 Akkor MsgBox "A SETTLED nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Lapok("ZÁRVA"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható ZÁRVA. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Sheets("ÉLÉPTELEN"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható NEM ÉLŐképes. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL"). Aktiválja
Ha Err <> 0 Akkor MsgBox "A LEGAL nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Sheets("ÖSSZEFOGLALÓ"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható az ÖSSZEFOGLALÓ. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub