Tor Cheer

Tengo esa macro para buscar, si la adapta a su archivo le puede funcionar, le agregue para que copie el formato de las celdas encontradas, saludos Sub bucarV() 'Copiar con formato Dim Valorbuscado, Buscar, encontrado, formato, sucursal As String...

Si comparte su archivo para ver la posibilidad de solucionar el problema.

Con esta fórmula se puede separar Descargue el archivo ejemplo del siguiente enlace https://drive.google.com/open?id=16sDF97mFkKCmxiU-qXYa_oN4pr_icxrX

Con esta macro podrá contar los nombres, saludos Sub macro1() Dim nombre As String Dim valorencontrado As String Dim valor As String With Range("A1").CurrentRegion.Select ultimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row Dim Celda As...

Si comparte su archivo puedo intentar ayudarle.

En las líneas de su código hace referencias a 2 hojas identifique cual es la hoja1 y quite esas referencias para que no cambia de color a las celdas de la hoja1. De otra manera si puede compartir su archivo para poder ayudarle.

A simple vista parece ser relativamente sencillo separar o cambiar el orden de los nombres y apellidos a viceversa, los detalles empiezan cuando nos encontramos con nombres y apellidos compuestos o con un solo apellido por ejemplo: María del Carmen...

Si puede compartir su archivo para poder ayudarle.

Con esta macro puede hacer que el valor de A1 se repita en las celdas deseadas, haga los pasos como se muestra en la imagen, saludos Range("B1:B5,C3,D6:D10,E7,E9,F5").Value = Range("A1").Value

De clic derecho a la celda o a toda la columna y seleccione formato de celdas y seleccione Texto, con eso se alinea a la izquierda el numero, saludos