Dante Amor

H o l a: Supongo que las columnas a comparar son las mismas: D y E; y en la columna F el resultado: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Row < 5 Then Exit Sub If Target.Count > 5 Then Exit Sub...

H o l a: Pon la siguiente macro en los eventos de tu hoja: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Por.Dante amor UserForm1.Show End Sub Cuando presiones un hyperlink en automático se abrirá el userform1. Sigue las...

H o l a Te anexo la macro, cambia [B3] por la celda que contiene el texto, [C3] por la celda donde quieres el destino y "Lunes" por la palabra que quieras eliminar. Sub EliminarTexto() 'Por.Dante Amor texto = [B3] [C3] = Replace(texto, "Lunes", "")...

H o l a: ¿Tienes en la columna J fórmulas? ¿Quieres qué se realice en automático? Si es así, entonces pon la siguiente macro en los eventos de tu hoja: Private Sub Worksheet_Calculate() 'Por.Dante Amor Application.ScreenUpdating = False...

H o l a: Envíame tu archivo, me dices en cuál hoja tienes tu lista desplegable donde vas a poner el número. Me dices cuál es tu hoja base y qué datos quieres copiar y en dónde los quieres pegar. Si puedes explícalo con un ejemplo con un número, marca...

Otra opción, es que entres a las opciones de Power Point y actives la casilla para guardar la información, y pongas cada cuanto tiempo quieres que se guarde.

H o l a: Si lo quieres guardar sin macros: Sub Macro3() 'Por.Dante Amor celda = Range("B4") ActiveWorkbook.SaveAs Filename:=celda & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub Si lo quieres guardar con macros: Sub Macro4()...

H o l a: Antes de empezar con la macro, dime lo siguiente: El libro con la macro va a estar en la misma carpeta con los libros.?La información empieza en la columna "B", en la fila 7; pero en cuál columna acaba.?Cuál columna de los archivos siempre...

H o l a: Te anexo la macro Sub BuscarPondera() 'Por.Dante Amor Set r = Columns("A") Set b = r.Find("pondera", lookat:=xlWhole) If Not b Is Nothing Then ncell = b.Address Do Range(Cells(b.Row + 1, "A"), Cells(b.Row + 4, "A")) = "x" Set b =...

H o l a: Con copiar el módulo que tiene la macro de un libro a otro libro, ¿con eso te sirve? ¿Después de copiar la macro hay que modificar la macro para que funcione en el nuevo libro?