Dante Amor

Avancemos con tu petición. En la siguiente respuesta explico cómo crear un form, de esa forma podrás seleccionar las hojas de una lista. MACRO de excel para imprimir varias hojas de un mismo libro Después de que hayas creado el form revisa la...

Sería así: Private Sub UserForm_Activate() TextBox1.Value = Date TextBox2.Value = DateSerial(Year(Date), Month(Date) - 4, Day(Date)) End Sub . .

Te anexo el código En esta línea pon las hojas que siempre se han de enviar: Hojas = Array("A", "B", "D") En esta otra línea pon las 2 primeras letras del nombre de las hojas que no quieres mostrar en el listbox: Case "AC", "AS" De esa forma las...

El archivo que adjuntaste tiene una macro comentada en la hoja "Resumen por leer", pero esa macro oculta filas y el título de tu pregunta es para ocultar columnas. Puedes comentar qué necesitas, en cuál hoja, qué columna hay que validar, partiendo...

Te anexo una macro. Revisa todas las hojas, fila por fila, y si el valor de la fila columna D es mayor a 10, entonces pinta la fila de amarillo. Sub Pintar_Fila() 'Por.Dante Amor For Each hoja In Sheets For i = 1 To hoja.Range("D" &...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Ir a la hoja Set celda = Range("A1") If Not Intersect(Target, celda) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then...

Va Sub Nombres() 'Por Dante Amor dia = Range("K8").Value Set b = Range("C8:G8").Find(dia, lookat:=xlWhole) If Not b Is Nothing Then col = b.Column Else MsgBox "No existe el día" Exit Sub End If ' turno = Range("K9").Value AREA = Range("K7").Value...

Va la macro Sub Nombres() 'Por Dante Amor dia = Range("K8").Value Set b = Range("F8:G8").Find(dia, lookat:=xlWhole) If Not b Is Nothing Then col = b.Column Else MsgBox "No existe el día" Exit Sub End If ' turno = Range("K9").Value fila = 10...

Es una fórmula matricial =SI.ERROR(INDICE($B$1:$B$50, K.ESIMO.MENOR(SI(INDIRECTO(DIRECCION(10,COINCIDIR($K$8,A8:G8,0))&":"&DIRECCION(50,COINCIDIR($K$8,A8:G8,0)))=$K$9, FILA()), FILA()-9)),"") Para aceptar la fórmula, tienes que copiarla en las celdas...

Seleccionar de Q7 hacia abajo y todo a la derecha. Pegar en la celda A7, pero si lo que está hacia la derecha, tiene más de 16 columnas entonces al momento de pegar, va a sobreescribir en la columna Q. Puedes comentar. Tienes pendiente valorar esta...