Dante Amor

Te anexo la macro para extraer celdas de otros libros y ponerlas en un nuevo libro. Pon la siguiente macro en un libro nuevo. Sub ExtraerDatos() 'Toma datos de varios libros y los pone en un nuevo libro 'Por.Dante Amor Application.DisplayAlerts =...

Necesitamos ver qué datos tienes en el listbox Y que nos expliques, con un ejemplo o varios ejemplo, si selecciono un registro de listbox, en base a qué datos determinas si se marca el option1 o el option2 o el 3 o 4 o 5. Y en base a qué datos se...

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

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

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

Te anexo un ejemplo, para pasar los datos del un listbox a la hoja. Voy a suponer algunas cosas. - En el listbox tienes 4 columnas : cantidad, descripción, precio e importe - Vas a pasar la cantidad a la columna B, descripción en C, precio en D e...