Dante Amor

Me habías comentado que es un archivo muy grande, entonces después de ejecutas la macro guardas el libro con ActiveWorkbook. Save Te sugiero que quites esa línea y me digas si el tiempo todavía es demasiado. Si es demasiado, entonces habría que...

Puede ser así: Sub CopiarNumero() 'Act.Por.Dante Amor Set h1 = Sheets("FORMULARIO") Set h2 = Sheets("CLIENTE") Set h3 = Sheets("VISITAS") ' h2.[E7] = h1.[E7] h3.[C7] = h1.[E7] h2.[E5] = h1.[E6] h3.[C6] = h1.[E6] End Sub o así: Sub CopiarNumero2()...

H o l a: En tu ejemplo no veo los valores que hay que promediar. Puedes poner un ejemplo de los valores que vas a promediar, es decir, qué tienes en la columna A, a partir de cuál fila. Y el resultado del promedio en dónde lo quieres.

H o l a: Para realizar la macro tienes que explicar con mucho detalle. - Carpeta dónde tienes el libro cerrado. - Nombre del libro cerrado. - Nombre de la hoja del libro cerrado. - Qué datos del libro cerrado se van a leer. - En dónde se van a poner,...

H o l a: Al parecer todos los optionbutton quedan "enlazados" o agrupados en la misma celda. Otra alternativa es que cambies los OptionButton de formulario, por OptionButton de ControlActiveX, los controles de OptionButton de ControlActiveX, los...

Te anexo la macro, cambia hoja1 por el nombre de tu hoja. Sub Copiar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") h1.Unprotect "0976342842" h1.[F7].Copy h1.[F7].PasteSpecial xlAll h1.[F9].Copy h1.[F9].PasteSpecial xlAll h1.[F11].Copy...

H o l a: Te anexo la macro Sub InsertarVariosTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Base") h1.Cells.Clear ruta = l1.Path & "\" txts = Array("Lima",...

Tienes pendiente por valorar estas respuestas: MACRO lenta como volver más rápido EJECUTAR macro a cierta fecha y a cierta hora

Envíame tu archivo para revisarlo y adaptar la macro. Solamente como recomendación: Las bases de datos deben crecer sus registros hacia abajo no hacia la derecha, si tuvieras tus datos hacia abajo, podrías hacer una tabla dinámica y obtener...

H o l a: Te anexo la macro Sub BorrarFilas() 'Por.Dante Amor Set h = Sheets("Ingreso") u = h.Range("B" & Rows.Count).End(xlUp).Row If u > 1 Then h.Rows(u - 1 & ":" & u).ClearContents End Sub S a l u d o s