Jump to content


  • Posts

    • Muchísimas gracias por ayudarme y por tu tiempo. Si se añadiese directamente en vez tener que dar a elegir sería genial (un paso menos), con respecto a los combos ordenados no se a que te refieres.  Disculpa las horas pero trabajo y estudio y no me da la vida. Gracias de nuevo
    • 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.
    • Muchisimas gracias ikanni, espero aprender poco a poco y no volver a molestarte. Muchas gracias de verdad por tu tiempo.
    • Sube tu archivo y te preparo algo.  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy