Selecionar e inserir dados em todas as abas da planilha
Enviado: 01 Set 2017 às 16:15
Boa tarde, estou criando um projeto usando VBA e apareceu (ERRO '9') no meu projeto. A cadeia de comando é essa:
For i = 4 To Sheets.Count
Worksheets(i).Select
totalregistros = Worksheets(i).UsedRange.Rows.Count + 1
Cells(totalregistros, 1) = Abrir_Mes
Next
tem a intensão de selecionar todas as abas da planilha e após o ultimo registro encontrado em cada planilha escrever o que estiver na caixa de texto Abrir_Mes. O código até funciona e faz o programado, mas após escrever na ultima aba ele retorna erro '9' e pede para depurar. Ao realizar o debug ele para na terceira linha. Sei que provavelmente é algo banal, mas não consegui encontrar onde errei, já que o comando é executado e só depois reporta erro. Desde já agradeço a atenção
For i = 4 To Sheets.Count
Worksheets(i).Select
totalregistros = Worksheets(i).UsedRange.Rows.Count + 1
Cells(totalregistros, 1) = Abrir_Mes
Next
tem a intensão de selecionar todas as abas da planilha e após o ultimo registro encontrado em cada planilha escrever o que estiver na caixa de texto Abrir_Mes. O código até funciona e faz o programado, mas após escrever na ultima aba ele retorna erro '9' e pede para depurar. Ao realizar o debug ele para na terceira linha. Sei que provavelmente é algo banal, mas não consegui encontrar onde errei, já que o comando é executado e só depois reporta erro. Desde já agradeço a atenção