Dante Amor

Tu macro está bien. Revisa que en la celda "N1" de la hoja "ArchPlano" tengas el dato que quieras contar.

Esta sería la macro con los cambios Sub validar() 'Por.Dante Amor For i = 2 To 366 If Range("H" & i) <> "" Then Range("G" & i) = "SI" Else Range("G" & i) = "" End If Next End Sub Saludos.Dante Amor Recuerda valorar la respuesta.

No puedo descargar el archivo, solamente lo puedo visualizar, para poder revisar las macros, puedes enviarme tu archivo.

Y si pones estas 2 líneas MyItem. Display MyItem. Send Prueba y me comentas

Puede ser con la siguiente macro, cambia C3 por la celda que tiene la primera lista, cambia D3 por la celda que tiene la segunda lista. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("C3")) Is...

Prueba lo siguiente, Separa los contactos, uno para cada línea . Recipient.Add "[email protected]" . Recipient.Add "[email protected]" . Recipient.Add "[email protected]" 'Para comprobar los contactos . Display SendKeys "%hk", True DoEvents 'Para...

Si proteges el libro, no pueden mover las hojas, incluso puedes poner una calve. Prueba y me comentas.

Si tus tablas son un rango de celdas pero en tabla y las tablas las tienes en una hoja, ejecuta la siguiente macro en esa hoja. El nombre del archivo será el nombre de la tabla. Sub ExportarTablas() 'Por.Dante Amor Application.DisplayAlerts = False...

Te anexo una macro. Considera que en ambos textbox deberás capturar un fecha con el formato dd/mm/aaaa, por ejemplo: para captura el 15 de junio de 2014, deberás capturarlo así: 15/06/2014 De esta forma la macro podrá hacer los filtros de manera...

¿Pero cuáles celdas quieres validar? Desde la "A" hasta la "BY" hay 77 celdas, ¿quieres validar todas? Esta es una opción, cambia el 10 por el número mínimo de celdas en blanco que permites Sub addend() Application.ScreenUpdating = False For i = 1 To...