Pergunte aqui

Perfil de Orlando - atividade

2019-03-01 18:50:46 +0100 Medalha recebida  Pergunta notável (fonte)
2019-03-01 18:50:46 +0100 Medalha recebida  Pergunta famosa (fonte)
2018-04-16 20:20:18 +0100 Medalha recebida  Pergunta famosa (fonte)
2018-02-25 22:01:33 +0100 Marcada como a melhor resposta Função ou Condicional IF

Olá, pessoal!

Primeiro, eu vou explicar como gostaria que funcionasse:

1ª) Se a col A estiver preenchida e a col B estiver limpa, copiar (sem recortar) os dados da col A e colar (sem formatação) na coluna B.

2ª) Se a coluna B estiver preenchida, limpar essa coluna e encerrar o código sem executar a 1ª) opção.

.

Fiz tudo até onde aprendi, pesquisando também aqui.

Tentei adaptar a função If a outros códigos com única ação de um Botão de pressão. Mas sempre dá em erros, conforme os procedimentos abaixo:

Sub SORTEAR
Dim document   as object
Dim dispatcher as object
Dim oDoc As Object, oPlan As Object
Dim oIntervalo1 As Object, oIntervalo2 As Object
Dim args1(0) as new com.sun.star.beans.PropertyValue
Dim sSQL As String

        ' Desproteger a planilha sem senha
        oDoc = ThisComponent
        oPlan = oDoc.Sheets.getByName( "Plan1" )
'       oPlan.Unprotect( "" )

' Iniciar os objetos
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "Plan1" )
oIntervalo1 = oPlan.getCellRangeByName( "A2:A18" )
oIntervalo2 = oPlan.getCellRangeByName( "B2:B18" )

' INCIANDO A CONDIÇÃO IF:
If oIntervalo1 <> 0 And oIntervalo2 = 0 Then

        ' Classificar em ordem crescente a coluna A
        '1º- os campos de classificação
        Dim mCampos(0) as New com.sun.star.util.SortField
        mCampos(0).Field = 0
        mCampos(0).SortAscending = True
        '2º- Descrever a classificação
        Dim mDescricao(1) As New com.sun.star.beans.PropertyValue   
        mDescricao(0).Name = "SortFields"
        mDescricao(0).Value = mCampos()
        mDescricao(1).Name = "HasHeader"
        mDescricao(1).Value = False
        '3º- classificar o intervalo
        oIntervalo1.Sort( mDescricao )

' Colar os dados da coluna A em B
oIntervalo2.setDataArray( oIntervalo1.getDataArray )

        ' Exportar como PDF para Salvar
        rem ----------------------------------------------------------------------
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        rem ----------------------------------------------------------------------
        'dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())

' CONCLUINDO A CONDIÇÃO IF:
Else

'Apagar Registros
sSQL = "DELETE FROM ""oIntervalo2"""  
'Excutar a Instrução SQL
OInstSQL.Execute( sSQL )

End If

        ' Parar na cél A1
        rem ----------------------------------------------------------------------
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        rem ----------------------------------------------------------------------
        args1(0).Name = "ToPoint"
        args1(0).Value = "A1"

        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

' Proteger a planilha sem senha
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "Plan1" )
'oPlan.Protect( "" )

End Sub

Fonte de pesquisa

Planilha-modelo

.

Grato pela atenção!

Orlando Souza

.

8)

2018-02-25 22:01:02 +0100 Resposta comentada Função ou Condicional IF

a macro funcionou, depois que acrescentei no início a declaração de objeto, cuja linha segue abaixo: Dim args1(0) as ne

2018-02-25 22:00:33 +0100 Resposta comentada Função ou Condicional IF

a macro funcionou, depois que acrescentei no início a declaração de objeto, cuja linha segue abaixo: Dim args1(0) as ne

2018-02-25 20:21:34 +0100 Resposta comentada Função ou Condicional IF

Muito bom, @Grafeno! Estrutura mais enxuta do que a anterior. . Depois que ativei a macro "Exportar como PDF para Salv

2018-02-25 20:20:57 +0100 Resposta comentada Função ou Condicional IF

Muito bom, @Grafeno! Estrutura mais enxuta do que a anterior. . Depois que ativei a macro "Exportar como PDF para Salv

2018-02-25 16:03:32 +0100 Medalha recebida  Pergunta notável (fonte)
2018-02-25 01:24:55 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Realmente, o outro método atende a condição de limp

2018-02-25 01:24:43 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Realmente, o outro método atende a condição de limp

2018-02-25 01:24:26 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Realmente, o outro método atende a condição de limp

2018-02-25 01:23:59 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Realmente, o outro método atende a condição de limp

2018-02-25 00:06:56 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Realmente, o outro método atende a condição de limp

2018-02-24 17:32:12 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Também tentei o outro método, mas estou com dificul

2018-02-24 17:00:18 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Também tentei o outro método, mas estou com dificul

2018-02-24 16:58:36 +0100 Pergunta comentada Função ou Condicional IF

Ah! Tá! Eu interpretei diferente a pergunta do autor daquele tópico. Também tentei o outro método, mas estou com dificul

2018-02-24 16:49:33 +0100 Pergunta comentada Função ou Condicional IF

oi, @Grafeno! A col A tem que estar toda preenchida, por se tratar de um sorteio. abç.

2018-02-24 14:10:23 +0100 Medalha recebida  Pergunta popular (fonte)
2018-02-24 07:33:53 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-24 07:19:02 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-24 07:18:36 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-24 07:13:42 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 06:06:03 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 05:44:16 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 04:52:50 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 04:50:10 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 04:34:10 +0100 Pergunta editada Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2018-02-23 02:06:51 +0100 Perguntou Função ou Condicional IF

Função ou Condicional IF Olá, pessoal! Primeiro, eu vou explicar como gostaria que funcionasse: 1ª) Se a col A estiver

2017-10-06 23:37:40 +0100 Medalha recebida  Pergunta popular (fonte)
2017-10-05 14:59:22 +0100 Marcada como a melhor resposta Macro da caixa de diálogo: Exportar como PDF

Já pesquisei aqui e não encontrei.

Estou tentando gravar uma macro para abrir a caixa de diálogo abaixo: Exportar como PDF, mas não consigo!

.

Menu

.

Caixa de diálogo

Seria possível?

.

Grato pela atenção!

Orlando Souza

8)

2017-10-05 14:59:01 +0100 Resposta editada Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem ---------------------------------------------------------------

2017-10-05 14:59:00 +0100 Pergunta editada Macro da caixa de diálogo: Exportar como PDF

Macro da caixa de diálogo: Exportar como PDF Já pesquisei aqui e não encontrei. Estou tentando gravar uma macro para ab

2017-10-01 22:45:12 +0100 Resposta editada Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem ---------------------------------------------------------------

2017-10-01 22:42:03 +0100 Medalha recebida  Autodidata (fonte)
2017-10-01 22:23:32 +0100 Resposta editada Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem ---------------------------------------------------------------

2017-10-01 22:20:58 +0100 Resposta editada Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem ---------------------------------------------------------------

2017-10-01 22:19:17 +0100 Resposta editada Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem -----------------------------------------------------------

2017-10-01 22:16:09 +0100 Respondeu uma pergunta Macro da caixa de diálogo: Exportar como PDF

Ooops! Já consegui, como segue: sub ExportarComoPDF rem -------------------------------------------------------------

2017-10-01 21:29:13 +0100 Pergunta editada Macro da caixa de diálogo: Exportar como PDF

Macro da caixa de diálogo: Exportar como PDF Já pesquisei aqui e não encontrei. Estou tentando gravar uma macro para ab

2017-10-01 21:17:23 +0100 Pergunta editada Macro da caixa de diálogo: Exportar como PDF

Macro da caixa de diálogo: Exportar como PDF Tentei gravar uma macro aqui para abrir a caixa de diálogo abaixo: Exportar

2017-10-01 21:16:51 +0100 Pergunta editada Macro da caixa de diálogo: Exportar como PDF

Macro da caixa de diálogo: Exportar como PDF Tentei gravar uma macro aqui para abrir a caixa de diálogo abaixo: Exportar

2017-10-01 21:15:18 +0100 Perguntou Macro da caixa de diálogo: Exportar como PDF

Macro da caixa de diálogo: Exportar como PDF . Tentei gravar uma macro aqui para abrir a caixa de diálogo abaixo: Expor

2017-05-11 01:45:07 +0100 Medalha recebida  Pergunta famosa (fonte)
2017-03-20 18:40:53 +0100 Medalha recebida  Pergunta famosa (fonte)
2017-03-02 02:54:25 +0100 Medalha recebida  Pergunta notável (fonte)
2017-03-02 01:04:07 +0100 Marcada como a melhor resposta Macro de Filtro Avançado no Calc

.

Olá, Pessoal!

Já pesquisei aqui digitando "filtro" e "avançado", sem obter o êxito de que preciso.

Estou querendo usar a ferramenta Macro para realizar um Filtro Avançado de critérios em J2:J3 e na própria tabela de intervalo A4:J20.

Eu tentei, seguindo os seguintes passos:

1º) Fui em Ferramentas → Macros → Gravar macro (habilitei em Ferramentas->Opções->LibreOffice->Avançado);

2º) Selecionei o intervalo A4:J20;

3º) Acionei as teclas de atalho Alt+D+F+F+A;

4º) Em “Ler os critérios de filtragem de”, selecionei os dados no intervalo J2:J3 e cliquei em OK; e

5º) Por fim, parei a gravação da macro, gravando no Módulo1 como “FiltrarDPs”.

Ao selecionar o intervalo A4:J20 e pedir para mostrar linhas (em Formatar->Linha->Mostrar), nada acontece se tentar executar a macro gravada. Apenas seleciona o intervalo A4:J20, apesar de ter mostrado o resultado esperado antes de interromper a gravação da macro.

Seguem abaixo a macro gravada e o arquivo-modelo:

sub FiltrarDPs
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$'PLANILHA ÚNICA'.$A$4:$J$20"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:DataFilterSpecialFilter", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FilterExecute", "", 0, Array())


end sub

Macro do filtro avançado

Grato pela atenção!

Orlando Souza

8)