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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.