Aneudys Martinez

Seria de esta manera nomb = TextBox12 & "_" & h.Name & "_" & TextBox13 Si te silve no olvides valorar para cerrar la pregunta

[email protected]

En el botón buscar seria así Private Sub CommandButton1_Click() Set h = Sheets("personal") Set b = h.Columns("A").Find(TextBox1) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "c") TextBox3 = h.Cells(b.Row, "d") End If End Sub en el de modificar...

[email protected] mi correos enumerar lo que necesitas a ver si te puedo ayudar

Si tiene alguna macro preséntala y te ayudamos a corregirla sino tiene este es mi correo [email protected]

Pero la tiene creado uno un userform o quiere que te creemos un userform para estos registros si ya lo tiene solo presenta tu macro para ver en donde estas entancado

La primera parte la puedes resumir así: Private Sub cod_ref_AfterUpdate() Set h = Sheets("AAA") Set b = h.Columns("A").Find(cod_ref) If Not b Is Nothing Then ref_prod = h.Cells(b.Row, "B") codmp1 = h.Cells(b.Row, "D") codmp2 = h.Cells(b.Row, "E")...

Prueba con estas instrucción Agregra esto a tu macro On Error Resume Next. Si te silve no olvides valorar para cerrar la pregunta

Confirma que no allá llegado a ese limite que le pusiste Osea la intrucion dice qie empiece en el 10000 hacia arriba y el primer espacio en blanco creo que copias el dato eso creo pero como lo están usando 22 oficina a lo mejor llego al limite cheque...

[email protected] para darte una mano