Hola amigos de forosdelweb, me auxiliaron con una macro para no repetir informacion en un rango de celdas, y funciona correctamente, le pone las letras de la "A" a la "L" en diferentes celdas sin repetir , mi pregunta es que en ves de poner las letras que tengo en la variable tarea ponga las tareas o el contenido de la celda que le corresponde, ejemplo para la letra A el valor que le corresponde se encuentra Z1,para la letra B le corresponde el contenido de Z2 y asi sucesivamente hasta la letra L que le corresponde el contenido Z12, les pongo el ejemplo que me dieron y dedusco que en la funcion Cell(2,I)=Mid(tarea,int(rnd(1)*len(tarea)+1),1 es en donde se puede realizar o generar una macro que despues de ejecutar el ejemplo que les muestro, me cambie los valores de A,B,C... por el contenido de un rango de celdas??????
Range("B2:L12").Select
Selection.ClearContents
tarea = "ABCDEFGHIJKL"
For I = 2 To 12
Cells(2, I) = Mid(tarea, Int(Rnd(1) * Len(tarea) + 1), 1)
tarea = Replace(tarea, Cells(2, I), "")
Next
For I = 2 To 12
For J = 3 To 12
tarea = "ABCDEFGHIJKL"
For K = 2 To J - 1
tarea = Replace(tarea, Cells(K, I), "")
Next
For K = 2 To I - 1
tarea = Replace(tarea, Cells(J, K), "")
Next
a = Mid(tarea, Int(Rnd(1) * Len(tarea) + 1), 1)
If a = "" Then
J = 3
Else
Cells(J, I) = Mid(tarea, Int(Rnd(1) * Len(tarea) + 1), 1)
End If
Next
Next
