Dante Amor

H o la: Te anexo la macro actualizada: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim w Set w = ActiveSheet With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next...

La macro no está completa. Puedes enviarme tu archivo y me explicas qué vas a hacer y en dónde quieres la barra.

H ol a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Set Rng = Range("B4:B444") If Not Intersect(Target, Rng) Is Nothing Then Application.ScreenUpdating = False ActiveSheet.Unprotect...

Va: Sub el() 'Por.Dante Amor Set h1 = Sheets("ORIGEN") Set h2 = Sheets("RESULTADO") 'obtiene la dirección del rango usado en la hoja tabla = h1.UsedRange.Address h2.Cells.Clear ' 'obtiene la primera fila del rango fini = h1.Range(tabla).Cells(1,...

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

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

Esta es la parte que utilizar para realizar la carga del combo: Sheets("visita").Select Range("b3").Select Do While ActiveCell <> Empty ComboBox2.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop Seleccionas la hoja "visita", seleccionas...

¿Qué más te dice el mensaje de error? Tienes un control en tu userform llamada TextBox1, revisa que exista o que no le hayas cambiado el nombre.

Te anexo la macro, pon todo el código en un módulo: Sub CopiarArchivos() 'Por.Dante Amor ruta = [B2] incluye = UCase([B3]) dest = [B4] ext = [B6] ' If ruta = "" Or incluye = "" Or dest = "" Or ext = "" Then MsgBox "Complete los datos" Exit Sub End If...

Te anexo la macro actualizada. Verifica que se pueda abrir el archivo. También valida que existe la hoja "resumen". Para cada archivo con problemas, te pondrá un registro con error en la columna A y el nombre del archivo en la columna V Option...