Ciclo que me muestre diferencia de datos en una columna
Cordial saludo
sucede que tengo la columna A con muchos datos ellos cambian pero son repetidos me explico:
Columna A: 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4
quiero que en el momento en el cual me cambie de numero haga cierto procedimiento no se que valla al rango ("B2")... Lo estoy intentando hacer con un for y con un if sin embargo no se por que no me da y quisiera que me ayudaran a crear ese ciclo, se que es algo fácil sin embargo no he dado con el código que es...
Gracias
1 Respuesta
Aquí tienes un ejemplo de como puedes hacerlo. En Procedimiento por lo que realmente se tenga que hacer.
Sub EjecutarAlCambiar()
Dim i, FilaFinal As Integer, ValorActual
FilaFinal = Range("A" & Rows.Count).End(xlUp).Row
ValorActual = Cells(1, "A")
For i = 2 To FilaFinal
If Cells(i, "A") <> ValorActual Then
Call Procedimiento(i)
ValorActual = Cells(i, "A")
End If
Next
End Sub
Private Sub Procedimiento(i)
MsgBox ("Cambio en la fila" & Str(i) & " de " & Cells(i - 1, "A") & " a " & Cells(i, "A"))
End SubNo puse que ValorActual fuese Integer por si acaso en vez de número pones otras cosas, pero si son números enteros la linea podría ser
Dim i, FilaFinal, ValorActual As Integer
Y eso es todo.
