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.

2 Respuestas

Respuesta
1

Dante Cómo puedo implementarlo en último código.

Respuesta
1

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

Curso de excel. Hipervinculo excel. Ir en automático a otra hoja y seleccionar la celda deseada. - 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 Sub

Sobre Dictionary:

Excel vba dictionary parte 1 - YouTube

Excel vba dictionary parte 2 - YouTube

Excel vba dictionary parte 3 - YouTube

---

Sal u dos Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas