Intercambiar valores de celdas

Me gustaría disponer de una macro que intercambiara valores entre celdas bajo una premisa concreta.
Es decir, si tengo un valor en A3 y otro en J6, siendo J6 menor que A3, quiero que me intercambie los valores y me ponga el valor de J6 en A3 y el de A3 en J6, siempre que se cumpla la condición de que J6 sea menor que A3. Si no se cumple esa condición quiero que se mantenga sin cambiar.
¿Es factible?

1 Respuesta

Respuesta
1
Si es posible te adjunto la macro:
Sub cambiar()
If Cells(6, 10).Value < Cells(3, 1).Value Then
valor1 = Cells(6, 10).Value
valor2 = Cells(3, 1).Value
Cells(6, 10).Value = valor2
Cells(3, 1).Value = valor1
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas