Comparación datos VBA proviniendo de una condicional

Requiero hacer un macro que me compare el dato de la celda a1 con el de la celda a2, a3, a4 ... Despues el dato a2 compararlo con el de la celda a1, a3, a4... Despues el dato a3 compararlo con el dato a1, a2, a4... Y el dato a4 con el a1, a2, a3... Y así sucesivamente con todos los datos que tenga en la columna "a". Por comparar me refiero a que el dato a1 este en la celda o1 y el dato a2 esta en la celda p1 ya que esas celdas están conectadas con una condicional, si esa condicional se cumple saldrá un "SI" en la celda m1 y si esto ocurre requiero que se ejecute otra macro que ya esta programa con el nombre "copiar" (dic.xlsm! Copiar).

2 respuestas

Respuesta
1

No me queda muy claro lo que requieres así que te envío un ejemplo, lo que la macro te marca es cuantas coincidencias hay en el rango de datos y te los coloca en la celda C.

Sub comparar()
Dim datos As Range
Dim f As Integer, n As Integer, cuenta As Integer
Set datos = Range("a1").CurrentRegion
With datos
    f = .Rows.Count
    For i = 1 To f
        n = .Cells(i, 1)
        cuenta = WorksheetFunction.CountIf(datos, n)
        .Cells(i, 3) = cuenta
    Next i
End With
End Sub

¡Gracias! 

Decidí plantear la pregunta en otro blog y me has podido ayudar.

Dejo el link donde esta la solución. Si! quizá aquí no fui muy claro.

https://www.todoexpertos.com/preguntas/8g7alru6u468pruy/macro-para-pasar-todos-los-datos-de-una-columna-por-dos-celdas?selectedanswerid=8g7la78otqis56pp&nid=a4mmdfu4ffsqdvkmhosptu6ca7w63hkrfvuprrcqfbu6jtulgsuajrcmabr3 

Respuesta

Quizá si intentas volver a explicarlo acompañado de algún ejemplo de qué tienes y qué resultado esperas, sea más fácil ayudarte

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas