Este VBA para Excel lê o conteúdo das células na coluna A e coloca em B o seu conteúdo normalizado (tira o ” ” e substitui por “-”), assim como o prefixo do URL e o sufixo .html.
Lê as colunas A até estas serem nulas e pára.
Sub Chad()
Dim iRow As Long
For iRow = 1 To 1000
If Cells(iRow, “A”) = “” Then Exit For
Cells(iRow, “B”) = “http://www.blabla.pt/search/” & Replace(Cells(iRow, “A”), ” “, “-”) & “.html”
Next iRow
End Sub
Gostar disto:
Be the first to like this .
Sobre Clavis Prophetarum
Interesses:
Ficção Científica
História
Romance Histórico
Informática
Paleolínguistica
Escrita Cónia
Política Nacional e Internacional
(mais demasiadas coisas, tendo todas em comum o escasso conhecimento de cada)
Filmes Favoritos:
Dune
Alien 2
Conan
Solaris (Tarkowski)
Senhor dos Anéis
Fahrenheit 9/11
o Pianista
Matrix
K19
Minority Report
As Asas do Desejo
Magnolia
Beleza Americana
Música Favorita:
Dead Can Dance
Rammstein
Sting
Enya
David Sylvian
Vangelis
Gabriel o Pensador
Jocelyn Pook
Livros Favoritos:
Dune (série)
Senhor dos Anéis
Neuromante
Pátria
O Pêndulo de Foucault
O Erro de Descartes
Fundação (série)
Leão o Africano
O Quarteto de Alexandria
Séries de Televisão Favoritas:
Lost
Space 1999
Black Adder
Mr. Bean
Conan, o Rapaz do Futuro
Lexx
Monty Pyton
Seinfeld
Politicamente:
Quintano: seguindo de perto o pensamento político, pedagógico de Agostinho da Silva
Filosoficamente:
Caminhando pelas bandas do "Utilitarismo" de John Stuart Mill e, sobretudo, da sua interpretação moderna de Peter Singer ("A Ética Prática")
Economicamente:
Regresso aos modelos regionais e municipalistas da Idade Média portuguesa actualizados segundo a aplicação prática do pensamento de E. F. Schumacher ("Small is Beautiful")
Religiosamente:
Budista, segundo a Escola Mahayana Ning Mapa
Labutando em:
Administração de Sistemas
Na tradução da Escrita Sudlusitânica (Cónia)
No MIL: Movimento Internacional Lusófono (www.movimentolusofono.org)
Neste blogue…
Esta entrada foi publicada em
CodeFarmPt,
Informática com as tags
Excel,
VBA.
ligação permanente.
