Dante Amor

Para crear una ventana "emergente" como la que pides es necesario crear un userform. Realiza los siguientes pasos: Pon la siguiente macro en un móduloSub abrir() UserForm1.Show End SubSigue las Instrucciones para un botón y ejecutar la macroAbre tu...

Prueba la siguiente macro. Te pide una carpeta y a partir de esa carpeta te pone en la hoja todas las subcarpetas y los archivos de cada subcarpeta. Dim j Dim rutas As New Collection Sub carpetasysub() 'por.dam 'lista archivos de una carpeta y todas...

Puedes especificar los nombres de las hojas. Cuál fila quieres copiar. Cuáles y cómo se deben cambiar los valores.

Podrías explicarlo con imágenes de lo que tienes y de lo que esperas como resultado. También revisa los siguientes artículos: https://www.gerencie.com/combinar-correspondencia-de-excel-con-word-utilizando-macros.html...

Te anexo la macro para filtrar por fechas Antes de ejecutar la macro debes crear una hoja y le pones por nombre "Temporal" Actualiza en la macro esta información: Set h1 = Sheets("BASE DE DATOS FACTURACION") Set h2 = Sheets("Temporal") col = "F"...

Prueba con lo siguiente, Pon la macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Pintar de color las celdas anteriores If Target.Row < 2 Then Exit Sub If Target.Count > 1 Then Exit Sub If...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Count > 1 Then Exit Sub Range("B" & Target.Row, Cells(Target.Row,...

Revisa la siguiente respuesta Listar el nombre de los archivos según fecha de modificación

Tal vez, solamente necesitas un formato personalizado, realiza lo siguiente: - Selecciona la columna "O" (PTU) - Entra al Menú Inicio, Formato, Formato de celdas, Número, Personalizada - En Tipo escribe 0000.00 - Presiona el botón Aceptar - Listo...

Te anexo la macro. La macro revisa desde la fila 2 y hasta la última celda con datos de la columna T. Sub Agregar_cero() For i = 2 To Range("T" & Rows.Count).End(xlUp).Row cad = "" nums = Split(Cells(i, "T").Value, "|") For j = LBound(nums) To...