Adrian escribió:Estudia el método Find y una ves que encuestras elo dato usa la propiedad row
si lo encuentra
fila=sheets(1).Range("K:K").Find(Valor_Buscado, LookIn:=xlValues, lookat:=xlWhole).row
Hice el intento y no me funciona, es obvio q algo hago mal como ya dije sé poco y nada de macros
lo puse de la siguiente forma
fila=sheets(PROYECTISTA).Range("B:B").Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole).row
luego como no me funciono lo puse asi
Dim fila As Boolean
fila=sheets(PROYECTISTA).Range("B:B").Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole).row
adjunto el archivo sin este cambio pero le agrege que me salga un mensaje cuando guarde datos repetidos, y con respecto a esto puedo condicionar una búsqueda ? me explico necesito que busque primero la oecc y direccion, si esta esta CHAN !! mensaje que ya esta pero que si la oecc no esta y la direccion si no salga nada ya que puede que se haya generado una nueva oecc con la misma direccion.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.