Dante Amor

H o l a: No me queda muy claro que hay que copiar y en dónde hay que pegar. Tengo las siguientes dudas: Cuando dices: "Copiar los resultados en la hoja 2", te refieres a que se tienen que pegar como valores, ¿o a qué resultados te refieres?Quieres...

H o l a: Envíame tu archivo y me explicas con ejemplos exactamente qué quieres pintar. No te recomiendo que se pinten las celdas en base a un número de semana, ya que un número de semana, dependiendo del año, puede ser de un mes o de otro mes. Lo...

Te anexo la macro actualizada Public Declare Function Beep Lib "kernel32" _ (ByVal dwFreq As Long, _ ByVal dwDuration As Long) As Long ' Sub CARGA_CONSUMOS() Set l1 = ThisWorkbook Set INC = Application.InputBox("INDIQUE DONDE COMENZAR LA CARGA DE...

H o l a: Te regreso el código actualizado. Según tu código de carga tienes 8 columnas. Acomodé las columnas, porque tienen que estar las mismas columnas en el listbox 1 y en el 2, de esa forma podrás regresar registros del 2 al 1. Private Sub...

H o l a: Para completar la macro tienes que mencionar la siguiente información: En cuál celda está lista desplegableCómo se llama la hoja en donde tienes la lista desplegableEn cuáles celdas están los item de la listaCómo se llama la hoja en dónde...

Te anexo la macro Sub UnirArchivos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) h1.Cells.Clear ' fila = 1 ruta = ThisWorkbook.Path & "\" arch = Dir(ruta & "*.xlsx")...

Sí, envíame tu archivo y me explicas con ejemplos lo que necesitas. Recuerda poner en el asunto del correo tu nombre de usuario.

H o l a: Te anexo una macro, deberás tener 2 hojas "Hoja1" y "Hoja2". Sub Desglosar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.ClearContents h2.[A1] = h1.[A1] h2.[B1] = "F1" n = 2 For i = 2 To h1.Range("A" &...

H o l a: Veo bastante bien tu macro. Solamente le hice unos pequeños ajustes: Sheets("DGR").Select filalibre = Application.WorksheetFunction.CountA(Range("A:A")) + 1 Set midato = ActiveSheet.Range("B1:B" & filalibre).Find(dato, LookIn:=xlValues,...

H o l a: Tienes pendiente valorar esta respuesta: Macros que al encontrar la palabra "Isotype" dentro de la columna "A" Se añadan 2 filas encima de esta . Al final de mi respuesta hay 2 opciones para valorar: "Votar" y "Excelente", si todavía tienes...