Melhor disponibilizar a planilha com o codigo completo.

Fiz novos teste, e o problema está na aba que fica oculta. Então, preciso saber como reexibir a aba enquanto a MACRO roda e ocultar ela novamente no fim da execução da MACRO.

Kaleo

Essa parte do código que faz reexibir a planilha " Desenv", basta aplicar um código igual, trocando o nome da planilha, sendo que o Caal executa a macro que desprotege a planilha.

Sheets("Desenv").Visible = True
Sheets("Desenv").Select
Call Desproteger

[]s

Patropi!

Infelizmente não funciona, como estou a planilha FEVEREIRO aberta estes comandos atuam sobre ela e não na planilha que quero abrir que é a JANEIRO.

Segue em anexo as planilhas...

O arquivo JANEIRO esta com a planilha DESENVE oculta. Abram o arquivo FEVEREIRO e na planilha FLUXO na célula A1 criei o botão que executa a MACRO.

Quando a planilha DESENV no arquivo JANEIRO não está oculta a MACRO funciona perfeitamente, mas quando ela está oculta da o erro.

O erro esta nesta linha qdo vc carrega a variavel xlw nesta linha

Set xlw = xl.Workbooks.Open(ThisWorkbook.Path & "2016 - JANEIRO.xlsm")

sua referencia é a planilha janeiro, e assim ela causa o erro qdo vc tenta selecionar a planilha ela causa erro.

Sendo assim troque a linha acima por esta

Set xlw = xl.Workbooks.Open(ThisWorkbook.Path & "2016 - FEVEREIRO.xlsm")

Seu codigo completo fica assim

Sub teste()
'
    Dim xl  As New Excel.Application
    Dim xlw As Excel.Workbook
'
    Sheets("Desenv").Visible = True
    Sheets("Desenv").Select
    Call Desproteger
'
    Range("H3:M6000").Select
    Selection.ClearContents
    Range("H2").Select
'
    xLin_aux = 2
'
    xLin = 2
    xCol = 1
'
    Data_Ini = Sheets("Balanço").Cells(3, 1).Value
'
    Set xlw = xl.Workbooks.Open(ThisWorkbook.Path & "2016 - FEVEREIRO.xlsm")
'    ThisWorkbook.Sheets("Desenv").Unprotect "v"
'    ThisWorkbook.Sheets("Desenv").Visible = xlSheetVisible
'
   
    xlw.Sheets("Desenv").Select
'
    Do While xLin < 6001
        
        xLin = xLin + 1
        Data_Cel = xlw.Application.Cells(xLin, xCol).Value
        xTipo_Operacao = xlw.Application.Cells(xLin, xCol + 1).Value
        xValor = xlw.Application.Cells(xLin, xCol + 2).Value
        xBandeira = xlw.Application.Cells(xLin, xCol + 3).Value
        xParcela = xlw.Application.Cells(xLin, xCol + 4).Value
'
        Cells(xLin_aux, 1).Select
'
        If xTipo_Operacao <> Empty Then
           If Data_Cel >= Data_Ini Then
               xLin_aux = xLin_aux + 1
               Cells(xLin_aux, xCol + 7).Value = Data_Cel
               Cells(xLin_aux, xCol + 8).Value = xTipo_Operacao
               Cells(xLin_aux, xCol + 9).Value = xValor
               Cells(xLin_aux, xCol + 10).Value = xBandeira
               Cells(xLin_aux, xCol + 11).Value = xParcela
            End If
        Else
            xLin = 6001
        End If
    Loop
'
    xlw.Close False
    Set xlw = Nothing
    Set xl = Nothing
'
    Call Proteger
    Sheets("FLUXO").Select
    Range("B1").Select
    Range("A2").Select
    Sheets("Desenv").Visible = False
'
End Sub

.....

Marcelo Prudencio...

O arquivo FEVEREIRO na planilha DESENV a partir das células H tem que ser alimentado através do arquivo JANEIRO também da planilha DESENVE mas a partir da célula A.

Se eu trocar por FEVEREIRO a MACRO vai ler o próprio arquivo e não o arquivo JANEIRO.

Neste caso a planilha desenv de janeiro deve ser exibida novamente

Pode fazer Assim

xlw.Sheets("Desenv").visible = true
    xlw.Sheets("Desenv").Select

E depois que terminar a leitura ( nao analisei isso no codigo)

Coloca essa instrução

xlw.Sheets("Desenv").visible = False

Marcelo Prudencio.

Muito obrigado funcionou.

kaleo

Você ja postou várias dúvidas e nunca agradeceu ninguém clicando na mãozinha e não clicou no V (vezinho verde) da resposta que atendeu, para marcar o tópico como resolvido.

Favor clicar no link abaixo pra tomar conhecimento.

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador