Luis Mondelo

Sería necesario que adjudicaras uno de esos textbox como campo clave para la búsqueda. ¿Cuál de ellos quieres que sea el campo clave para identificar si existe o no? En toda base de datos debemos tener un campo clave que es único.

Te mando mi solución: -Posiciónate encima de la primera celda de esa columna y después ejecuta esta macro Sub prueba() Do While ActiveCell.Value <> "" If Not IsNumeric(ActiveCell.Value) Then ActiveCell.HorizontalAlignment = xlLeft End If...

¿Y si tienes 4,15?

Si lo deseas puede hacer el ejemplo trabajando en tu archivo. Mándamelo y lo dejo construido. Recuerda hacer un ejemplo a mano de lo que quieres en tu excel. [email protected]

Prueba con esta macro: Sub ejemplo() For Each hoja In ActiveWorkbook.Sheets hoja.Select Range("f1").Formula = "=max(a8:a50)" Range("f2").Formula = "=today()" Range("f3").Formula = "=f2-f1" Next End Sub recuerda finalizar la consulta

Aparentemente lo que pides es posible pero si me mandas el ejemplo explicado te podré ayudar mejor [email protected]

Te mando mi solución, sigue este ejemplo: En la hoja llamada "factura" tenemos el modelo de factura En la hoja llamada "resumen" guardaremos los datos. Ejecuta esta macro y todo listo. Sub guardar() 'por luismondelo...

has probado a ponerle el signo = delante

Como yo te contesté lo vuelvo a hacer ahora. Después del proceso inicial que ya te envié solo tienes que ejecutar esta macro para ordenar las pestañas de tu archivo Sub ordenar() On Error Resume Next For Each hoja In ActiveWorkbook.Sheets For x = 1...

Después de que haya terminado el proceso de aglutinado de los txt, añade una nueva pestaña llamada hoja2 y ejecuta esta macro: Sub prueba2() Range("sz2:td" & Range("td100000").End(xlUp).Row).Copy Sheets("hoja2").Range("a1").PasteSpecial...