DiegoLG

Esa columna de serie, se mantiene en la misma columna?
Por que no subes un archivo donde tenga esa columna y pega de forma manual como necesitas la información en la hoja W.
Y si te puedo ayudar, con gusto vale;   y si no, pues habrá alguien mas.
Saludos amigo.

Revisando tu archivo, y haciendo comparación de las dos hojas, trae los mismos encabezados, no veo en que columna se encuentra lo que comentas (SERIE) ¿?.
Pero te propongo algo, y si creas una hoja temporal, eliminas la columna que no te sirve y posteriormente pasar a la hoja W.
Saludos cordiales,
Diego.

@jeaa con F8, puedes identificar el error.
Saludos,

Estimado @96andres96, en resumen, lo que quieres es tener un menú donde te vaya mostrando las nuevas hojas:
algo así se me ocurre:
Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select End Sub Private Sub UserForm_Initialize() fil = 1 For s = 1 To Sheets.Count If Sheets(s).Name <> "Menu" Then Hoja1.Range("A" & fil) = Sheets(s).Name fil = fil + 1 End If Next uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To uf ComboBox1.AddItem Hoja1.Range("A" & i) Next Columns(1).Clear End Sub te adjunto el ejemplo y adaptalo en tu proyecto,
 
Saludos,
Libro1.xlsm

Checa el archivo
 
Saludos,
Copia de PonerContraseñaBoton.xlsm

Checa el archivo
 
Saludos,
Copia de PonerContraseñaBoton.xlsm

Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema.
Saludos,

@diegolg, sobre la cinta de opciones existe documentación incluso cursos completos en Youtube. Yo estoy buscando (todavía sin éxito), referencias para modificar el backstage.

Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema.
Saludos,

Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente,
gracias a todos por el tiempo que me brindaron.
Saludos,
Tema solucionado.

¡Hola a todos!
Revisa el adjunto.  ¡Bendiciones!
Libro1 (7).xlsx

Muchas gracias por la respuesta, una disculpa, desde el sábado no he podido checar el mensaje, mas tarde valido, y les cuento,
Saludos y excelente día.

hola Diego (y Luis Caballero)
adjunto otra posible solución
Saludos,
Silvia
 
sq.xlsx

Hola, mira si esto te sirve
Libro1.xlsx

Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx

Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx

Checa el archivo,
=SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos,
Diego.
Copia de Prueba.xlsx

No analizaste lo que hace el código verdad?
Solo es cambiar la columna:
Hoja3.Activate Range([H1], [H1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Checa nuevamente el archivo,
Saludos,
 
Diego.
Copia de PRUEBA pRUEBA.xlsm

De este código:
Reemplaza con este:
Hoja3.Activate Range([a1], [a1].End(xlDown)).AdvancedFilter xlFilterCopy, , [J1], True: TextBox1 = WorksheetFunction.Subtotal(103, Columns("J")) - 1: Columns("J").Clear Hoja1.Activate Saludos,
 
Diego...
Copia de PRUEBA pRUEBA.xlsm

Utiliza formato condicional.
Saludos,
 
Diego.

Checa el archivo:
Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub  
Copia de Consulta copiado.xlsm

Checa el archivo:
Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub  
Copia de Consulta copiado.xlsm

Te dejo otra propuesta,
Sub FILTRAR() Application.ScreenUpdating = False Hoja1.Range("C1:C500").AutoFilter Field:=1, Criteria1:=Hoja2.Range("B2") Hoja2.Range("C1:F500").Clear: Hoja1.Range("C1:F500").Copy Destination:=Hoja2.Cells(1, 3) If Hoja2.Range("C2") = "" Then Hoja2.Range("C1:F500").Clear: MsgBox "DATO NO ENCONTRADO", vbCritical For Each Hoja In Sheets If Hoja.AutoFilterMode Then Hoja.AutoFilterMode = 0 Next End Sub Saludos Cordiales
Copia de FILTRO.xlsm

Prueba esta macro:
Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub  

Te paso un ejemplo,
Espero haberte ayudado,
y si no es lo que estas buscando, sería interesante que adjuntes tu archivo.
Diego.
Libro4.xlsm