Antonio Hernández Cuesta

Tengo un problema a la hora de abrir el calendario. Private Sub MostrarCalendario_Click() CAL.Top = 55 ' concreta mente en esta linea me da ele error, de ahí no pasa CAL.Left = 20 CAL.Visible = True If IsDate(TextBox4) = True Then CAL.Value =...

Como buscar una palabra dentro de un texto con combobox y visualizar todo el texto de esa celda

Tengo un userform con 121 CheckBox y TextBox y quisiera imprimir puesto que es un test para rellenar y luego pasarlo al fichero Excel.

Private Sub CommandButton2_Click() On Error GoTo Problema If Application.Dialogs(xlDialogPrint).Show = True Then ActiveSheet.PageSetup.PrintArea = "$a$1:$i$35" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Else Exit Sub End If Problema: If...