Página 1 de 1

Erro 9 subscrito fora do intervalo

Enviado: 12 Mai 2020 às 23:23
por estyfodense
Sub nome()

For i = 1 To sheets.count
Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name

next

End Sub

quando eu uso esse condigo da esse erro do titulo eu coloquei a Sheets(i + 3). para poder contar a partir da terceira aba.

Sub nome()

For i = 1 To 4
Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name

next

End Sub

quando eu defino valor quatro ele para de dar erro porem se eu tiver uma quantidades e abas maior ele nao vai contar, alguem tem uma ideia

Re: Erro 9 subscrito fora do intervalo

Enviado: 13 Mai 2020 às 08:20
por babdallas
Código: Selecionar todos
Sub nome()

For i = 1 To sheets.count
           If i < =sheets.count - 3 then   Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name
next

Re: Erro 9 subscrito fora do intervalo

Enviado: 13 Mai 2020 às 14:54
por estyfodense
Funcionou PERFEITAMENTE, so nao entendi como