Dante Amor

H o l a: Te anexo la macro, el libro destino deberá estar en la misma carpeta donde tienes el libro con la macro. También tendrás que escribir en la macro los siguientes datos c1 = "B3" 'celda 1 c2 = "D4" 'celda 2 c3 = "A9" 'celda 3 c4 = "C5" 'celda...

H o l a: Cambia la fórmula por esta: =SUMAR.SI.CONJUNTO(Hoja1!J:J;Hoja1!H:H;Hoja1!N2) Si el criterio lo vas a poner en la misma hoja 2, es decir, en la misma hoja2 en N2 vas a poner el criterio entonces la fórmula sería así:...

H o l a: Podrías enviarme una archivo y me explicas cada una de las búsquedas que se deben realizar y si la encuentra qué debe hacer y si no la encuentra qué debe hacer. Envíame los ejemplos y explicaciones, puedes utilizar colores, comentario o...

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: Pon el siguiente código en los eventos de tu hoja. En la macro están indicadas las columnas "A", "B" y "C", cambia esas columnas por las que desees. Private Sub Worksheet_Change(ByVal target As Range) 'Por.Dante Amor If Not Intersect(target,...

H o l a: Te anexo la macro para borrar las filas: Sub Borrar_Cargue() 'Por.Dante Amor 'este código borra solo el contenido de la hoja cargue sino = MsgBox("¿Está Seguro de Borrar los Datos?", vbYesNoCancel, "CONFIRMAR") If Not sino = vbYes Then Exit...

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.