Actividad pública reciente
Ha valorado "Excelente" la respuesta
Como enlasar combobox con excel y dos textbox
¿El error es en esta línea? Set busca = Sheets("hoja1").Range("a1:a3000").Find(valor, LookIn:=xlValues, lookat:=xlWhole) Revisa que tengas una hoja llamada "hoja1". Cambia el nombre por el nombre de la hoja correcta. Si sigues con problemas envíame...
Ha empezado a seguir a 
Dante Amor
Dante Amor