Dante Amor

H o l a: Agrega al principio de tu macro la siguiente instrucción: Application.DisplayAlerts = False

H o l a: Crea una tabla dinámica. Selecciona tus datos, del Menú Instar, selecciona Tabla dinámica, en la ventana de Crear tabla dinámica, selecciona Nueva hoja de cálculo y presiona aceptar. Excel te crea una nueva hoja, en esa nueva hoja en el...

H o l a: Te anexo la macro Sub ConvertirTxt() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja2") ruta = "C:\trabajo\" arch = Dir(ruta & "*.txt") ' Do While arch <> "" Workbooks.OpenText Filename:=ruta...

H o l a: Tengo una macro que realiza búsquedas utilizando un combobox de controlActivex: ¿Filtrar lista de artículos con COMBOX? ¿Solamente quieres que se filtre por nombre o cualquier dato? Envíame tu archivo con algunos ejemplos. Mi correo...

H o l a: Revisando tu macro, veo que estás multiplicando la celda D2 por la F2, entonces no es necesario la función SUM( ). La macro podría ser así: Sub Sumar() 'Por.Dante Amor u1 = Range("D" & Rows.Count).End(xlUp).Row u2 = Range("F" &...

H o l a: Puedes poner una imagen de lo que tienes en tu "hoja de lista de gastos", para ver en qué columnas tienes la información. Pon otra imagen de la "otra hoja" para ver cómo quieres que queden los datos cuando es "F" Pon una tercera imagen de la...

H o l a: La información que pones en un textbox, es un texto, aunque le pongas formato al textbox, lo que está contenido dentro del textbox, sigue siendo un texto, lo mismo ocurre con un listbox o un combobox. Lo que se tiene que hacer es pasar ese...

H o l a: Te anexo la macro para realizar la copia. Sub CopiarCelda() 'Por.Dante Amor Set h1 = Sheets("registro") Set h2 = Sheets("consec doc") If h1.[B10] > 0 Then h2.[B60000] = h1.[B10] MsgBox "Celda copiada" End If End Sub Sigue las Instrucciones...

H o l a: Te anexo la macro para que la pongas en un libro, guarda el libro en otra carpeta diferente a donde tienes los 40 libros. Sub CopiarUnaHoja() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False...

H o l a: Me puedes aclarar lo siguiente: Pero en alguna parte le tienes que decir cuáles hojas quieres copiar.Si quieres copiar 3 hojas, por ejemplo: "Análisis Vertical, Análisis Horizontal, Datos Ratios", ¿quieres las 3 hojas en un libro nuevo o...