Error en Userform "Error en el método Paste de la clase Worksheet"

Tengo el siguiente código, que lo que hace es que al cambiar un cuadro combinado selecciona un rango, lo filtra según el valor del cuadro, y el resultado del filtro lo copia y lo pega al lado de la tabla, sin embargo me arroja un error 1004 en tiempo de ejecución, "Error en el método Paste de la clase Worksheet", he intentado de todas las formas pero no puedo corregirlo, les agradecería si alguien sabe como depurar este error:

Private Sub Eq1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Proveedores Equipos").Select

Dim Búsqueda As Variant
Búsqueda = Eq1.Text

Range("B5:J95").Select
Selection.AutoFilter
ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2, Criteria1:=Búsqueda
Range("B5:J100").Activate
Selection.Copy
ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2
Sheets("Proveedores Equipos").Select
Range("N3").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

1 Respuesta

Respuesta
3

Después de esta línea

Selection. Copy

Tienes esta línea

ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2

Lo que haces es quitar el filtro y te limpia la memoria, es decir, ya no tienes nada en "copy", cuando intentas pegar ya no puedes porque ya no hay nada en memoria.

Pasa esa línea al final de tu macro.

Te debe quedar así

Private Sub Eq1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Proveedores Equipos").Select
Dim Búsqueda As Variant
Busqueda = "a"
Range("B5:J95").Select
Selection.AutoFilter
ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2, Criteria1:=Busqueda
Range("B5:J100").Activate
Selection.Copy
Sheets("Proveedores Equipos").Select
Range("N3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2
End Sub

Saludos.DAM
No olvides finalizar la pregunta.

Mil y Mil gracias...

Visita:

Cursos de Excel y Macros

Por Dante Amor

------ --

Recomendaciones:

 https://youtu.be/PupmVvM16-8 

https://youtu.be/HfFCtMl189U 

----- --

 https://youtu.be/4klJVh_Ob0M 

Sal u dos Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo crear una tabla resumen clasificada de acuerdo a valor de una celda?

Tengo un archivo de excel conformado por varias hojas, en cada una de las hojas un resumen de gastos mensual que esta ordenado por fecha y esta compuesto de varios datos En la primera columna esta un código de clasificación (importante) y en las...
1 respuesta

Macro buscar copiar y pegar

Basándome en una macro realizada por ti para otra respuesta, la he adaptado a mi hoja y me funciona, pero necesitaría varias cosas: 1º que me aclararas algunas lineas (las pongo en negrita y cursiva) 2º necesito que al principio me quite los filtros...
1 respuesta

Suma de varias columnas a ser agregadas con código

Tengo este código que va copiando y pegando datos en donde exista la hoja.. Sub MACOR2() Dim respuesta As Variant respuesta = MsgBox("¿Seguro de su factura?", vbYesNo + vbQuestion, "AVISO") If respuesta = vbYes ThenSheets("Hoja1").Select On Error...
1 respuesta

Macro para filtrar con dos columnas

Tengo una macro para hacer un filtro en dos columnas, una en la que le doy el valor de filtrado por un textbox, y en la otra, por dos textbox con dos fechas (inicio y fin). Algo estoy haciendo mal por que no me funciona. La fecha la tengo en la...
1 respuesta

Pasar datos dependientes de dos criterios

Del foro, quisiera que me ayudaran con lo siguiente: En la hoja3 Tengo una base de datos que contiene 2,000 alumnos con sus datos desde la columna A hasta la columna V y quisiera que me pasara todos los datos a las siguientes hojas, Primero-A,...
1 respuesta

Macro Excel filtrar copiar y pegar

Me gustaría pudiera facilitarme una macro que filtre en la hoja1 celda C3, el texto de la celda F6 de la hoja 2, que copie las filas que contengan ese valor y las pegue en la hoja 2 desde la fila 12.
1 respuesta

Se ha producido el error 91 en tiempo de ejecución

Tengo un problema con esta macro ya que si me funciona en el archivo que la grabe depurador.xls, pero cuando la quiero utilizar en otros libros como complemento depurador.xla no me funciona Sub buscarbital() ' ' buscarbital Macro ' Macro grabada el...
4 respuestas

Crear hojas y pegar filas

Ante todo decir que, esta es mi primera pregunta en todo expertos, y advertir que no se nada de programación, esta es mi primera incursión en el mundo de las macros. Bueno, el caso es el siguiente, a diario recibo archivos de exel parecidos a este,...
1 respuesta

Modificar "Field" con textbox de un filtro

Tengo un problema que no puedo solucionar, no puedo cambiar el Field de un filtro de Excel con una textbox en un userform, aquí les envío la macro: Sub Filtro() Dim r As Boolean Application.ScreenUpdating = False Hoja2.Activate r = TextBox3...
1 respuesta

Hola expertos como coger datos de un listbox y realizar autofiltro en excel con macros.

Necesito una ayudita estoy haciendo formulario que me permita hacer filtros, cuento con dos combo1, combo2, txt1, txt2 y un botón Este es el código que utilizo: Application.ScreenUpdating = False Workbooks.Open Filename:="D:\DATA\data.xlsx"...
1 respuesta