Dante Amor

H o l a: Te ayudo con la primera opción. Envíame tu archivo en un correo nuevo con el ejemplo1 Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jose Buscaglia” y el título de esta pregunta. Avísame en esta pregunta...

Una forma sencilla es poner el mensaje en la barra de estatus de excel (esquina inferior izquierda) Sub ejecutar() ' ' Application.StatusBar = "PROCESANDO INFORMACION. Macro X" Call x Application.StatusBar = "PROCESANDO INFORMACION. Macro Y" Call y...

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...

Prueba así: Sub CopiarFilas2() 'Por.Dante Amor 'Copiar Filas de Varios Libros Modificada Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) contador1 = 2 contador2 = 3 h1.UsedRange.Offset(1, 0).ClearContents With...

H o l a Susana: Envíame tu archivo y me explicas cómo funciona tu archivo y en dónde está el consecutivo que quieres cambiar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Susana Azcorra” y el título de esta...

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")...

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: Envíame tu archivo con tu formulario y me explicas con un par de ejemplos lo que quieres lograr. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Edwin Soler” y el título de esta pregunta. Avísame en esta...