none
VBA - Como corrigir Subscrito fora do Intervalo ? RRS feed

  • Pergunta

  • Olá, estou de volta com uma mensagem de erro .
    Gostaria de uma orientação para resolver o problema.

    Esse erro ocorre na Versão 2007 do Excel.

    01 - Escrevendo o cabeçalho da Planilha


    02 - Código

    Sub Criar_Planilha()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
        Set str_Wb = Workbooks.Add
            
        With str_Wb
           .Sheets("Planilha1").Cells(1, 1).Value = "Carteira"
           .Sheets("Planilha1").Cells(1, 2).Value = "Cpf"
           .Sheets("Planilha1").Cells(1, 3).Value = "Contrato"
           .Sheets("Planilha1").Cells(1, 4).Value = "Numero Acordo"
           .Sheets("Planilha1").Cells(1, 5).Value = "Situacao Contrato"
           .Sheets("Planilha1").Cells(1, 6).Value = "Segmentação"
           .SaveAs str_Destino
           .Close
        End With
    Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

    Agradeço antecipadamente a quem puder me orientar.


    JoseBonfim


    • Editado JoseBonfim quinta-feira, 2 de janeiro de 2020 10:36
    quinta-feira, 2 de janeiro de 2020 10:35

Todas as Respostas

  • Tenta assim:

    Sub Criar_Planilha()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
        Set str_Wb = Workbooks.Add
            
        With str_Wb
           .Sheets(1).Cells(1, 1).Value = "Carteira"
           .Sheets(1).Cells(1, 2).Value = "Cpf"
           .Sheets(1).Cells(1, 3).Value = "Contrato"
           .Sheets(1).Cells(1, 4).Value = "Numero Acordo"
           .Sheets(1).Cells(1, 5).Value = "Situacao Contrato"
           .Sheets(1).Cells(1, 6).Value = "Segmentação"
           .SaveAs str_Destino
           .Close
        End With
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub


    Natan

    quinta-feira, 2 de janeiro de 2020 11:40