Copiar filas que no estén duplicado
Tengo un libro con Hoja Resumen y varias hojas. Quiero que me compare la columna D de la hoja Resumen con la columna D del resto de hojas, si el dato de la columna D no existe en la columna D de la hoja Resumen que me copié la fila entera en la última fila de la hoja resumen.
Dante Cómo puedo implementarlo en último código.
1 respuesta más de otro experto
Visita:
Cursos de Excel y Macros - YouTube
---
Cursos de Excel:
Curso de excel. Formato condicional dinamico - YouTube
Curso de excel. Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Cursos de Macros:
Curso de macros. Consejos para empezar a programar. - YouTube
Excel vba dictionary parte 1 - YouTube
Curso de macros. Metodo find ejemplos. - YouTube
---
Prueba:
Sub compara_columna_D()
'Por Dante Amor
Dim sh1 As Worksheet, sh As Worksheet
Dim dic As Object
Dim c As Range
Dim lr As Long
'
Application.ScreenUpdating = False
'
Set sh1 = Sheets("Resumen")
Set dic = CreateObject("Scripting.Dictionary")
lr = sh1.Range("D" & Rows.Count).End(3).Row
For Each c In sh1.Range("D1:D" & lr)
If c.Value <> "" Then dic(c.Value) = Empty
Next
'
For Each sh In Sheets
If sh.Name <> sh1.Name Then
For Each c In sh.Range("D1", sh.Range("D" & Rows.Count).End(3))
If c.Value <> "" Then
If Not dic.exists(c.Value) Then
dic(c.Value) = Empty
lr = lr + 1
sh.Rows(c.Row).Copy sh1.Rows(lr)
End If
End If
Next
End If
Next
Application.ScreenUpdating = True
MsgBox "Registros copiados", vbInformation, "Cursos de Excel y Macros. Por Dante Amor"
End SubSobre Dictionary:
Excel vba dictionary parte 1 - YouTube
Excel vba dictionary parte 2 - YouTube
Excel vba dictionary parte 3 - YouTube
---
Sal u dos Dante Amor