Dante Amor

Por lo que veo en el código. Tienes el evento activate e initialize. Borra todo el evento activate. Utiliza initialize. Necesitas cargar el listbox solamente una vez cuando inicia el listbox. En el mismo evento initialize: .columncount = 2...

Si entras a la funcionalidad de Excel en el menú Revisar / Proteger hoja. Ahí puedes poner una Contraseña y no está a la vista. Cuando la capturas aparecen unos puntos negros o asteriscos. Si no quieres que la hoja se pueda mostrar. Entonces debes...

Si ya tienes un Case, entonces lo puedes utilizar así: Sub funcion_userform() Dim a As String Select Case variable Case "hoja1" ActiveSheet.funcion1 Case "hoja2" ActiveSheet.funcion2 End Select End Sub Puedes poner aquí el código de una de tus...

Existen varias maneras de eliminar registros con una condición. Te muestro, desde mi punto de vista, las más efectivas y rápidas, ya que eliminan todos los registros en un solo paso, ya que eliminar fila por fila es un proceso muy lento. 1) Sub...

Si ejecutas el formulario en modo debug y presionas clic en el botón Guardar_click, revisa si efectivamente entra a la función Actualizar_click También pon aquí todos tus códigos para revisarlos. Comenta si tienes desactivada el cálculo automático....

¿En alguna parte de tu formulario estás utilizando la propiedad rowsource?

Si siempre son 7 dígitos, puedes utilizar esto: =IZQUIERDA(ESPACIOS(EXTRAE(SUSTITUIR(CELDA("FILENAME";A1);"[";REPETIR(" ";999));999;999));7) Si no son 7 dígitos, pero después del número hay un espacio Entonces utiliza esto:...

Si quieres que aparezcan como una lista de validación: Entonces crea una lista de validación de esta manera: Pero si vas a utilizar el operador para hacer comparaciones, deberás realizar una fórmula como esta: Lo anterior se debe a que en la celda B2...

[Estimado, no valoras las respuestas: Cambiar color al cambiar de una celda a otra excel 2003 Editar una celda excel a su vez muestre la cantidad de caracteres ingresados. [

Ya te había respondido esa duda. ¿Cuántas columnas tiene mi Array birideccional? Por ejemplo: Sub ary() Dim ary As Variant ' ary = Range("A1:D10").Value ' MsgBox "número de filas: " & UBound(ary, 1) & vbCr & _ "número de columnas: " & UBound(ary, 2)...