Modificar datos de acuerdo a cada novedad

Dando alcance a la anterior consulta, solicito de su amable colaboración me ayuden a integrar la siguiente validación a la Macro que tengo actualmente.

Que cuando ocurra esta novedad de IRL o (Fecha inicio IRL) (Fecha final IRL) lo que necesito modificar o ajustar es cuando inserte fila en vez colocar una (X) en la columna AD ponga el # de días.

La segunda consulta es con referencia a la novedad SLN o (Fecha inicio SLN Fecha final SLN) lo que requiere es que cuando ocurra esta novedad y inserta la fila modifique las tarifas de acuerdo a valor que contenga la celda con base a la siguiente tabla.

2 Respuestas

Respuesta
1

Tal vez te interese:

Curso de macros. Consejos para empezar a programar. - YouTube

Sal u dos

Dante Amor

Respuesta
2

Recibido tu libro y consulta. En breve te responderé.

En el libro enviado encontrarás instrucciones (con las fechas de modificación) separando el tipo de dato y el resultado a obtener. Por ejemplo, al insertar la fila y recorrer el Array:

            For a = LBound(novedad) To UBound(novedad)
                If InStr(novedad(a), dato) > 0 Then
                    If a < 2 Or a = 4 Then
                        Range(Cells(filx + 1, 61), Cells(filx + 1, 73)) = 0          'col BI:BU
                        If dato = "SLN" Then                                            'cbios en SLN, col AT y BB:BC  '26/05/2023
                            If Cells(filx + 1, 46) = 0.16 Then Cells(filx + 1, 46) = 0.12
                            If Cells(filx + 1, 54) = 0.04 Then
                                Range(Cells(filx + 1, 54), Cells(filx + 1, 55)) = 0
                            ElseIf Cells(filx + 1, 54) = 0.125 Then
                                Cells(filx + 1, 54) = 0.085
                            End If
                        End If
                    Else
                        Range(Cells(filx + 1, 61), Cells(filx + 1, 63)) = 0          'col BI:BK
                    End If
                    Exit For
                End If
            Next a

Sdos.

Elsa

http://aplicaexcel.com

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas