Macro copiar datos únicos a otro hoja
Necesito una macro que me copie solo valores únicos a otra hoja. Adjunto el código que generé, pero me pega los valores a partir de la celda C8, cuando debería de pegar siempre a partir de la celda C7.
Private Sub CommandButton3_Click() 'Borrar datos A7:E26 en Hoja "PACKING" Sheets("PACKING").Select Range("A7:E26").Select Selection.ClearContents 'Copiar Columna E de Hoja "REPORT" a partir de Fila 2 Sheets("Report").Select Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy 'Pegar en Hoja "PACKING" a partir de C7 Sheets("PACKING").Select Range("$C$7").Select Selection.PasteSpecial Paste:=xlPasteValues 'Quitar duplicados en rango copiado ActiveSheet.Range("$C$7:$C$" & Range("C" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo 'Copiar formato de celda de Fila 7 a Filas 8:26 Rows("7:7").Select Selection.Copy Rows("7:26").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("B7").Select End Sub
2 Respuestas
Respuesta de Dante Amor
3
Respuesta de James Bond
3