¿Como crear condicionantes a partir de la comparación de datos entre dos columnas?
Caso 1, tengo dos columnas con datos (E y F) a partir de la fila 9 en adelante, necesito una macro que me evalúe los datos tanto en E9 y F9 y me diga a través de un mensaje que existe información en ambas celdas ya que mi propósito es, que cuando exista información en una de las dos celdas en la otra no haya.
Caso 2, tengo dos columnas con datos (F y O) de la fila 9 en adelante, necesito una macro que me evalúe los datos a partir de F9 y O9 y me diga a través de un mensaje que ("excede") solo en el caso de que el valor de la celda F sea mayor del que está en la celda O
1 Respuesta
Saludos estimado Dante, macros separadas creo que me serían de más utilidad para interpretar y aprender, los datos empiezan a partir de la fila 9 en hacia abajo en ambos casos, tengo registros a veces con 10 datos, 20, 50.... Y así sucesivamente, en el caso 1 probablemente puede que hayan una o dos coincidencias, pero necesito detectarla y cuando consiga la primera me arroje un mensaje y automáticamente se detenga el proceso. Y en el caso 2 que compare F con O y si F es mayor me arroje un mensaje y automáticamente detenga el proceso también, solo mensajes los resultados, no requiero de datos en celdas auxiliares.. Gracias
Te anexo las macros
Sub Caso1()
Dim lr As Long, fila As Variant
lr = Range("E" & Rows.Count).End(3).Row
fila = Evaluate("=SMALL(IF((E9:E" & lr & "<>"""")*(F9:F" & lr & "<>""""),ROW(E9:E" & lr & ")),1)")
If IsError(fila) Then MsgBox "Sin filas" Else MsgBox "Fila : " & fila
End Sub
Sub Caso2()
Dim lr As Long, fila As Variant
lr = Range("F" & Rows.Count).End(3).Row
fila = Evaluate("=SMALL(IF(F9:F" & lr & ">O9:O" & lr & ",ROW(F9:F" & lr & ")),1)")
If IsError(fila) Then MsgBox "Sin filas" Else MsgBox "Fila : " & fila
End Sub
