Elsa Matilde

Para evaluar los títulos hay que mirar en qué se diferencian unas celdas de otras. Aquí ya no es letra vs número, sino que depende del 'largo' del texto que contengan. Por lo que utilizaré la función LEN Solo cambia la instrucción de control (If Not...

Había preparado un código para tu ejemplo anterior. Ahora veo que tenés otro modelo de hoja... por lo que el código ya no te servirá. ¿Podrías dejar nuevamente tu libro con el modelo 'real' o enviármelo a mi correo? (Aparece en mi sitio que dejo al...

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

Lo podrás resolver con fórmula o con macros. 1-Con fórmula: necesitas tener en alguna hoja la lista de códigos y nombres. En mi ejemplo la coloqué en una hoja llamada LISTA, en col A:B En la celda donde quieras obtener el nombre coloca esta fórmula y...

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 necesitas volver a una hoja/celda donde hiciste 'doble clic', una manera sería utilizando un atajo de teclado. En la hoja (u hojas) donde hagas el doble clic coloca este código, que te guardará la referencia. Si siempre se regresa a la misma hoja...

Como se observa que las columnas se van a mover individualmente, podrás ejecutar estos pasos con cada una de ellas. 1- Seleccionar el rango de la col A. 2- Desde menú Buscar, Ir a, Especial, marcar 'Celdas en blanco'. Aceptar. 3- con la selección...

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