Saltar al contenido

PROBLEMAS EN EXTRAER DATOS UNICOS DE OTRO LIBRO

publicado

BUENAS TARDESA TODOSY OJALA ME PUEDAN AYUDAR, TENGO ESTA MACRO QUE ME LA FACILITARON OJO NO ES DE MI AUTORIA MUCHO NIVEL PARA PODER HACERLO YO:

Sub Copia_recetas()
    Dim Rng$, x#
    Dim rept        As Range
    Dim celda
    With Sheets("BD_Recetas")
       Rng = .Range("D1")
       Range("C9:C48").ClearContents
       x = 9
       For Each celda In Sheets("Proy.-Comer").Range(Rng)
       If celda <> "" Then
                Set rept = .Range("C9:C48").Find(celda, , , xlWhole)
                If rept Is Nothing Then _
                   .Cells(x, "C") = celda: x = x + 1
                End If
        Next
    End With
    Sheets("BD_Recetas").Range("C9:C48").Select
    Selection.AutoFilter
    Sheets("BD_Recetas").Range("C9:C48").Sort Key1:=Range("C9:C48"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Sheets("BD_Recetas").Range("C9:C48").Select
    Selection.AutoFilter
    Range("F1").Select
End Sub

 

Y ES QUE QUIERO EXTRAER DATOS UNICOS DE UN RANGO QUE SE ENCUENTRA EN OTRO LIBRO ("01 PCP COMERCIAL") Y DE LA HOJA ("Proy.-Comer") 

EL ERROR QUE ME SALTA EN LA LINEA DE ROJO ES "ERROR 9 EN TIEMPO DE EJECUCIÓN" SUBINDICE FUERA DEL INTERVALO.

Featured Replies

publicado

amigo @darkstars9976de verdad que es complicado ayudarte asi, y si dices que tu nivel no te ayuda, pues mas aún.

si quieres recibir ayuda, sube una muestra de ambos archivos y explicando que es lo que deseas hacer,  para ver si te ayudamos, suerte

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.