Aplicar función IF a rango de celdas en MSExcel.

Hola Expertos, necesito aplicar esta funcion a un rango en Excel, pero no la quiero hacer "celda por celda", pueden ayudarme con la forma de que se aplique al rango.

La funcion es:

    If Range("H2").Value <> "" Then
        Range("G2") = "SI"
    Else
        Range("G2") = ""
    End If

Debe comenzar a validar desde H2 hasta H366.

Gracias por la ayuda.

1 Respuesta

Respuesta
1

Esta sería la macro con los cambios

Sub validar()
'Por.Dante Amor
    For i = 2 To 366
        If Range("H" & i) <> "" Then
            Range("G" & i) = "SI"
        Else
            Range("G" & i) = ""
        End If
    Next
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

¡Gracias! Excelente..!!

Te anexo la misma macro sólo para que conozcas que puedes poner la validación If Then Else en una misma línea

Sub validar()
'Por.Dante Amor
    For i = 2 To 366
        If Range("H" & i) <> "" Then Range("G" & i) = "SI" Else Range("G" & i) = ""
    Next
End Sub

También para lo que pides se puede poner las siguientes instrucciones:

Sub validar2()
'Por.Dante Amor
    Range("G2:G366") = ""
    Range("H2:H366").SpecialCells(xlCellTypeConstants, 23).Offset(0, -1) = "SI"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas