jerryeagle

Intenta con esto en un modulo Sub NoScape() 'Deshabilita la tecla ESC Application.OnKey "{ESC}", "cancelalo" End Sub Sub cancelalo() Cancel = True End Sub Sub SiScape() ' Vuelve a habilitar la tecla ESC Application.OnKey "{ESC}" End Sub Cuando...

No soy Elsa, pero veo que no han respondido esta pregunta y yo se la respuesta, me tomo la libertad de hacerlo... En caso de que fueran 3 textbox a revisar: Private Sub Guardar_Clic() If (textbox1) = "" or (textbox2) = "" or (textbox3) = "" then...

Veo varios errores... If Control > 0 Then Range(ubica).Value = TextBox1 Asi no funcionaria, una opción sería ponerlo así If isempty(textbox) then o tambien If (Textbox)= "" then La sentencia Range(ubica) tampoco funcionaria porque estas usando una...