Dante Amor

H o l a: Para crear la macro, necesito que me envíes lo siguiente: En un correo nuevo, me anexas 3 archivos a consolidar, en un archivo de excel me pones 2 hojas, en la primara hoja realizas la consolidación de los 3 archivos, tal y como la...

Para abrir un userform pon lo siguiente en un módulo Sub Abrir() userform1.show End sub Ahora, en el formulario puedes poner un combobox, cargar las hojas en el combobox Pero al momento de seleccionar una hoja, ¿qué necesitas? ¿Qué se haga visible y...

Desde luego el tamaño del archivo va en función de las celdas ocupadas. Otras características que incrementan el volumen del archivo: Formatos de celdasFormatos condicionales, estos ocupan mucho espacio, sobre todo si tienes gran cantidad de...

H o l a: Te anexo la macro Sub FiltroNumeros() 'Por.Dante Amor Dim nums() ActiveWindow.ScrollRow = 1 digs = "1234567890,.°|¬#$%&/()=[]{}_-<>'?¿!¡" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, digs, Left(Cells(i, "A"), 1)) > 0 Then n...

H o l a: No conozco los archivos RDF, puedes enviarme un par de archivos RDF y me envías tu archivo de excel. En el archivo de excel con algún color y con comentarios me explicas cómo cargaste los 2 archivos RDF que me estás enviando. Mi correo...

Te anexo la macro, el resultado de las celdas te las puse en un mensaje. Sub PrimerasCeldas() 'Por.Dante Amor ActiveWindow.View = xlPageBreakPreview For Each corte In ActiveSheet.HPageBreaks celdas = celdas & corte.Location.Address(False, False) & ",...

Te anexo la macro Private Sub UserForm_Activate() 'Por.Dante Amor carpeta = "C:\trabajo\" archivo = Dir(carpeta & "*.*") Do While archivo <> "" ComboBox1.AddItem archivo archivo = Dir() Loop End Sub Cambia en esta línea de la macro por el nombre de...

Te anexo la macro actualizada Sub macro1apdf() 'Act.Por.Dante Amor carpeta = ThisWorkbook.Path & "\" archivo = "PROGRAMACION.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=carpeta & archivo, _ Quality:=xlQualityStandard,...

H o l a: Definitivamente podría hacerte la macro, pero no entendí qué dato de "SVE" tengo que comparar en "Base", pusiste "celda 4", ¿pero cuál es la celda 4? Tienes que poner un ejemplo más claro. Por ejemplo, en la hoja "SVE" en la fila 2, columna...

Esta puede ser una opción Range("a3").FormulaLocal = "=SUBTOTALES(103,$F$3:F3)" Range("b3").FormulaLocal = "=SI(ColorFondoIgual(E3,204,255,255),""X"",)" Range("c3").FormulaLocal = "=SI(H3=0,0,SI(I3-I2=1,""OK"",""FA""))" Range("a3:c3").AutoFill...