Poner Check en cada nombre y corregir problema con macros

[efradncr]

Este tema lo habia iniciado en excel general pero nunca recibí respuesta. mas o menos lo que quise explicar y he adelantado es sobre la busqueda y poner un check que me indique que ya está revisado. Les paso el archivo para que vean mas o menos lo que quiero. El archivo original que subi primero se llama ¨para Foro´´ el otro el que pongo como ejemplo de lo que quiero se llama ´¨Prueba´´.. Gracias de antemano.

Prueba.xls

Para Foro.xls

[nachobm]

Hola efrdncr, no entiendo muy bien lo que quieres y además me da un error al buscar pero con esta función puedes añadir un checkbox en la celda que quieras

Function Add_Checkbox(fila As Long, columna As Long) As Integer

Dim x As Long

Dim y As Long

x = Cells(fila, columna).Left

y = Cells(fila, columna).Top

With ActiveSheet

    .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _

        DisplayAsIcon:=False, Left:=x + 2, Top:=y + 2, Width:=11, Height _

        :=11).Select

Add_Checkbox = .OLEObjects.Count - 1

End With

End Function

[/CODE]

La función te devuelve el número de indice de la colección de objetos.

Un Saludo