Elsa Matilde

Tomo tu consulta. Ya te dejaré otra macro universal, ya que cada entrega se personalizó a tu modelo de hoja.

Tomo tu consulta. Te devolveré el libro con las fórmulas en el código que ya desarrollamos.

Respondo sobre este modelo que según me comentas es el real. Así quedaría la macro. Los resultados en la siguiente imagen: Sub insertaFechas() 'x Elsamatilde 'se evalúa si se llama a la macro desde las celdas de Fecha inicio-final filx =...

Te dejo 2 muestras de rangos combinados, tanto en modo vertical como horizontal. Y el código que utilizo para que me muestre en cada control esos valores 'compartidos' o no. Private Sub CommandButton1_Click() Dim s As Long filx =...

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

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