Sebas Torres

Prueba este Sub Multi_Hojas() Dim xSh As Worksheet Application.ScreenUpdating = False For Each xSh In Worksheets xSh.Select Call RunCode Next Application.ScreenUpdating = True End Sub Sub RunCode() 'AQUI SU CODIGO End Sub Cambia la línea por tu...

Sería algo así me parece Sub Ocultar() Dim rg As Range Set rg = Range("A26:A36")&("A53:A68") cell.EntireRow(rg).Hidden = True If CheckBox1.Value = True Then Ecell.EntireRow(rg).Hidden = False End If Next End Sub Prueba y me dices

Range("a4"). BorderAround xlContinuous, xlThin, (0) cambia el valor A4 por el tuyo

Yo no tengo mucha noción de copiado, son pocos mis conocimientos con macros, pero acá va mi sugerencia ... Si con 20 tablas te funcionaba bien y ahora tienes 40 tablas ... ¿por qué no armas 2 macros con 20 tablas en cada una y después armas un...

Pásame un correo y te envío un user form si quieres y tu le agregas tu base de datos =)

Tu pregunta no me deja pegar el codigo =( Pásame un correo y te envío la macro

Realizando una planilla como en la siguiente imagen Seria algo así la fórmula que tendrías que aplicar para que te de lo resultados que tu buscas...

Aquí te dejo esta macro Sub Clear_AJ() ' ' Limpia todos los campos de la columna A hasta la J ' Application.ScreenUpdating = False Columns("A:I").Select Selection.ClearContents ' ' Borra cualquier celda combinada que haya en ese rango ' With...

Compañero lamento informarte que no puedes ir más atrás del año 1900 en nada referido a windows... igualmente te dejo la función quizás la uses con otra fecha Siempre va primero la fecha más reciente y luego la fecha más antigua Supongamos que tienes...