none
Erro em tempo de execução 13 tipos incompatíveis RRS feed

  • Pergunta

  • Bom dia!

    Gostaria da ajuda dos amigos para resolver um problema em uma macro.

    Quando chega em determina parte da execução a macro da a mensagem de erro de execução 13 tipos incompatíveis.

    Abaixo segue a parte onde acontece o erro, se puderem ajudar, desde já agradeço a ajuda, obrigado!

    Range("A2").Select
        Selection.End(xlToRight).Select
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=CELL(""col"",RC[0])"
        ncoluna = ActiveCell.Value
        Scoluna = Trim(Mid(Scolunas, (ncoluna * 2 - 1), 2))
        Scoluna2 = Trim(Mid(Scolunas, ((ncoluna + 1) * 2 - 1), 2))
        Scoluna1 = Scoluna + ":" + Scoluna2
        Columns(Scoluna1).Select
        Selection.Delete Shift:=xlToLeft



    segunda-feira, 11 de novembro de 2019 14:50