segunda-feira, 3 de julho de 2017

SIM PELA INVESTIGAÇÃO DE TEMER

Olha ai pessoal, copiem e cole no local de "Para" e seu webmail e ele enviará automaticamente a todos estes endereços de uma só vez, o melhor mesmo é clicar em cco para quando for endereços que você queira proteger.


Sugestão de Texto:

Senhor Deputado, por favor vote  SIM PELA INVESTIGAÇÃO DE TEMER
Estarei pessoalmente de olho para alertar meu colegas e amigos e todos meu contatos na midia social sobre o seu voto.

Cordialmente,
Fulano de Tal

Simplesmente copie e cole os endereços no local onde vpcê costumeiramente digita um endereço para envio de email em seu gerenciador de email.

“Presidente: Rodrigo Pacheco (PMDB/MG)” <dep.rodrigopacheco@camara.leg.br>
“1º Vice-Presidente: Alceu Moreira (PMDB/RS)"<dep.alceumoreira@camara.leg.br>
“2º Vice-Presidente: Daniel Vilela (PMDB/GO) "<dep.danielvilela@camara.leg.br>
“3º Vice-Presidente: Marcos Rogério (DEM/RO) "<dep.marcosrogerio@camara.leg.br>
“Andre Moura"<dep.andremoura@camara.leg.br>
“Antonio Bulhões PRB/SP "<dep.antoniobulhoes@camara.leg.br>
“Arnaldo Faria de Sá PTB/SP "<dep.arnaldofariadesa@camara.leg.br>
“Arthur Lira PP/AL "<dep.arthurlira@camara.leg.br>
“Aureo SD/RJ "<dep.aureo@camara.leg.br>
“Carlos Bezerra PMDB/MT "<dep.carlosbezerra@camara.leg.br>
“Carlos Henrique Gaguim PODE/TO "<dep.carloshenriquegaguim@camara.leg.br>
“Cristiane Brasil PTB/RJ "<dep.cristianebrasil@camara.leg.br>
“Esperidião Amin PP/SC "<dep.esperidiaoamin@camara.leg.br>
“Fausto Pinato PP/SP"<dep.faustopinato@camara.leg.br>
“Francisco Floriano DEM/RJ "<dep.franciscofloriano@camara.leg.br>
“Genecias Noronha SD/CE "<dep.geneciasnoronha@camara.leg.br>
“João Campos PRB/GO "<dep.joaocampos@camara.leg.br>
“José Carlos Aleluia DEM/BA <dep.josecarlosaleluia@camara.leg.br>
"<José Fogaça PMDB/RS <dep.josefogaca@camara.leg.br>
"<Juscelino Filho DEM/MA <dep.juscelinofilho@camara.leg.br>
"<Lincoln Portela PRB/MG "<dep.lincolnportela@camara.leg.br>
“Luiz Fernando Faria PP/MG "<dep.luizfernandofaria@camara.leg.br>
“Maia Filho PP/PI "<dep.maiafilho@camara.leg.br>
“Marcelo Aro PHS/MG "<dep.marceloaro@camara.leg.br>
“Osmar Serraglio PMDB/PR "<dep.osmarserraglio@camara.leg.br>
“Paes Landim PTB/PI "<dep.paeslandim@camara.leg.br>
“Paulo Maluf PP/SP"<dep.paulomaluf@camara.leg.br>
“Sergio Zveiter PMDB/RJ "<dep.sergiozveiter@camara.leg.br>
“Soraya Santos PMDB/RJ "<dep.sorayasantos@camara.leg.br>
“Delegado Éder Mauro PSD/PA "<dep.delegadoedermauro@camara.leg.br>
“Delegado Waldir PR/GO "<dep.delegadowaldir@camara.leg.br>
“Domingos Neto PSD/CE"<dep.domingosneto@camara.leg.br>
“Edio Lopes PR/RR"<dep.ediolopes@camara.leg.br>
“Expedito Netto PSD/RO "<dep.expeditonetto@camara.leg.br>
“Jorginho Mello PR/SC "<dep.jorginhomello@camara.leg.br>
“José Mentor PT/SP "<dep.josementor@camara.leg.br>
“Marcelo Delaroli PR/RJ "<dep.marcelodelaroli@camara.leg.br>
“Paulo Freire PR/SP "<dep.paulofreire@camara.leg.br>
“Rogério Rosso PSD/DF "<dep.rogeriorosso@camara.leg.br>
“Ronaldo Fonseca PROS/DF "<dep.ronaldofonseca@camara.leg.br>
“Rubens Pereira Júnior PCdoB/MA "<dep.rubenspereirajunior@camara.leg.br>
“Thiago Peixoto PSD/GO "<dep.thiagopeixoto@camara.leg.br>
“Betinho Gomes PSDB/PE "<dep.betinhogomes@camara.leg.br>
“Danilo Forte PSB/CE "<dep.daniloforte@camara.leg.br>
“Elizeu Dionizio PSDB/MS "<dep.elizeudionizio@camara.leg.br>
“Evandro Gussi PV/SP "<dep.evandrogussi@camara.leg.br>
“Fabio Garcia PSB/MT"<dep.fabiogarcia@camara.leg.br>
“Fábio Sousa PSDB/GO"<dep.fabiosousa@camara.leg.br>
“Jutahy Junior PSDB/BA"<dep.jutahyjunior@camara.leg.br>
“Paulo Abi-ackel PSDB/MG "<dep.pauloabiackel@camara.leg.br>
“Rocha PSDB/AC "<dep.rocha@camara.leg.br>
“Rubens Bueno PPS/PR "<dep.rubensbueno@camara.leg.br>
“Silvio Torres PSDB/SP"<dep.silviotorres@camara.leg.br>
“Hissa Abrahão PDT/AM"<dep.hissaabrahao@camara.leg.br>

