Intercambiar datos entre las celdas
Tengo 47 datos entre las celdas, por ejemplo en la celda AA1 "dato 1", hasta el AA47 "dato 47", quiero que cuando le de clic a un botón, corra una macro que me chocolate los datos, es decir lo que estaba en AA1, este ahora en AA24, y en la siguiente vez que le de clic al botón, esta varíe nuevamente.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Para cambiar de forma aleatoria los datos, hay que poner en las celdas AC1 hasta AC47 la fórmula:
=ALEATORIO()
De AD1 a AD47 poner esta fórmula:
=INDICE($AA$1:$AA$47;JERARQUIA(AC1;$AC$1:$AC$47))
En un módulo hay que poner esta macro:
Sub CambiarOrden()
'Por.Dante Amor
Application.ScreenUpdating = False
Range("AD:AD").Copy
Range("AA1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
