All posts by Mauro Coutinho

VBA – Usando o Google Maps em Userform

Conforme a sugestão do Thiago Pereira no Tópico viewtopic.php?f=5&t=676&start=10

Resolvi fazer uma adaptação para que se possa utilizar o controle WebBrowser em um Userform e pesquisar por endereços com o GoogleMaps adaptando as rotinas e dicas no site abaixo.

Usando o Google Maps na sua aplicação

http://www.macoratti.net/vbn5_ugm.htm

É um exemplo básico, podendo ser incrementado com outras opções, alias em VBA a imaginação não tem limites.

Então fiquem a vontade para realizar suas adaptações e qualquer duvida ou bug que encontrarem, favor posta-la no Forum Geral.

Abraços

Planilha para download

WebBrowse_Mauro.rar
Usando o Google Maps em Userform

Modelo – Log com as Alterações nas Planilhas

Mais uma ótima colaboração do nosso fórum.

Este Modelo foi criado pelo Daniel Petralanda Santos da Petrobras em 2002.

Fiz algumas adaptações sómente no layout para explicar melhor o uso.

O que ele faz :

Toda vez que abrimos o Aplicativo é Criado um arquivo de LOG com extensão TXT no diretório aonde se encontra a planilha, e toda alteração é gravado nele encriptada, se abrirem o TXT criado verão que é ilegivel.

Altere qualquer celula em qualquer planilha e depois clique em EXIBIR LOG e selecione o Log, e verá as modificações que foram feitas nas planilhas, em que dia, horario e qual foi a alteração, ou seja qual o valor que era antes e para qual foi alterado.

Se quiser acrescentar mais planilhas tem de copiar o código para essas, clique com o botão direito na planilha escolha exibir código, copie e cole nas plan que acrescentar.

É bem interessante, vale uma ressalva quanto ao arquivo texto criado, o ideal seria alterar na rotina para que o mesmo seja criado em um outro diretorio para evitar que se deletem o mesmo.

Vale a pena baixar e testar.

Download da Planilha

LogAlteracao.rar

Discussões sobre esta planilha estão sendo feitas também no nosso fórum:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&t=769&start=0

VBA – Criando uma cópia somente dados de uma planilha no Excel para uma Nova Pasta

Mais uma solicitação do nosso fórum.

Solicitaram uma nova macro, para criar uma cópia dos dados da planilha (Worksheet) em uma nova, só que para uma nova PASTA, somente os dados, sem fórmulas, mantendo a formatação e que a nova PASTA fosse Salva com um Nome que está em uma CELULA da Planilha a ser copiada. Então, com algumas modificações na rotina postada anteriormente obtivemos a rotina a seguir:

“É nesse caso que as macros ajudam.”

Sub NovaPastaSemFormulas()
Dim CurrentSheet As Worksheet

Application.ScreenUpdating = False

        'Nome na Planilha Ativa em B2
        nomeB2 = CStr(ActiveSheet.Range("B2").Value)

        Set CurrentSheet = ActiveSheet

        On Error Resume Next

        'copia todas as células da planilha ativa
        CurrentSheet.Cells.Copy

        'Cria a Nova PASTA (ARQUIVO)
        Set Wkb = Workbooks.Add

        'cola somente os valores na planilha Ativa da nova Pasta,
        'sem formulas e mantenndo a formatação
        With ActiveSheet.Range("A1")
          .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          .PasteSpecial Paste:=xlFormats
        End With        

        Application.CutCopyMode = False

        'Define os Novos Nomes - Planilha(ABA) e Pasta(Arquivo)
        novoNome = nomeB2

        'Renomeia a planilha nova com
        'o Nome que estava em B2
        With ActiveSheet
            .Name = novoNome
            .Range("A1").Select
        End With

        Range("A1").Select

        'Enibe a mensagem se a pasta já existir
        'Com essa instrução a Pasta será substiutida sem questionamento
        Application.DisplayAlerts = False

        'Salva a Nova Pasta no Diretorio abaixo com o mesmo Nome
        'Alterem o mesmo conforme o endereço que querem
        Wkb.SaveAs Filename:="E:\FORUN\TOMAZ\" & novoNome & ".xls"
