Elsa Matilde

Primero debieras evaluar cuáles son tus rangos dependiendo del modelo. Para eso podrías dejar en un módulo este código. Te servirá para cualquier modelo. Public ini As Integer, fini As Integer Sub extremos() 'primera columna If [A13] = "" Then ini =...

Leo el código y hay una declaración 'Dime Fila ...', entiendo que pudo haber sido solo error de tipeo. Luego hay una declaración 'Set NumeroFila pero se trata de un control con Nombre_Apellido, lo que confunde un poco qué tipo de información tendrá...

Si mencionas: 'Al seleccionas un valor con el ratón, me selecciona toda la fila' entiendo que te estás refiriendo a toda la fila del Listbox. No puedes seleccionar solo 1 dato o columna, sino toda la fila. Entonces la siguiente instrucción te servirá...

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

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