Anónimo
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?
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 de parmijo
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
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