Dante Amor

H o l a: Te anexo la macro. Cuando ejecutas la macro te pregunta si quieres una hoja nueva, si seleccionas Sí, te crea una hoja, si seleccionas no, te pone la información en la hoja activa, si seleccionas cancelar, termina la macro. Después te abre...

H o l a : Envíame tu archivo y me explicas con detalle lo que requieres realizar. También envíame un ejemplo del pdf que quieres generar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Pablo Ramirez” y el título de...

H o l a : La mejor forma es crear un nuevo libro. En el nuevo libro creas el mismo número de hojas que tienes en el libroX, en el nuevo libro renombras todas las con el mismo nombre que tienen las hojas del libroX. Es decir, si en el libroX tienes 3...

Te anexo la macro actualizada para validar la columna G Sub resumen() 'Act.Por.Dante Amor Set h = Sheets("TOTAL TIENDAS") h.Cells.ClearContents For n = 5 To 6 'cambiar el 6 por el número de hoja final Set hoja = Sheets(n) u = hoja.Range("G" &...

H o l a : Tengo algunas dudas, me las respondes en el siguiente orden: 1. ¿Quieres combinar los textos de la columna K y dejar todos los textos en una celda de la columna L? 2. ¿Los textos siempre empiezan con el color rojo? 3. O se puede tomar como...

Te anexo la macro actualizada Sub Imprimir_Click() 'Act.Por.Dante Amor num = InputBox("Escribe el número de folios a imprimir", "IMPRIME FOLIOS") If num = "" Or num = False Or num = 0 Or Not IsNumeric(num) Then MsgBox "Impresión cancelda",...

H o l a : No necesitas ningún botón, se puede realizar el filtro se utilizas los eventos change de los combobox. Te anexo el código: Private Sub cmbMomento_Change() Call filtrar End Sub Private Sub cmbTipo_Change() Call filtrar End Sub Private Sub...

H o l a: Te anexo el código con algunos comentarios Private Sub ListBox1_Click() 'Por.Dante Amor 'se obtiene el dato de la columna 4, 'la 0 es la columna 1, la 1 la col2, la 2 la col3 y la 3 es la columna 4 dato = ListBox1. List(ListBox1. ListIndex,...

La macro que pusiste tiene algunos errores. Por ejemplo, tienes esta línea: For Each Sheets La palabra "Sheets" está reservada para los objetos de las hojas, entonces no la puedes utilizar como variable. Puedes poner algo como esto: For Each hoja In...

Ya cargaste los item a listbox, el listbox lo tienes como Multiselect, es decir, puedes seleccionar varios item, pero solamente quieres seleccionar 5. Y si ya seleccionas 5 y quieres seleccionar el 6, ¿qué te aparezca un mensaje? Y si ya seleccionas...