Schiavinatto

Problema resolvido, segue Macros, lembrando após incluir no arquivo, SALVAR como ods, se for Excel perde as macros. acione a macro XPTO REM ***** BASIC ***** sub XPTO GoToCel "B1" Dim oSel as Object Dim Var1 As integer Dim Var2 As Integer oSel = ThisComponent.getCurrentSelection() Var1 = oSel.getString() For Var2 = 1 To Var1 Step 1 Procurar Execute "Cut" Execute "GoDown" Execute "GoDownToEndOfData" Execute "GoDown" Execute "Paste" Execute "GoDown" Next End Sub '----------------------- ' SubMacros '----------------------- Sub Procurar dim args1(20) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.SearchFiltered" args1(4).Value = false args1(5).Name = "SearchItem.Backward" args1(5).Value = false args1(6).Name = "SearchItem.Pattern" args1(6).Value = false args1(7).Name = "SearchItem.Content" args1(7).Value = false args1(8).Name = "SearchItem.AsianOptions" args1(8).Value = false args1(9).Name = "SearchItem.AlgorithmType" args1(9).Value = 0 args1(10).Name = "SearchItem.SearchFlags" args1(10).Value = 0 args1(11).Name = "SearchItem.SearchString" args1(11).Value = "Conta" args1(12).Name = "SearchItem.ReplaceString" args1(12).Value = "" args1(13).Name = "SearchItem.Locale" args1(13).Value = 255 args1(14).Name = "SearchItem.ChangedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.DeletedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.InsertedChars" args1(16).Value = 2 args1(17).Name = "SearchItem.TransliterateFlags" args1(17).Value = 256 args1(18).Name = "SearchItem.Command" args1(18).Value = 0 args1(19).Name = "SearchItem.SearchFormatted" args1(19).Value = false args1(20).Name = "SearchItem.AlgorithmType2" args1(20).Value = 1 createUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:ExecuteSearch", "", 0, args1()) End Sub Sub GoToCel ( xLocal$ ) dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1()) End Sub Sub Execute ( o que$ ) CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & o que & "", "", 0, Array()) End Sub E inclua a formula =CONT.SE(B2:B1048576;"Conta*") na célula B1 E em Ferramentas / Opções / LibreOffice Calc / Calcular marque Permitir expressões regulares em formulas. e desmarque Critérios de pesquisa = ou <> devem ser aplicados ao conteúdo integral das células. OK ATENÇÃO: o arquivo anexo, após baixar altere de .zip para .ods para abri no LibreOffice. 1495883.zip

ATENÇÃO........ Macros do Basic se salvar como Excel e descartada, então salve o arquivo como ods Selecione a célula B1 ( tendo como base seu exemplo ), infelizmente executa uma a uma, tentei automatizar, mas esta gerando erro, postei a duvida no https://ask.libreoffice.org/pt-br/question/274048, com a macro completa ( em B1 terá a formula =CONT.SE(B2:B1048576;"Conta*") que identifica quantos Loop a macro deve executar, porém na segunda gera erro. REM ***** BASIC ***** sub XPTO dim document as object dim dispatcher as Object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(20) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.SearchFiltered" args1(4).Value = false args1(5).Name = "SearchItem.Backward" args1(5).Value = false args1(6).Name = "SearchItem.Pattern" args1(6).Value = false args1(7).Name = "SearchItem.Content" args1(7).Value = false args1(8).Name = "SearchItem.AsianOptions" args1(8).Value = false args1(9).Name = "SearchItem.AlgorithmType" args1(9).Value = 0 args1(10).Name = "SearchItem.SearchFlags" args1(10).Value = 0 args1(11).Name = "SearchItem.SearchString" args1(11).Value = "Conta" args1(12).Name = "SearchItem.ReplaceString" args1(12).Value = "" args1(13).Name = "SearchItem.Locale" args1(13).Value = 255 args1(14).Name = "SearchItem.ChangedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.DeletedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.InsertedChars" args1(16).Value = 2 args1(17).Name = "SearchItem.TransliterateFlags" args1(17).Value = 256 args1(18).Name = "SearchItem.Command" args1(18).Value = 0 args1(19).Name = "SearchItem.SearchFormatted" args1(19).Value = false args1(20).Name = "SearchItem.AlgorithmType2" args1(20).Value = 1 dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) rem ---------------------------------------------------------------------- Execute "Cut" Execute "GoDown" Execute "GoDownToEndOfData" Execute "GoDown" Execute "Paste" Execute "GoDown" end Sub '----------------------- ' SubMacros '----------------------- Sub GoToCel ( xLocal$ ) dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1()) End Sub Sub Execute ( o que$ ) CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & o que & "", "", 0, Array()) End Sub

Geralmente em planilha com uso de formulário, o novo dado é incluído após a ultima linha de dados e a macro que faz isso após inclusão faz a ordenação.

@Mexcel , Veja figura abaixo, ao digita a formula em B11, NÃO de Enter, USE Crtl+Shift+Enter, trata-se de uma fórmula matricial. =CONT.SE(ANO($C$2:$C$7);A11:A23) Se necessário alteração na formula, depois de feito, é necessário selecionar toda a área em que foi replicada a formula.

@Gustavo de Almeida Leite segue uma solução sem deletar dados do histórico (Planilha2), usando a função PROC, que faz a busca invertida, ou seja a data ( Criado em) tem que estar classificado Crescente. Obs. O Produto (coluna C da Planilha 2 e A da Planilha1) converti para Numero, era texto. Atenção rever preços veja exemplo de divergência no valor unitário do Produto 10000121.... Após baixar arquivo, troque a terminação de .zip para .ods, para abrir no LibreOffice. Retirar produtos duplicados.zip

