Agregar una columna que reste días e indique los pendientes.

@elsamatilde , en esta oportunidad quisiera pedirte agregar a una macro, la posibilidad de que agregue una columna que realice un recuento de pendientes.

En esta planilla se realiza la carga de datos. Luego la macro la pasa al formato que muestro en la siguiente imagen, sin la columna de pendientes, que seria lo que necesito agregar.

El recuento debería hacerlo en base al total de días disponibles, restando los días que se utilizan, indicados en las columnas H, I, J, K.

1 respuesta

Respuesta
1

Debes ubicar las siguientes líneas de código y eliminar todo el código que se encuentra entre ambas:

Desde 'falta 'Pendientes' ... hasta 'pase de datos fijos
Y allí copia lo que adjunto a continuación:

'falta 'Pendientes'
canti = Range("G" & filx) - 1
Sheets("Formato").Cells(fily, 4) = canti
'se mira si hay más datos a partir de col I
If Range("I" & filx) <> "" Then
    'se repite el siguiente bucle hasta encontrar una col vacía
    colx = Range("H" & filx).End(xlToRight).Column
    For i = 9 To colx
    If Cells(filx, i) <> "" Then
        fily = fily + 1
        'fecha solo valor
        Cells(filx, i).Copy
        Sheets("Formato").Cells(fily, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        canti = canti - 1
        Sheets("Formato").Cells(fily, 4) = canti
    End If
    Next i
End If
'pase de datos fijos

Atención que si las celdas de col G están vacías dará negativo.

PD) ya te envío libro con macro modificada.

Te envié libro con el adicional para tu macro. Confirma si lo recibiste y si está todo resuelto no olvides valorar la respuesta para darla por cerrada.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas