Dante Amor

H o l a: Pon la siguiente macro en los eventos de la hoja "colores", si estás modificando la celda D21 entonces, la macro se ejecutará en automático y realizará el llamado a la macro según el color. Private Sub Worksheet_Change(ByVal Target As Range)...

H o l a: Te anexo la macro, en la macro van unos comentarios para que actualices los datos. El libro "Resultado.xlsx", deberá estar abierto. Sub CopiarFilas() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 =...

H o l a: Te anexo la primera parte. Importar archivo txt a partir de la celda D1. Cambia en la macro "Hoja1" por el nombre de la hoja en donde se va a pegar el archivo txt. Cambia "archivo.txt" por el nombre del archivo txt que se va a importar. El...

H o l a: Para cambiar de forma aleatoria los datos, hay que poner en las celdas AC1 hasta AC47 la fórmula: =ALEATORIO() De AD1 a AD47 poner esta fórmula: =INDICE($AA$1:$AA$47;JERARQUIA(AC1;$AC$1:$AC$47)) En un módulo hay que poner esta macro: Sub...

H o l a: Te anexo la macro. Cambia en la macro "Hoja1" por el nombre de tu hoja donde están tus datos. Crea una hoja con el nombre "Hoja2", en esta última hoja quedarán los resultados. La macro supone que los datos empiezan en la fila 1 y que no...

H o l a: Te anexo la macro actualizada: Sub GuardarHoja() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("factura") 'Nombre de la Hoja a guardar Set l2 = Workbooks.Add Set h2 = l2.Sheets(1) ruta =...

H o l a: Procura no hacer las preguntas como Anónimo, es complicado darle seguimiento a las preguntas, finalmente tu nombre de usuario puede ser un sobrenombre. Utiliza la siguiente macro, cambia el nombre de la hoja y el rango de celdas. Sub...

H o l a: En VBA el código sería así: En los eventos de ThisWorkbook: Private Sub Workbook_Open() 'Por.Dam VerificarHora End Sub Significa que cuando abres el libro se ejecuta la macro VeriricarHora. Ahora en un módulo: Sub VerificarHora() 'Por.Dante...

H o l a: Podrías especificar los siguientes datos: 1. ¿En qué columna está el correo? 2. ¿En qué columna está la operación? 3. ¿Qué va a llevar en el asunto el correo? 4. ¿En qué columna quieres que se ponga la fecha del último envío de correo? 5....

Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Address(False, False) = "C14" Then [F6] = 0 [F7] = [C14] End If If Target.Address(False, False) = "C7" Then If Target = "" Or Target = 0 Then Exit Sub End...