Mario Ruiz

Dante Amor respondió: H o la: Suponiendo que en la hoja detalle tienes en la celda A2 el concepto "Producción", entonces en B2 pon la siguiente fórmula: =SUMAR.SI(base!C:C;detalle!A2;base!D:D) Si hacia abajo de A2 tienes más conceptos, entonces copia la fórmula hacia...

víctor ibarz respondió: La manera sencilla de resolverlo es con un buscarv. Para ello es necesario que los datos siempre aparezcan ordenados por fechas correctamente, es decir, para una misma persona, sus registros agrupados y de más antiguo a más reciente, tal y como has...

Dante Amor respondió: Te anexo la macro Sub BorraRango() 'Por.Dante Amor Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Dante Amor respondió: H o l a: Envíame en un correo nuevo tu archivo, dentro del archivo me explicas con comentarios y colores lo que necesitas. R ecuerda poner tu nombre de usuario en el asunto.

Dante Amor respondió: Te anexo la macro completa Sub GenerarCorreos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("BASE") Set h2 = l1.Sheets("PARAMETROS") Set h3 = l1.Sheets("Temp") Set h4 =...

Dante Amor respondió: Código para filtrar por concepto: h2.Columns("C:C").Copy h3.[A1] u3 = h3.Range("A" & Rows.Count).End(xlUp).Row h3.Range("A1:A" & u3).RemoveDuplicates Columns:=1, Header:=xlYes For i = 2 To h3.Range("A" & Rows.Count).End(xlUp).Row j = 2 Set r =...

Dante Amor respondió: Nombrar las carpetas carpet = h2.Cells(b.Row, "D") & "\" subcar = h2.Cells(b.Row, "E") & "\" 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Dante Amor respondió: Para nombrar el archivo ruta = ThisWorkbook.Path & "\" año = Year(h1.[I1]) mes = Format(Month(h1.[I1]), "00") nombre = h2.Cells(b.Row, "C") archivo = nombre & " " & año & mes l2.SaveAs Filename:=rutades & archivo & ".xlsx" ',...

Dante Amor respondió: Copiar el archivo h1.Range("A1:H" & u1).Copy h4.[A1] h4.Copy 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias