Dante Amor

No entendí cuál es la condición. Además el ejemplo que escribiste no concuerda con la fórmula que tienes en la imagen. La condición es que las 3 celdas tiene que tener valor, ¿si una celda está en blanco entonces que no concatene? Si es correcto lo...

¿En los controles de tu userform aparece el DtPicker? Si es así, y quieres pasar el dato del DtPicker a la celda, puede ser así: range("D5").value = DTPicker1 = DTPicker1 Pero si no tienes el control en tus controles, entonces selecciona tu userform,...

Te sugiero que realices la captura de los nuevos datos en la hoja1, cuando termines de capturas presiones un botón para actualizar la hoja2. Pon la siguiente macro en un botón: Sub Actulizar_Base_Datos() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set...

En tu macro tienes esta instrucción: On Error Resume Next Lo que hace es ignorar cualquier error de la macro y continuar con la siguiente instrucción. En tu macro tienes esto: Sheets(b). Cells.Copy Destination:=Workbooks(mybook). Sheets(c). Cells(4,...

Te anexo la macro. Cambiar origen y destino por el nombre de tus carpetas El archivo en el textbox debe llevar también la extensión Private Sub CommandButton1_Click() 'Por Dante Amor origen = "C:\trabajo\varios\" destino = "C:\trabajo\libros\"...

Con esta parte del código, pasas a información de una hoja a la otra 'COPIA VALORES DE Actividades y los pone en el resumen For i = 4 To u1 obra = h1.Cells(i, "D").Value cant = h1.Cells(i, "M").Value sema = h1.Cells(i, "N").Value sist = h1.Cells(i,...

Te anexo la opción para buscar presionando el botón Private Sub CommandButton1_Click() 'Por Dante Amor 'Buscar información en la hoja seleccionada en el combo ' If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then MsgBox "Seleciona una hoja en el...

Revisa mi artículo en el siguiente enlace: https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html

El problema está en la fila de los encabezados En esta línea, solamente estás pasando el dato de la celda A4 Range("AA2:AF2") = [A4] Si tus encabezados están en la fila 3, entonces debería ser así: Range("AA2:AF2").Value = [A3:F3].Value También al...

Pon la siguiente fórmula en la celda E6 =SI(D6="","",CONTAR.SI($D$1:D6,D6)) Copia o arrastra la fórmula hacia abajo hasta el final de tus datos.