Dante Amor

H o l a : Te anexo una macro para copiar los únicos Sub CopiarUnicos() 'Por.Dante Amor Set h1 = Sheets("origen") Set h2 = Sheets("destino") j = 2 For i = 5 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("D").Find(h1.Cells(i, "A"),...

H o l a: Lo que necesitas es que se ordene por la columna A, ¿sin importar las filas vacías que existan? Prueba con la siguiente macro y me comentas si es lo que necesitas: Sub Ordenar() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row With...

H o l a: Te anexo la macro, se me pasó comentarte, en esta parte de la macro, tienes que poner la ruta donde se encuentra el archivo "respaldos.xlsx": ruta = "C:\trabajo\" También puedes ver en la macro, dentro de una array( ), las celdas origen, a...

H o l a: Te anexo la macro actualizada Sub CopiarCeldas() 'Por.Dante Amor cs1 = Array("A3", "A5", "A4", "A1") 'celdas origen cs2 = Array("E", "L", "M", "N") 'columnas destino lib = "respaldos.xlsx" 'libro destino hoja = "Hoja1" 'hoja destino '...

H o l a: Si no quieres utilizar el offset, te anexo la siguiente alternativa para utilizar Cells: Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Target.Count > 1000 Then Exit Sub If Target.Column <> 1 Then Exit Sub ' Set h...

H o l a: Te anexo la macro para pasar uno a uno los números de la hoja2 a la hoja1. Dices que pones un número en la hoja1, en la celda F3 y se ejecuta una macro, ¿pero esta ejecución es en automático?, si es así entonces utiliza esta macro: Cambia en...

H o l a: Te anexo la macro, el libro destino deberá estar en la misma carpeta donde tienes el libro con la macro. También tendrás que escribir en la macro los siguientes datos c1 = "B3" 'celda 1 c2 = "D4" 'celda 2 c3 = "A9" 'celda 3 c4 = "C5" 'celda...

H o l a: Te anexo la macro, los resultados quedarán en las columnas de la E a la L Sub Diferencias() 'Por.Dante Amor u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row If u < 3 Then u = 3 Range("E3:L" & u).ClearContents ' cd = 3...

H o l a: Podrías enviarme una archivo y me explicas cada una de las búsquedas que se deben realizar y si la encuentra qué debe hacer y si no la encuentra qué debe hacer. Envíame los ejemplos y explicaciones, puedes utilizar colores, comentario o...

H o l a: Puedes poner un ejemplo completo, qué dato se va a buscar, en cuál columna lo va a buscar, si lo encuentra qué debe hacer, si no lo encuentra qué debe hacer.