sexta-feira, 30 de junho de 2017

Macro Fácil

Inciando um pequeno banco de dados no Calc. Primeiro dizer que Banco de dados é maneira de falar, pois banco de dados verdadeiramente não se faz numa planilha. Mas com minhas constantes frustações no Base por causa do Java, ou seria minha frustração do Java que não funciona direito no Base? Enfim, sem divagações e direto ao ponto. Uma matéria minha anterior, em meu blog, versava sobre essa ideia que volta e meia me “pegava”, usar o Calc como formulário e para guardar dados, - Cara ele passa de um milhão de linhas para ser guardadas…. Veja a matéria em: http://betobyte.blogspot.com.br/2014/02/a-necessidade-e-mae-da-invencao-quem.html

Depois disso, o pessoal do Linux dizia que o Calc não abaixava a linha durante a macro automática. Resolvi pedir ajuda no https://ask.libreoffice.org/pt-br/questions/ aqui neste site tem muitos “feras” em Libreoffice. Lá eu lancei uma pergunta: https://ask.libreoffice.org/pt-br/question/58248/definir-o-endereco-de-colagem-na-macro/ a qual seria como eu colo um conteúdo numa dada célula? Olha só o que eu queria: queria escrever na Planilha2 usando sempre umas três linhas (para começar), no sentido vertical e a um comando de ok, recortá-las para a Planilha1 colando no sentido horizontal. Nessa “malandragem” eu teria a Planilha2 como Formulário e a Planilha1 como Banco de Dados, ou o a Planilha “BD” como mais tarde resolvi chamar em meu arquivo (mais evoluído) CRUD em Calc.

Em meu socorro veio o Colega Grafeno, aliás, uma das grandes coisas dessa comunidade são as grandes pessoas que não tem “pudores” em compartilhar seus conhecimentos. Temos uma comunidade muito boa e com espaço para muito mais pessoas de boa vontade. Depois de tantos preâmbulos vamos direto ao ponto a macro que o Grafeno produziu para mim e para o mundo todo :) acessar livremente.

Primeiro passo é ir no Calc e criar duas planilhas, Planilha1 e Planilha2. Depois, fazer uma macro qualquer de maneira automática:




digite algo em uma célula tire o cursor para outra célula e clique em “parar Gravação”:




irá aparecer esta janela:
Localize o arquivo (por enquanto com o nome) Sem título, clique nele e salve-a no arquivo mesmo, assim ele estrá sempre no arquivo quando copiá-lo por algum motivo. Normalmente, a primeira macro tem o nome de main e fica dentro do modulo1, mas para frente você irá descobrir melhor como funciona isto.

Agora vá em Menu, “Ferramentas, Macro, editar macros e lá clica no ícone de seu arquivo e à direita aparecerão as macros, depois é só acrescentar esta macro (copie e cole o conteúdo disponível no quadro abaixo), logo abaixo do “end sub” da recém-criada macro.

















Selecione a Macro Main e clique em Editar. Copie e cole o conteúdo abaixo do última linha “end sub”



Macro autoria: Grafeno


Sub TransferirDados
Dim oDoc As Object, oPlanOrigem As Object, oPlanDestino As Object
Dim sEndereco As String, sCol As String, sLin As String
Dim iLin As Integer

    'Obter as planilhas de origem e de destino
    oDoc = ThisComponent
    oPlanOrigem = oDoc.Sheets.getByName( "Planilha2" )
    oPlanDestino = oDoc.Sheets.getByName( "Planilha1" )

    ' Pegar o Endereço em B1 na planilha de origem
    sEndereco = oPlanOrigem.getCellRangeByName( "B1" ).String
    ' Pegar a coluna e a linha definidas no endereço 
    sCol = Left( sEndereco,1 )
    sLin = Mid( sEndereco,2,Len( sEndereco ) )


    'Verificar se é um endereço válido
    If  Ucase( sCol ) <> "A" Or Not IsNumeric( sLin ) Then 
        MsgBox "Por favor, forneça um endereço correto.", 16, "Erro"
        Exit Sub
    End If

    ' Transferir os valores
    iLin = cInt( sLin ) - 1 ' Menos 1 porque a posição das células começa com 0.
    oPlanDestino.getCellByPosition( 0,iLin ).String = Ucase(sEndereco)
    oPlanDestino.getCellByPosition( 1,iLin ).String = oPlanOrigem.getCellRangeByName( "B2" ).String
    oPlanDestino.getCellByPosition( 2,iLin ).Value = oPlanOrigem.getCellRangeByName( "B3" ).Value

    ' Limpar o conteúdo do intervalo B1:B3
    ' Argumentos do método clearContents:
    '  -> 1 para apagar valores
    '  -> 4 para apagar strings (texto)
    '  --> 1 + 4 = 5 apaga valores + string
    oPlanOrigem.getCellRangeByName( "B1:B3" ).clearContents( 5 )
End Sub



Sua macro está pronta e tudo que você digitar na células B1 a B3 (sentido da coluna) serão trasportadas para a Planilha1 no sentido horizontal (de linha).


Mas será que é qualquer coisa mesmo? Não, lá existirão células que só aceitarão números e outras só aceitarão strings (letras). No próximo vídeo e artigo analisaremos a anatomia dessa macro que tão gentilmente o Grafeno do ASK do Libreoffice nos disponibilizou. Veja mais em meu blog: http://betobyte.blogspot.com.br.

Baixe o arquivo de teste.
Assista ao meu vídeo:
Outros vídeos: