Dante Amor

H o la :Probé tu macro y sí me funciona. Tal vez tu archivo Acumulado tiene algún problema. Lo que te recomiendo es que no abras el archivo en otra instancia: Set objExcel = New Excel.Application Ni tampoco que ocultes la aplicación objExcel.Visible...

Te anexo la macro actualizada 'Copiar informacion de Reporte a Bitacora Sub Copiar_adjuntos() 'Act.Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Ruta = "C:\Users\z003bpca\Desktop\Bitacora\" 'Ruta = "C:\trabajo\" arch =...

¿Los nombres que están en el combo ya existen en la hoja? ¿Cómo cargaste los datos en el combo? Mejor envíame tu archivo con el userform y te adapto el código Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Eliza...

H o la: Te anexo la macro. Supongo que el encabezado es el mismo, también que el número de columnas es el mismo, es decir, veo que son 7 columnas. También supongo que la separación de los datos está por tabulador. Cambia en la macro "resultado", por...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Row = 1 Then Exit Sub If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("P:Q")) Is Nothing Then u...

H o la: No me quedó claro en dónde se tiene que copiar y en dónde se tiene que pegar. Lo puedes hacer con un ejemplo y datos reales. Libro1, hoja1, celda D2, código "asd123". En el libro2, hoja2, columna E se busca el código, lo encuentra en la fila...

Para hacer una fórmula o una macro, necesito encontrar algún patrón en tus datos, ¿siempre se concatenan 3 celdas? Puedes poner más ejemplos, es decir, si es "a" qué celdas se concatenar, si es "b" qué se concatena, si solamente son 3 celdas, con...

H o l a: Te anexo la macro. Cambia "Hoja1" por el nombre de tu hoja que contiene los datos Sub Registrar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Registro") If h1.[G4] = "" Then MsgBox "Falta el código" Exit Sub End If If h1.[G6] =...

H o l a: Te anexo el código para cargar el combo. Observa que la variable cargando debe estar al principio de todo el código. Cambia "Hoja2", "A" y 2 por los valores donde tienes tus nombres. Dim cargando ' Private Sub ComboBox1_Change() 'Por.Dante...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Not IsNumeric(Target.Value) Then Exit Sub If Not Intersect(Target, Range("C:C"))...