Dante Amor

Te anexo la macro: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address = "$C$4" Then ActiveSheet.PrintOut Copies:=1, Collate:=True End If End Sub Para que la macro funcione en automático deberás poner la macro en los...

Te envío la macro con los cambios Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets(ComboBox1.Value) Set h2 = Sheets(TextBox1.Value) Set b = h1.Cells.Find("ESTADO") If Not b Is Nothing Then col = b.Column j = 7 For i = 7 To...

Puede ser así: Que la macro te abra un explorador, entonces tu puedes seleccionar uno o varios archivos, cuando presiones Aceptar, entonces la macro le aplicará lo de la columna a todos los libros y a todas las hojas. Pero aquí hay que considerar que...

Envíame tu archivo para crear una macro. En el archivo me envías tu estado actual de octubre y cómo quieres el resultado en noviembre. Si también quieres que se le haga algo a la hoja de octubre, me envías otra hoja con el resultado. En resumen me...

Puedes enviarme el archivo directamente a mi correo. El que pusiste como compartido no lo puedo descargar.

- Pon la siguiente macro en un libro nuevo. - Guarda el libro nuevo con el nombre que quieras en la misma carpeta donde están todos tus libros a los que les vas a ajustar todas sus hojas. - Ejecuta la macro Sub AjustaColumna() 'Por.Dante Amor '...

¿De los 4 archivos en qué fila está el encabezado? ¿Y a partir de cuál fila se empiezan los datos a copiar? ¿En cuál fila de la hoja "Concentrado" quieres el encabezado? Quieres que se abra la ventana del explorador y seleccionar 4 archivos. ¿Luego...

Prueba con la siguiente macro. La macro la tienes que poner en los eventos de worksheet. Lo que hace es, cada que modificas alguna celda de la columna A o la columna D, en automático te pone la fecha en la celda de la derecha. Si necesitas otras...

Si pones 2013 tiene que existir la hoja "Pedidos 2013" Si pones 2010 tiene que existir la hoja "Pedidos 2010" Si pones 2012 tiene que existir la hoja "Pedidos 2012" Lo que hace la macro es entrar a la hoja según el año que pusiste, si pones 2010, la...

Bueno tu ciclo, pues no es un ciclo, solamente se ejecuta para el 22 y termina. Pero para cambiar el número por la i, esta sería una opción For i = 22 To 22 Workbooks("hola.xls").Worksheets("Hoja1").Range("D" & i & ":F" & i).Copy...