Florian Nguyen

Elsa Matilde respondió: El primer mensaje aparece generalmente cuando se está en un bucle del que no sale... o cuando intenta encontrar la primer celda vacía (con xlDown) y la hoja está aún vacía. El segundo es claro: intentas copiar un rango mal definido (revisa nombre de...

Dante Amor respondió: H o l a: Te anexo las 2 macros Sub OCULTAR_AZUL() 'Por.Dante Amor On Error Resume Next col_azul = Sheets("hoja a duplicar").Tab.ColorIndex For Each h In Sheets If h.Tab.ColorIndex = col_azul Then h.Visible = 0 End If Next End Sub ' Sub MOSTRAR_AZUL()...

Programar Excel respondió: http://www.programarexcel.com/2016/10/como-ejecutar-macro-dependiendo-valor.html Mira este ejemplo tal vez aclare tu necesidad

Elsa Matilde respondió: Te falta la instrucción autorizando el autofiltro, te la dejo marcada Private Sub Workbook_Open() 'Protege y libera agrupamiento With Worksheets("ACTIVOS") .EnableOutlining = True .Protect Password:="123", _ Contents:=True, UserInterfaceOnly:=True,...

Elsa Matilde respondió: Primero la hoja ya tiene que tener colocados los filtros. Luego la instrucción debe ser: ws.Protect Psw, AllowFiltering:=True NOTA: si protegés la hoja con la grabadora de macros encendida, obtendrás otras opciones, como aplicar formato, etc. Sdos....

Elsa Matilde respondió: Te invito a visitar la sección Macros de mi sitio. Allí encontrarás ejemplos de instrucciones básicas. Luego revisa la sección Ejemplos (descarga gratuita). La sección Funciones presenta varios ejemplos utilizando aquellas funciones poco conocidas o...

Dante Amor respondió: Para que solamente se ejecute cuando modificas la celda de Range("Planning_economic_study") Private Sub Worksheet_Change(ByVal Target As Range) 'MEJORAS MACROS If Not Intersect(Target, Range("Planning_economic_study")) Is Nothing Then...

Dante Amor respondió: Sería así: Sub DesprotegeHoja() Dim hojas As Worksheet For Each hojas In ActiveWorkbook.Worksheets If hojas.Visible = -1 Then hojas.Unprotect Password:="XXX" End If Next End Sub La macro tiene que recorrer todas las hojas y verificar si está visible,...