Dante Amor

Considerando esto: Estoy abierto a opciones Pon tus tablas de esta forma: En la celda J3 pon la siguiente fórmula: =SUMAPRODUCTO(($D$3:$D$20=$I3)*($C$3:$C$20=J$2)*($F$3:$F$20="")*($B$3:$B$20)) Nota: Cambia en la fórmula el 20 por la última fila con...

Realiza lo siguiente: - En la celda D2 escribe el título "Días" - En la celda D3 pon la siguiente fórmula =SI(CONTAR.SI.CONJUNTO(B3:$B$1000,B3,C3:$C$1000,C3)>1,0,1) - Cambia el 1000 por la última fila con datos de la columna A. - Copia la fórmula en...

Si copias la fórmula en la hoja1 celda A3, entonces en la celda A3 tendrás el nombre "hoja1" Lo mismo, Si copias la fórmula en la hoja2 celda A3, entonces en la celda A3 tendrás el nombre "hoja2" En la hoja2, la celda A3 deberá estar con formato...

¿Qué dice el mensaje de error? ¿En cuál línea de la macro se detiene? Si tienes declarada esta variable CreditoRestante, cambia a Dim CreditoRestante Y prueba nuevamente

Te anexo la macro. Te pedirá abrir el libro 1 y luego te pedirá abrir el libro 2. Realizará las comparaciones y marcará de amarillo las celdas que sean diferentes. Las hojas de ambos libros deberán estar acomodadas en la misma forma y deberán tener...

Te anexo la macro Sub Insertar_Filas() 'Por Dante Amor ' Application.ScreenUpdating = False For i = Range("C" & Rows.Count).End(xlUp).Row To 4 Step -1 n = Range("C" & i).Value Rows(i).Copy Rows(i & ":" & i + n - 2).Insert Shift:=xlDown Next...

Con fórmula podría ser así. Pon la siguiente fórmula en la celda donde quieras que aparezca el nombre de la hoja =EXTRAE(CELDA("nombrearchivo");ENCONTRAR("]";CELDA("nombrearchivo"))+1;LARGO(CELDA("nombrearchivo"))) Si lo quieres con código VBA,...

Te anexo mi aplicación para seleccionar una o varias hojas, para después imprimirlas o enviarlas a pdf o enviarlas a un archivo de excel. Crea un Userform con lo siguiente La macro: Dim hojas Dim cargando ' Private Sub CommandButton1_Click()...

En las imágenes no veo las columnas ni las filas de excel, podrías enviarme tu archivo con una par de ejemplos de lo que tienes y de lo que esperas de resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Rosa Cerda”

Pero no entiendo qué quieres hacer. Podrías explicar esto o explícame qué quieres hacer y te actualizo tu macro Do Until h.Cells(f, 1) = "" If h.Cells(f, 2) = "" Then GoTo siguiente h.Cells(f, "H") = TextBox4 h.Cells(f, "I") = ComboBox1 siguiente: f...