Consulta IF para realizar comparaciones y me brinde un resultado

Consulta,

Si en una hoja llamada "PC" tenemos 2 celdas R y S
donde R se tiene una lista de datos con valores Nuevo y Recuperado y en la celda S tambien tenemos una lista de datos con valores "renovacion" e "Incremento".

Necesito realizar una consulta para que en la Celda U me pueda mostrar el numero "1" siempre y cuando cumpla con la siguiente condicion.

IF (celda R = "Nuevo" and Celda S= "Incremento") then
Celda U = mostrar "1"
else
celda U = mostrar " ".
end if

Intente realizarlo en VBA pero no me permite, adjutno el codigo que acabo de realizar

Sub suma_incre()
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("PC")

For i = 3 To h1.range("R" & Rows.count).End(xlUp).Row
dato = h1.Cells(i, "R")
Set b = h1.Columns("S").Find(dato, lookat:=xlWhole)
If dato = "Nuevo" And b = "Incremento" Then
h1.Cell(i, "T") = "1"
Else
h1.Cell(i, "T") = "0"
End If
Next

End Sub

1 Respuesta

Respuesta
1

Sub suma_incre()
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("PC")

For i = 3 To h1.Range("R" & Rows.Count).End(xlUp).Row
dato = h1.Cells(i, "R")
      If Cells(i, "R") = "nuevo" And Cells(i, "s") = "incremento" Then
                             h1.Cells(i, "U") = "1"
  Else
                           h1.Cells(i, "U") = "0"
       End If
Next

End Sub

A ver si entendí tu situación, prueba esta rutina

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas