Elsa Matilde

Te paso la macro: Sub copiaFormulas() 'x Elsamatilde For i = 3 To Range("C" & Rows.Count).End(xlUp).Row If Range("W" & i) > 0 Then Range("X2:AY2").Copy Range("X" & i).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False,...

Te dejo las instrucciones a partir de la primera condición: If Not Application.Intersect(keycells, Range(TARGET.Address)) Is Nothing Then If keycells = "_2_" Then Rows("29:30").Hidden = True ElseIf keycells = "_3_" Then 'agregado Rows("32:33").Hidden...

En el video Nª 69 de mi canal traté el tema de cómo utilizar un control WebBrowser para mostrar documentos o páginas web. El libro con el ejemplo se puede descargar desde mi blog...

Ya te han dejado una muy buena reseña. Solo quiero poner énfasis en algunas de estas pautas viendo los nombres de tu ejemplo, y un caso más: - No al uso de espacios, ya te lo comentaron. Pero asegurate también que no te queden espacios ni delante ni...

Aquí lo que importa es que no escondas tanto y liberes un poco de información, jajaja. ¿Podrías dejar un ejemplo cualquiera así intentamos resolver tu consulta? Aquí un ejemplo de la función K.menor. ¿Qué intentas dividir?

Pude abrir uno de los libros (docx), me lo podés solicitar a mi correo (cibersoft PUNTO arg ARROBA gmail.com). El doc no pude recuperarlo. Ya no tengo ningún Office anterior a las extensiones de 4 caracteres como para intentarlo con esas versiones.

Dentro de tu misma macro de filtro, podrás ejecutar el código que evalúa cuáles son las columnas vacías, con esta instrucción: Call ocultaColumnasFiltradas Sub ocultaColumnasFiltradas() 'x Elsamatilde filx = Range("B" & Rows.Count).End(xlUp).Row...

En Excel, si tuviese una casilla de verificación, así sería el código para mostrar mensajes según si está tildada o no. Private Sub CheckBox1_Click() 'al tildar la casilla If CheckBox1.Value = True Then MsgBox "La casilla está tildada." Else 'cambiar...

Aquí arrastro el contenido de B2 hasta la última celda ocupada en col A. Sub rellenaFormula() 'x Elsamatilde 'rellena desde B2 hasta la última ocupada en col A Range("B2").AutoFill Destination:=Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row),...

Una vez te envié imagen del resultado, me respondiste que eso es lo que esperabas. Pero cuando te envié el archivo cambiaste de idea (o no la supiste ajustar a tu hoja), buscaste otras fórmulas y ya nunca te dieron resultados correctos. Ahora,...