Dante Amor

H o l a: Te anexo la macro actualizada: Private Sub CommandButton1_Click() Dim Fila As Integer ' Fila = 3 Do While Hoja3.Cells(Fila, 1) <> "" Fila = Fila + 1 Loop For i = 0 To Me.ListBox1.ListCount - 1 Hoja3.Cells(Fila, 1) = txt Hoja3.Cells(Fila, 2)...

H o l a: Puedes pasar la información de la "Hoja1" a la hoja oculta "MOVIMIENTO", sin tener que mostrar la hoja "MOVIMIENTO", solamente tienes que hacer la referencia, por ejemplo: Sub PasarDatos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 =...

H o l a: Por ejemplo, si pones un botón en el userform1 para abrir el userform2, solamente pon la siguiente instrucción en el código del botón: userform2.show Y con eso ya se abre el formulario2, entonces ya tienes el control en el userform2 y puedes...

H o l a: Te anexo la macro, cambia en la macro "C:\trabajo\" por el nombre de la carpeta donde tienes tus 71 archivos. Si en las celdas A8:M8 tienes fórmulas entonces cambia en la macro esta línea: H2. Range("A8:M8"). Copy h1. Range("E" & j) Por...

H o l a: Envíame tu archivo con tu formulario para revisar cómo están los datos y realizar el filtro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Ricardo A. Berger” y el título de esta pregunta.

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: 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 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 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 =...

H o l a: Quedaría de esta forma: c = Val(txt1.Value) * Val(txt2.Value) txt3 = Val(txt3) + c':) ':)