Sebas Torres

¿Compa cómo estas? ¿Lo qué quieres es crear botones para todas tus páginas? Simplemente agrega los botones que necesites en cada una de las hojas y en cada botón haz clic derecho/ver código y dentro del mismo pegas el siguiente código Sub unnombre()...

Ve a propiedades del Combobox donde dice "ListRows" y por defecto dice 8 Ahí cambialo por el valor de elementos que quieres mostrar =)

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