Existe esta extensão, de uma olhada: https://wiki.documentfoundation.org/Extensions/Projects/CopyVisiCells/pt-br

Pode retirar a linha 10 em branco da sua planilha. Esta macro inseri uma linha após o titulo, porém a cada inserção é necessário fechar o Form e reabrir se necessário para mais inclusões. Segue a macro: Sub AbrirForm Dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = "B9" CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1()) CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:InsertRowsAfter", "", 0, Array()) CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DataForm", "", 0, Array()) End Sub Lembrando, você criar seu próprio Formulário personalizado, veja aqui: https://ask.libreoffice.org/pt-br/question/240060/macro-para-inserir-dados-de-caixa-de-dialogo-em-planilha/ adicionado 33 minutos depois Segue uma macro melhorada, se desistir da inclusão, a linha inserida é deletada. Sub AbrirForm GoToCel "B9" Execute "InsertRowsAfter" Execute "DataForm" Execute "Godown" oSel = ThisComponent.getCurrentSelection() Var1 = oSel.getString() If Var1 = "" Then Execute "DeleteRows" Else : End If End Sub Sub Execute ( que$ ) CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & que & "", "", 0, Array()) End Sub Sub GoToCel ( xLocal$ ) dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal CreateUnoService("com.sun.star.frame.DispatchHelper") _ .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1()) End Sub

Sugiro que utilize serviço de arquivos em nuvem. Você coloca o arquivo na nuvem, gera o link e manda o link para a outra pessoa baixar. Eu utilizo o Dropbox, mas existem outros também gratuitos, só pesquisar.

use cont.se =se(cont.se($permei.$a$2:$a$16000;a2)>0;"sim";"não")

Caso queira se aprofundar em Basic, aqui tem links para consultas: https://ask.libreoffice.org/pt-br/question/188812/documentacao-para-macros-basic-calc-referencia/

@mateusduran , colocou as Propriedades conforme a imagem. Aqui não permite mais que 12 caracteres , nem quebrar a linha. Qual Sistema Operacional e versão do LibreOffice esta usando ?

@mateusduran Fiz teste e esta funcionando, usei Win10 + LibO 6.4.4.2

Se mostrar de cada item somente a ultima contagem serve, ou é necessário mostrar dias anteriores ? Como é lançado na planilha [Contagem] ?

@Willykz Bom dia, não entendi direito. Se vai copiar a coluna e colar inserindo antes as informações são sempre iguais !!!!!!!!!!!!! O que faz mudar a informação ? Poste um arquivo exemplo, fica mais fácil.

@Rhaniery , tentou selecionar com o cursor só o desejado ? Tem muitas imagens ? Usando o Firefox use Arquivo Salvar como, vai gerar um arquivo html e um diretório com o mesmo nome. envie para mim: [email protected]

@Rhaniery tem muitas imagens ? Coma faz para copiar, você seleciona ou usa Ctrl+A ?

Ola @Walter Filho , uma macro foi encerrada com End Sub, e em seguida existe algum texto ou inicio de outra macro sem o Sub inicial.

Ola @Rhaniery , a opção copiar só fica ativa após selecionar algo. Sobre colar, tente, Crtl+Shift+V e selecione Texto sem formatação. Se tiver imagens, salve no computador e depois passe para o arquivo.

Na sua formula: =" "&B16&" / "&C16&" / "&D16&" " troque &D16& por &TEXTO(D16;"ddmmaa")&

Na célula B23 use esta formula: ="Informação: Haverá aula de "&B21&" com a(a) Professor(a) "&C2&" no dia "&TEXTO(D21;"dd/mm/aa")&" às "&TEXTO(E21;"hh:mm")&" h." Respondida no ask.libreoffice.

Terá de criar quantas macros forem necessárias para cada botão, ou única deletando sempre a linha ativa. Respondida também no ask.libreoffice

@ThiagoGAlmeida , Bom dia, o botões estão com hiperlinks ou ligou a macros. É possível postar um arquivo exemplo. Ps. O arquivo não necessariamente precisa 12 planilhas: poderia ser uma com Formulário de lançamento, uma Histórico de lançamentos e outra Consulta do mês desejado.

@pretojoia , precisando de ajuda, pode entrar em contato direto, veja aqui: https://wiki.documentfoundation.org/User:Schiavinatto

@Fabiano Enoque , depois de apanhar muito com as imagens do Writer ficar "correndo" pelo texto, comecei a inserir planilha (1x1) e colocar a imagem nela. Testei colocando as tabelas deste modo e deu certo. Considerando as Tabelas 1 e 2 as suas, crie uma terceira (2 colunas x 1 linha), Insira algumas linhas em branco nas duas células. Recorte a Tabela 1 e cole na Tabela 3 em qualquer linha criada ( se célula sem linhas não dá certo), faça o mesmo do a Tabela 2 na outra célula depois elimine as linhas desnecessárias e a Tabela 3 formate Borda invisível.

Segue seu arquivo alterado com as formulas. Na planilha Dados inclui a coluna Data NF e na planilha Resumo inclui uma linha com os limites do trimestre ( pode ocultar, não apague ) Para alterar a terminação do arquivo é fácil: No local onde baixou o arquivo, clique uma vez nele , para seleciona-lo e de F2 e altere a terminação do arquivo de .zip para .ods, de Enter e no Aviso responda Sim. Ou do Calc use Arquivo / Abrir e selecione o arquivo onde baixou, o LibreOffice vai abrir o zip normalmente, depois use Salvar come .ods; Poucos sabem mas o arquivo ods é zip. Quando digitar uma NF em duplicata o Cliente ficar com fundo rosa e texto em vermelho (estilo Bad) 1431981_PRESTAÇÃO DE CONTAS.zip