Elsa Matilde

Este sería el ajuste (en negrita) For Each sht In ActiveWorkbook.Sheets if sh.name <> "Registro" and sh.name <> "Tabla Dinámica" then sht.Select sht.Protect Password:=Pass ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False End...

Que pena pero como ya has finalizado y valorado la respuesta no puedo aportar. Pero sí se puede. Sdos!

Debes dejar escrita tu macro aquí para poder integrar este código o u otro similar.

Intenta Con esta sintaxis: ActiveSheet.Protect Password:="54321", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True,...

Estas serían las instrucciones: Sub renombraHoja() 'x Elsamatilde Hoja1.Select Hoja1.Copy Before:=Sheets(1) 'ActiveSheet.Select 'si ya es la activa no es necesario seleccionarla ActiveSheet.Name = "Imprimir" & Range("F3") & Range("F5") End Sub...

Te respondo a la consulta sobre los límietes para la función SUMIF y cualquier otro fin de rango que necesites, la línea que remover duplicados. Las fórmulas en VBA que requieren de alguna variable se escriben con la siguiente sintaxis:...

Esta sería una opción: Option Explicit Sub EsOffice64Bits() 'adaptada x Elsamatilde #If VBA7 And Win64 Then MsgBox "Tienes instalado Office de 64 bits.", vbInformation, "INFORMACIÓN" #Else MsgBox "Tienes instalado Office de 32 bits.", vbInformation,...

La función MODA no devuelve valores cuando se trata de textos. Yo colocaría en una col auxiliar, digamos a partir de M4, esta fórmula: =CONTAR.SI($F$4:$F$51;F4) y la arrastrás al resto del rango M. Luego donde quieras obtener el texto que más se...

Este tipo de macros se coloca en el evento Worksheet_Change de la hoja en cuestión. Por ej: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'se ejecuta al ingresar un dato en C10 If Target.Address <> "$B$54" Then Exit Sub If...

Si en O9 se indica el número de la última fila ocupada' podría tomarse ese dato, pero se me hace que allí guardas otra información y por lo tanto no servirá. Tampoco queda claro si tendrás más datos debajo de T13 cuando solo se llena hasta allí así...