Dante Amor

H o l a: Puede ser lo siguiente: En tu userform tienes algún control con la propiedad visible = false, puede ser un textbox o un combobox. Y puede ser que en el evento UserForm_Activate o en el evento UserForm_Initialize, tienes esto: TextBox1....

H o l a: Me puedes enviar tu archivo con el formulario, para ver cómo estás cargando los datos en el listview y de esa forma modificar el listview y el dato de la columna. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

H o l a: Te anexo la macro. Pon tus datos están en la columna A, en la columna B quedarán los únicos. Sub EliminarDuplicados() 'Por.Dante Amor j = 1 u = Range("A" & Rows.Count).End(xlUp).Row Columns("B").ClearContents For i = 1 To u res =...

H o l a: La opción que me funcionó es la siguiente. Revisa en las propiedades del combobox3 el TabIndex, en mi ejemplo yo tengo el 0: Ahora cambia el TabIndex del textbox3 al siguiente número del que tiene el combobox3, en mi ejemplo el tabindex del...

H o l a: Pon la siguiente macro en los eventos de tu libro. Cambia "Hoja1" y "Hoja2", por lo nombres de hojas que desees respaldar. Cambia "respaldo.xlsx" por el nombre del archivo que contendrá el respaldo. Este archivo deberá estar en la misma...

H o l a: Para que no te aparezca esa advertencia, puedes cambiar la configuración, en Opciones de excel, Fórmulas, Comprobación de errores, y desactivar la casilla: "Habilitar la comprobación de errores en segundo plano" Con eso se desactivan todos...

H o l a: El error es porque la longitud de caracteres que tienes en el textbox1 es mayor a 4, entonces si en el texbox1 tienes, por ejemplo: "22344", la longitud es 5 Luego en la fórmula tienes: String(4 - Len(TextBox1), "0") String(4 - 5, "0")...

H o l a: El dialogo que estás abriendo es el de carpetas "msoFileDialogFolderPicker" El que necesitas abrir es el de archivos: 'Por. Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona archivo de excel" .Filters.Add...

H o l a: Te anexo la macro para seleccionar un libro y abrirlo. El libro seleccionado quedará en pantalla para que puedas utilizarlo. Sub AbrirArchivo() 'Por.Dante Amor Set h1 = ThisWorkbook With Application.FileDialog(msoFileDialogFilePicker) .Title...

H o l a: Te anexo el código para eliminar: Private Sub CommandButton1_Click() 'Por.Dante Amor 'eliminar registro del listview y de la hoja If ListView1.ListItems.Count = 0 Then MsgBox "No hay registros" Exit Sub End If f =...