Buen día a todos, necesito una macro que llene las celdas bajo dos condiciones de columnas

Necesito macro que en cada celda de la columna "L " escriba un texto predefinido, teniendo en cuenta las condiciones de las celdas de las columnas "I" y "J".

Hice un ejemplo pero en este caso solo evalúa a la fila "I5" y "J5" y quisiera que evalué toda las celdas de las columnas mencionadas, gracias Por su ayuda.

If Target.Column = 10 Then
If Range("I5") = "VENTA" Then
If Range("J5") = "CANCELADOPARCIAL" Then
Sheets("FACTURAS").Cells(Target.Row, 12) = "RETENCIÓN"
End If
End If
End If

1 Respuesta

Respuesta
2

Te anexo la macro

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 9 Or Target.Column = 10 Then
        If Target.Count > 1 Then Exit Sub
        If UCase(Range("I" & Target.Row)) = "VENTA" Then
            If UCase(Range("J" & Target.Row)) = "CANCELADOPARCIAL" Then
                Cells(Target.Row, 12) = "RETENCIÓN"
            End If
        End If
    End If
End Sub


[Si te ayudó la información, no olvides valorar la respuesta.

Muchas gracias por tu ayuda Dante, una pregunta, tenia unas formularios en el encabezado que he implementado, ¿se podrá hacer que la macro funcione a partir de la fila 5?, agradezco tu ayuda.

Prueba así:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 9 Or Target.Column = 10 Then
        If Target.Count > 1 Then Exit Sub
        If Target.row < 5 Then Exit Sub
        If UCase(Range("I" & Target.Row)) = "VENTA" Then
            If UCase(Range("J" & Target.Row)) = "CANCELADOPARCIAL" Then
                Cells(Target.Row, 12) = "RETENCIÓN"
            End If
        End If
    End If
End Sub

[Sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas