질문하기

Gilberto Schiavinatto's profile - activity

2019-06-20 04:45:06 +0200 코멘트달린 답변 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

=SEERRO(ÍNDICE($B$9:$C$29;CONT.VALORES($B$9:$B$29)-(LINHA()-9);1);0) mostra 0

2019-06-20 04:44:14 +0200 코멘트달린 답변 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

=SEERRO(ÍNDICE($B$9:$C$29;CONT.VALORES($B$9:$B$29)-(LINHA()-9);1);0) mostra 0 =SEERRO(ÍNDICE($B$9:$C$29;CONT.VALORES($B

2019-06-20 04:42:49 +0200 코멘트달린 답변 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

=SEERRO(ÍNDICE($B$9:$C$17;CONT.VALORES($B$9:$B$17)-(LINHA()-9);1);0) mostra 0 =SEERRO(ÍNDICE($B$9:$C$17;CONT.VALORES($B

2019-06-20 02:28:02 +0200 답변을 편집했습니다 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

Ola @rafaBrunnoS, veja se e isso: Usei uma coluna para numerar os itens. Arquivo do teste Se entendi errado, poste

2019-06-20 02:27:25 +0200 답변을 편집했습니다 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

Ola @rafaBrunnoS, veja se e isso: Usei uma coluna para numerar os itens. Arquivo do teste Se entendi errado, poste

2019-06-20 02:03:15 +0200 질문에 댓글을 달았습니다 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

@rafaBrunnoS, , NÃO USE Adicionar resposta, para comentários.....

2019-06-20 02:01:38 +0200 질문을 편집했습니다 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

Formula que retorne o ultimo, penultimo, antepenultimo valor e etc Olá pessoal! Desde já, obrigado! Eu gostaria de uma

2019-06-20 00:45:41 +0200 코멘트달린 답변 Macro para não mostrar processamento

Ola @Baracca, @Júnio Vieira, coloca esta também na coleção, desativa Autocalcular Sub DesativarAtualizaçãoDeTela Dim i

2019-06-20 00:26:18 +0200 질문에 답변하였습니다 Formula que retorne o ultimo, penultimo, antepenultimo valor e etc

Ola @rafaBrunnoS, veja se e isso: Usei uma coluna para numerar os itens. Arquivo do teste Se entendi errado, poste

2019-06-20 00:11:05 +0200 질문에 댓글을 달았습니다 Copia valori - trasponi celle in Calc non funziona

Ciao @Grandechecco, benvenuto nel Gruppo. Hai usato Ctrl + Shift + V?

2019-06-18 11:48:34 +0200 받은 배지  선각자 (source)
2019-06-18 11:48:34 +0200 받은 배지  좋은 답변 (source)
2019-06-18 06:14:49 +0200 받은 배지  훌륭한 답변 (source)
2019-06-18 04:14:18 +0200 코멘트달린 답변 Como Mover/copiar uma planilha para outro arquivo

@Regisfreitas, Testei novamente aqui e funciona parcialmente, como descrito na resposta, o Salvar e Fechar arquivo2 não

2019-06-18 02:38:33 +0200 코멘트달린 답변 Como Mover/copiar uma planilha para outro arquivo

@Regisfreitas, Testei novamente aqui e funciona parcialmente, como descrito na resposta, o Salvar e Fechar arquivo2 não

2019-06-17 23:57:25 +0200 질문에 답변하였습니다 Como Mover/copiar uma planilha para outro arquivo

@Regisfreitas, Via macro no arquivo1 consegui abrir arquivo2 gravar dados nele mas como salva-lo e fechar não consegui.

2019-06-17 20:31:18 +0200 질문에 댓글을 달았습니다 Como Mover/copiar uma planilha para outro arquivo

Estou tentando......

2019-06-17 17:57:01 +0200 으뜸 답변으로 표시됨 acionar macro de outra planilha

Tenho 2 arquivos, arquivo1.ods e arquivo2.ods

gostaria de trabralhar com apenas um deles aberto, o arquivo1.ods

no arquivo2 tenho uma macro chamada JJ

e no arquivo1 quero criar uma macro que abra o arquivo2 em oculto e execute a macro JJ

a macro que escrevi é:

Dim oProps(0) As New com.sun.star.beans.PropertyValue
oProps(0).Name = "Hidden"
oProps(0).Value = True

sURL = convertToURL( "D:\Arquivo2.ods" ) 
oDoc2 = StarDesktop.loadComponentFromURL( sURL, "_blank", 0, oProps() )

call JJ'          acredito que aqui está o erro! (lembrando que a macro JJ nao existe no arquivo1, existe no arquivo2 ! )

oDoc2.Store()

oDoc2.Close( True )
2019-06-17 17:56:52 +0200 받은 배지  자기 주도 학습자 (source)
2019-06-17 17:23:55 +0200 질문에 댓글을 달았습니다 Como Mover/copiar uma planilha para outro arquivo

@Regisfreitas, O Mover/Copiar planilha o gravador de macro reconhece. Isto é bom sinal. Mas o arquivo receptor, aparent

2019-06-17 17:23:40 +0200 질문에 댓글을 달았습니다 Como Mover/copiar uma planilha para outro arquivo

Regisfreitas, O Mover/Copiar planilha o gravador de macro reconhece. Isto é bom sinal. Mas o arquivo receptor, aparente

2019-06-17 17:23:25 +0200 질문에 댓글을 달았습니다 Como Mover/copiar uma planilha para outro arquivo

Regisfreitas, O Mover/Copiar planilha o gravador de macro reconhece. Isto é bom sinal.... Mas o arquivo receptor, apare

2019-06-17 16:42:12 +0200 코멘트달린 답변 Criar botão para salvar historico

Ok @Jùnio Vieira, muito boa a alternativa. Só faltou corrigir a formula em B4: =SE(CONT.SE($Bancodedados.A:A;B3)>0;"

2019-06-16 18:39:32 +0200 질문을 편집했습니다 Como exportar uma aba da planilha para outro arquivo ?

Como exportar uma aba da planilha para outro arquivo? Bom dia amigos, eu criei um arquivo onde a primeira ABA FRONTEND t

2019-06-16 18:37:44 +0200 질문에 댓글을 달았습니다 Como exportar uma aba da planilha para outro arquivo ?

Ola @Regisfreitas, seja bem vindo ao Grupo. Só comentando: ao invés de cada tabela em uma Planilha, não poderia ser uma

2019-06-16 04:10:44 +0200 답변을 편집했습니다 Criar botão para salvar historico

Ola @rafaBrunnoS, dá sim.... Segue arquivo teste . ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use n

2019-06-16 04:03:31 +0200 질문에 답변하였습니다 Criar botão para salvar historico

Ola @rafaBrunnoS, dá sim.... Segue arquivo teste ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na p

2019-06-15 01:29:56 +0200 질문에 댓글을 달았습니다 Mover imagens entre células e planilha do Calc (macro)

Ola @Olivier, interessante, mesmo recortando da planilha1 e colando na planilha2 em B10 as ancoragens continuam nas célu

2019-06-15 00:59:58 +0200 질문에 답변하였습니다 Adaptar Macro do Excel p/ Libre

Ola @Silmar, segue uma sugestão. Página inicial, página final e Numero do Processo é digitado na planilha. A macro: S

2019-06-14 22:26:58 +0200 질문을 편집했습니다 Adaptar Macro do Excel p/ Libre

Adaptar Macro do Excel p/ Libre Boa noite! Eu fiz uma planilha que fixa um número no CABEÇALHO e imprime as páginas 02 à

2019-06-14 22:24:26 +0200 답변을 편집했습니다 Adaptar Macro do Excel p/ Libre

C:\fakepath\EXEMPLO.jpg Veja essa imagem, veja se consegue ver como ficará a página.

2019-06-14 20:54:50 +0200 받은 배지  인기있는 질문 (source)
2019-06-14 03:54:57 +0200 질문에 답변하였습니다 Criar caixa de anotação com uma formula nela

Para 5 casas decimais ( não considera aproximação, só corta ) Rem Attribute VBA_ModuleType=VBADocumentModule Option VBA

2019-06-14 03:24:49 +0200 코멘트달린 답변 Criar caixa de anotação com uma formula nela

Resolvida, Link a macro em ( clique direito sobre a aba ) Eventos... de planilha / Conteúdo alterado.

2019-06-14 03:23:41 +0200 코멘트달린 답변 Criar caixa de anotação com uma formula nela

Resolvida, Link a macro em Eventos... de planilha / Conteúdo alterado.

2019-06-14 02:25:06 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

A macro diz lado direito: RightHeader = "&""-,Negrito""&14RUBRICA________FLS. &P" & Chr(10) &

2019-06-14 02:22:05 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

A macro diz lado direito: RightHeader = "&""-,Negrito""&14RUBRICA________FLS. &P" & Chr(10) &

2019-06-14 02:21:30 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

A macro diz lado direito: RightHeader = "&""-,Negrito""&14RUBRICA________FLS. &P" & Chr(10) &

2019-06-14 02:13:35 +0200 질문을 편집했습니다 Adaptar Macro do Excel p/ Libre

Adaptar Macro do Excel p/ Libre Boa noite! Eu fiz uma planilha que fixa um número no CABEÇALHO e imprime as páginas 02 à

2019-06-14 02:10:44 +0200 코멘트달린 답변 Criar caixa de anotação com uma formula nela

Poste um exemplo de arquivo.ods, funcionando.

2019-06-14 01:43:47 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

@Silmar, , algo assim: ( só exemplo, sem as medidas da macro )

2019-06-14 01:40:39 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

@Silmar, , algo assim: ( só exemplo, sem as medidas da macro ) De onde pegar o numero do Processo ?

2019-06-14 01:39:40 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

@Silmar, , algo assim: ( só exemplo, sem as medidas da macro )

2019-06-14 01:01:46 +0200 질문에 댓글을 달았습니다 Criar caixa de anotação com uma formula nela

Ola @rafaBrunnoS, seja bem vindo ao Grupo. A Anotação em célula, como diz o nome só aceita Anotação, calculo não dá. N

2019-06-14 00:51:30 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

Ola @Silmar, seja bem vindo ao Grupo. São folhas em branco que serão impressas ? Poste um modelo de arquivo....altere

2019-06-14 00:46:46 +0200 질문에 댓글을 달았습니다 Adaptar Macro do Excel p/ Libre

Ola @Silmar, seja bem vindo ao Grupo. São folhas em branco que serão impressas ? Obs. No Calc a formatação de página f

2019-06-13 22:19:49 +0200 으뜸 답변으로 표시됨 Erro no laço "While / Wend"

Montei macro para impressão com um While / Wend, na primeira passada ok, na segunda gera este erro, estou usando Win10 + LibO 6.2.4.2 (64)

Descrição da imagem

Alguém saberia traduzir.....

A macro completa é esta:

sub Imprimir
dim document, dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
Wait 1000

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "Cabeça"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$LISTAGEM.$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

dim args7(5) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Flags"
args7(0).Value = "A"
args7(1).Name = "FormulaCommand"
args7(1).Value = 0
args7(2).Name = "SkipEmptyCells"
args7(2).Value = false
args7(3).Name = "Transpose"
args7(3).Value = false
args7(4).Name = "AsLink"
args7(4).Value = false
args7(5).Name = "MoveMode"
args7(5).Value = 0
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args7())

dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 23
args8(1).Name = "Sel"
args8(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args8())

    oSel = ThisComponent.getCurrentSelection()
    Var1 = oSel.getString()

    While Var1 <> ""

dim args13(5) as new com.sun.star.beans.PropertyValue
args13(0).Name = "Flags"
args13(0).Value = "A"
args13(1).Name = "FormulaCommand"
args13(1).Value = 0
args13(2).Name = "SkipEmptyCells"
args13(2).Value = false
args13(3).Name = "Transpose"
args13(3).Value = false
args13(4).Name = "AsLink"
args13(4).Value = false
args13(5).Name = "MoveMode"
args13(5).Value = 0
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args13())  '<===== ERRO AQUI

dim args18(1) as new com.sun.star.beans.PropertyValue
args18(0).Name = "By"
args18(0).Value = 23
args18(1).Name = "Sel"
args18(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args18())

    oSel = ThisComponent.getCurrentSelection()
    Var1 = oSel.getString()

    Wend

dim args21(0) as new com.sun.star.beans.PropertyValue
args21(0).Name = "ToPoint"
args21(0).Value = "Rodape"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args21())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

dim args23(0) as new com.sun.star.beans.PropertyValue
args23(0).Name = "ToPoint"
args23(0).Value = "$LISTAGEM.$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args23())

dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

dim args27(0) as new com.sun.star.beans.PropertyValue
args27(0).Name = "ToPoint"
args27(0).Value = "$LISTAGEM.$A$1:$J$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args27())
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:DefinePrintArea", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())

end Sub
2019-06-13 22:19:46 +0200 코멘트달린 답변 Erro no laço "While / Wend"

Ok @Conrado, perfeito, obrigado.

2019-06-13 22:07:20 +0200 질문에 답변하였습니다 Organizando Planilhas

Ola @andretross, seja bem vindo aoGrupo. A macro abaixo esta em VBA porém funciona no LibreOffice Basic. Rem Attribute