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
