Dante Amor

Utiliza los siguiente para poner "Marzo" en la celda B2 de todas las hojas de tu libro, excepto en estas hojas:"Hoja1", "Resumen" Sub Cambiar_Mes() For Each h In Sheets Select Case h.Name Case "Hoja1", "Resumen" Case Else h.Range("B2").Value =...

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

Te anexo la Función SumarSiConjunto3 para sumar hasta 3 criterios de rangos Function SumarSiConjunto3(rango_suma As Range, rango_criterios1 As Range, criterio1, _ Optional rango_criterios2 As Range, Optional criterio2, _ Optional rango_criterios3 As...

Puedes poner tu macro para ajustar la parte que copias. También indica cuál línea quieres copiar.

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

Te anexo la macro con los cambios Al dato que tiene la fecha lo debes formatear con guiones para que se pueda guardar el archivo, ya que no permite la diagonal (/) en el nombre del archivo. De ejemplo puse la celda B10: Format(Range("B10"). Value,...

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

Así quedaría el código para guardar Private Sub CommandButton1_Click() 'Por.Dante Amor 'Pasar los datos del form a la hoja If ComboBox1.ListIndex = -1 Or ComboBox1 = "" Then MsgBox "Selecciona el mes requerido" ComboBox1.SetFocus Exit Sub End If If...

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