End Sub

Isso é Excel + VBA.
Simples, rápido, eficaz.
Bom proveito!

Até onde ir com o Microsoft Office 2

Tomas, muito pertinente suas matérias em relação ao “Porque sentiremos falta do VBA….” e “Até onde ir com o Microsoft Office”.

Publicadas em 2008 –
Até onde ir com o Microsoft Office e
Porque sentiremos falta do VBA….

Estou ensaiando para escrever e hoje tirei esse tempo para dar minha opinião, e pelo que estou passando que tem me deixado um pouco preocupado, é o fato de muitas empresas estarem trocando os pacotes Office por distribuições gratuitas, a Microsoft sentiu isso quando o Linux começou a dominar os PCs, forçando a mesma a criar Versões Starter Edition dos SO, e como a visão do Tio Bill nunca foi ceder nada gratuitamente, lógicamente com essa versão mais ligth fez um preço mais em conta, mas em contra partida não tem agradado muito, lógico que imagino que ainda não chegou a hora que a MS perderá seu reinado.

Mas voltando ao Office, como tem acontecido em vários setores, onde eu trabalho não está sendo diferente, a Prefeitura aqui, já começou a trocar, os PCs novos já veem com o BrOffice, e se por ventura sua máquina tiver que ir para a manutenção, e  se a mesma tinha o Office instalado, volta sem o mesmo, e é uma burocracia e quase impossível se conseguir que reinstalem o Office.

Outro fator que tenho visto e tem aumentado consideravel, é que em boa parte dos concursos publicos, já estão trocando questões sobre Word, Excel que são os aplicativos básicos em qualquer escritório, por questões sobre o BrOffice, se tornando uma realidade cada vez mais crescente.

Por essa razão, fico preocupado, sabemos como você mesmo citou de Empresas de Sucesso que utilizam o Office, e do poder do VBA e do pacote Office, então a questão não seria até onde ir com o MS Office ou a extinsão do VBA, mas sim até quando a Microsoft irá resistir a questão  de Softwares livres e começar a pensar em tambem lançar algo nesse sentido para que as empresas não optem em mudar de aplicativos.

Para finalizar, fico imaginando de ter de migrar para o BrOffice, fico torcendo para o meu PC não dar problema, não pelo fato de não ter conhecimento profundo do mesmo, que se acontecer, temos de aprender a usa-lo, mas sim em deixar para traz todo um aprendizado, ter de refazer vários trabalhos, lógicamente que o conhecimento adquirido será de grande valia e ajuda em qualquer outro aplicativo, é uma basee que não esquecemos, mas realmente é preocupante.

Quanto a essa questão :
Mas a pergunta que não quer calar a partir do momento em que começamos a aprimorar os conhecimentos  na ferramenta é até onde vale a pena continuar usando o Office, já que existem tantas outras ferramentas para os propósitos que queremos alcançar.

Eu diria, que no mundo Capitalista em que vivemos, com uma visão Comercial, acredito que só as empresas que se dispuserem a continuar pagando pelos carissimos aplicativos da MS. Aqui ainda não divulgaram, mas assim que informarem, posterei aqui o quanto a Prefeitura do meu Municipio estará economizando com a troca dos mesmos.

Ou seja estão deixando de lado o fator “profissionalismo” e trocando pelo fator aonde podem cortar despesas.

Como eu disse no inicio sobre o reinado da MS acredito que ainda irá  longe, levando-se em conta que não tinha reparado antes  que você chegou a escrever essas matérias em 2008.

Mas a pergunta acima ainda permanecerá no ar por um bom tempo.

abraços