Excel Curitiba

Quantas vezes procuramos um filme para baixar, e os sites de download trazem links invertidos para tentar fazer com que cadastremos o celular para daí poder revelar o link de download, sendo assim os sites de downloads de filmes me induziram a inserir este post. Funciona mais ou menos assim: Você cria uma planilha e insere um código de macro para inverter a sequência de caracteres e assim poder mais facilmente baixar o conteúdo que deseja. No código exemplo citado você deve copiar o link que os sites de download disponibilizam na célula C5 e o texto invertido aparecerá na célula abaixo. sub inverte() a = Cells(5, 3).Value ' armazena o texto invertido que o site disponibiliza b = Len(a) 'conta os caracteres da célula - número de letras ou números g = 1 'temporário For c = b To 1 Step -1 e = Right(a, 1) f = f & e a = Left(a, (b - g)) g = g + 1 Next Cells(6, 3).Value = f ' mostra o texto na sequencia normal na célula C6 end sub