Bom dia!
O meu gerente está fazendo um programa em VBA, ele criou uma interface que acessa uma planilha na rede, copia os registros e cola as informações em uma outra planilha que servirá de relatório.
Esta planilha da rede também acessa um banco de dados SQL Server e é atualizada automaticamente sempre que é aberta, tanto que para o código funcionar tivemos que colocar um reflashall no código no momento que ele acessa a planilha para copiar as linhas.
Ele funciona perfeitamente se for debugado, mas quando manda executar direto ele traz as informações da primeira planilha antes de ela ser atualizada.
Resumindo o problema: Quando eu debugo o programa ele funciona, se mando executar ele traz menos linhas que deveria, ou seja, aparentemente o reflash do código não funciona.
Isso ta parecendo bug do Windows
Ambiente: Windows 8.1 e Office 2016
[code=vb]Sub AbrirArquivo()
Dim diretorio As String
Dim arquivo As String
Dim ultLinha As Integer
VOLTA:
Application.DisplayAlerts = False
diretorio = "\\Servidor\XXX\YYYYYY\Controle de Estoque - Planilha Automática\"
arquivo = "Estoque Materiais Elétricos.xlsx"
Sheets("DADOS2").Select
Cells.Select
Selection.Delete
'Workbooks.Open Filename:=diretorio & arquivo
Workbooks.Open Filename:= _
"\\Servidor\XXX\YYYYYY\Controle de Estoque - Planilha Automática\Estoque Materiais Elétricos.xlsx"
ActiveWorkbook.RefreshAll 'Atualiza a Planilha antes de copiar
Range("A2
2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("Solicitação de Saída de Estoque_v3 - Netsu.xlsm").Activate
Sheets("DADOS2").Select
ActiveSheet.Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Workbooks(arquivo).Activate
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True 'Habilita o alerta
'Application.ScreenUpdating = True
'If Sheets("DADOS2").Range("a1048576").End(xlUp).Row < 700 Then
'GoTo VOLTA
'End If
[/code]