Jump to content

PROBLEMAS EN EXTRAER DATOS UNICOS DE OTRO LIBRO


Recommended Posts

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.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy