Elsa Matilde

Esta rutina es un ejemplo para un Textbox1: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If CDate(TextBox1) < Now Then Cancel = True End Sub Aquí se impide el ingreso de fechas menores a hoy... evaluá qué signo necesitas colocar

El OR se utiliza tal como lo colocaste en la instrucción... el tema es que tu macro tenía muchos defectos y por eso los errores. Te cambié el bucle porque el For Each ... in Range no es el bucle adecuado para cuando eliminás celdas. También para...

Entiendo que querés obtener el dato buscado, sin necesidad de colocar la función BUSCARV (o Vlookup). Si esto es correcto, aquí te dejo un ejemplo: Para una función que sería: =BUSCARV(A2;Hoja2!A2:C30;3;falso) esta es la rutina Sub buscoDato() 'x...

Pruébalo de esta manera: Sub Crea() 'ajustada x Elsamatilde Dim Comprobar, Contador Comprobar = True: Contador = 0 ' Inicializa variables. Do ' Bucle externo. a = 1 Do While a < 65000 ' Bucle interno. a = a + 1 ' Incrementa el contador. If Range("B"...

Disculpa la demora, quizás ya lo tengas resuelto... si no es así explicame un poco tu intención : Imagino que ingresarás un dato en el textbox y que al guardarlo querés verificar que no se encuentre duplicado. Si es así, no es necesario que le...

En cada hoja (salvo la 1ra y última) debes colocar 2 botones y todos asociados a las mismas rutinas: Sub retrocede() ActiveSheet.Previous.Select End Sub Sub avanza() ActiveSheet.Next.Select end Sub PD) En mi página de macros encontrarás más...

Es mucho + simple que lo que estás realizando. Te dejo las instrucciones a partir de HojaBuscada. Si no la encuentra no se moverá de la hoja activa, sino selecciona la buscada HojaBuscada = "1234" For Each sh In Sheets If Right(sh.Name, 4) =...

En mi sitio dejé un ejemplo que podes descargar (no se pide registración ni nada...) Se llama Interactuando con Userforms. Utilizá el primer ejemplo. Si luego de que lo adaptes a tu hoja, tenés alguna dificultad, escribime la rutina que te quedó para...

Ampliá un poco más tu consulta, para que pueda darte una respuesta acertada. ¿Los cuadros de texto... están en un Userform o en la hoja? ¿Y dónde deben ser colocados los otros datos? ¿Supongo qué en otros textbox pero dónde están? Y si indicás la...

Dejé las instrucciones en el evento Initialize del UF, pero podrás colocarla en cualquier otro: La idea es que recorra la col A hasta la última con datos y carque el listbox. Tanto el ancho de col como la cantidad, las podes establecer desde la lista...