Hola tengo 2 archivos pero al tratar de correr la macro como complemento me da error 424.
este es el código, el error esta en esta linea STOCK.AutoFilterMode Then, me sale error 424 no encuentra el objeto por que según no encuentra el STOCK que es una hoja del archivo que abrió. por su ayuda gracias
Dim FILE As String
FILE = ThisWorkbook.Path & "\" & "STOCK.xlsb"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(FILE) Then
Workbooks.Open Filename:=FILE
Else
MsgBox "El archivo " & FILE & " no existe.", vbCritical, "ARCHIVO INEXISTENTE"
Exit Sub
End If
If STOCK.AutoFilterMode Then
STOCK.AutoFilterMode = False
Else
End If
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola tengo 2 archivos pero al tratar de correr la macro como complemento me da error 424.
este es el código, el error esta en esta linea STOCK.AutoFilterMode Then, me sale error 424 no encuentra el objeto por que según no encuentra el STOCK que es una hoja del archivo que abrió. por su ayuda gracias
Dim FILE As String FILE = ThisWorkbook.Path & "\" & "STOCK.xlsb" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(FILE) Then Workbooks.Open Filename:=FILE Else MsgBox "El archivo " & FILE & " no existe.", vbCritical, "ARCHIVO INEXISTENTE" Exit Sub End If If STOCK.AutoFilterMode Then STOCK.AutoFilterMode = False Else End If