Tor Cheer

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...

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.

Otra macro para eliminar filas con datos, por si le es de utilidad, Saludos Sub EliminarFilas() 'elimina filas con datos Worksheets("INFORME").Select Range("A2").Select While ActiveCell.Value <> "" If ActiveCell.Value <> "" Then...

Ponga este código en la hoja 2 (clic derecho en el nombre de la hoja y después clic en Ver código y ahí pega el código, saludos Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns("A:A").NumberFormat = "#,##0" End Sub

Ponga un punto de interrupción en la línea de limpiar el contenido, y vaya ejecutando el proceso paso a paso con F8, ahí vera en que momento entra al mensaje, de esa manera podrá corregir el código a manera de que no pase por el mensaje.

Puede subir una imagen de su formulario y poner el código que esta utilizando, para poder ayudarle.

Con esta macro puede enviar un rango de datos en pdf, previamente tiene que estar configurado microsoft outlook con el correo del remitente, saludos. Sub EnvioEmailPDF() Dim olApp As Object Dim olMail As Object Dim RutaTemporal As String Dim...

Con esta macro, al escribir un día inhábil (sábado o domingo) envía un mensaje y borra el contenido de la celda. Si selecciona una fecha mayor a 7 días que la fecha actual da un mensaje de la fecha máxima a seleccionar y modifica la celda a la fecha...