Hola Cacho,
Por esos caprichos de Windows tuve que reiniciar mi computador y cuando fui a probar nuevamente ya funcionó sin problemas (con los ajustes necesarios para el "formato" de la tabla de datos que voy a manejar).
Ahora tengo otra duda. Inicialmente la idea era pegar esos valores en otra hoja del mismo libro, pero ahora hubo un cambio y necesito hacerlo en otro libro. Intenté modificar el código así:
Código:
Sub BuscarTop5()
Windows("Archivo Datos.xlsx").Activate
Sheets("Sheet1").Select
ActiveSheet.AutoFilterMode = False
With Range([b6], [d65536].End(xlUp))
Union([b5:d5], .Cells).AutoFilter Field:=3, Criteria1:="5", Operator:=xlTop10Items
.SpecialCells(xlCellTypeVisible).Copy Windows("Informacion Presentacion.xlsm").Worksheets("Sheet1").[A1]
End With
ActiveSheet.AutoFilterMode = False
End Sub
Pero me dice que
Cita: Runtime error 438: Object doesn't support this property o method.
¿Cuál sería la forma adecuada de pegar los valores en el otro libro? Bueno, me refiero a una forma corta de hacerlo en lugar de
Código:
Windows(archivoReporte).Activate
Sheets("Top5").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Una vez más, muchas gracias por tu valiosa ayuda.
Saludos,
Andrés