Juan Carlos González Chavarría

Prueba primero quitando los paréntesis que hay en los If.

Por ejemplo, si tienes 2 TextBox y un botón, en el botón puedes poner lo siguiente: Dim SigFila As Long Hoja2.Select 'Seleccionar la hoja 2 SigFila = WorkSheetFunction.CountA(Range("A:A")) + 1 'Buscar fila vacía Cells(SigFila,1).Value = TextBox1.Text...

No entiendo bien qué quieres.

Puedes seleccionar el rango y copiarlo donde quieras. Si no es la respuesta adecuada.

Me imagino que a la hora de hacer la concatenación el dato se convierte en texto y tal vez tu lo tienes en numérico. Por eso cuando lo digitas te da el resultado correcto. Lo que tienes que hacer es convertirlo al formato correcto. Fíjate si aparece...

Tienes que utilizar la función =BuscarV().

En esta página tienen una buena herramienta para proteger los archivos y que no te los borren: http://www.spywareterminator.com/ [email protected]

=CONCATENAR(A1;A2;A3;A4;A5)

Tengo un ejemplo que te lo puedo enviar. [email protected]

¿Para qué tanto código si lo puedes hacer con una simple Tabla Dinámica?. Para los que no han entregado y quieres que se resalten en rojo, puedes usar los Formatos Condicionales. [email protected]