Pergunte aqui

Perfil de vitor alves - atividade

2020-05-31 06:30:25 +0100 Medalha recebida  Pergunta famosa (fonte)
2020-04-08 04:10:02 +0100 Medalha recebida  Pergunta popular (fonte)
2020-04-08 04:09:50 +0100 Medalha recebida  Pergunta famosa (fonte)
2020-04-08 04:09:46 +0100 Medalha recebida  Pergunta popular (fonte)
2020-04-08 04:09:38 +0100 Medalha recebida  Pergunta famosa (fonte)
2020-04-08 04:09:36 +0100 Medalha recebida  Pergunta notável (fonte)
2020-03-26 18:29:53 +0100 Medalha recebida  Pergunta famosa (fonte)
2019-12-17 13:07:22 +0100 Medalha recebida  Pergunta notável (fonte)
2019-11-12 22:55:09 +0100 Medalha recebida  Pergunta notável (fonte)
2019-11-08 16:09:37 +0100 Medalha recebida  Pergunta notável (fonte)
2019-11-06 18:22:12 +0100 Medalha recebida  Pergunta popular (fonte)
2019-11-06 18:22:12 +0100 Medalha recebida  Pergunta notável (fonte)
2019-10-03 14:00:04 +0100 Medalha recebida  Pergunta popular (fonte)
2019-10-03 13:59:58 +0100 Medalha recebida  Pergunta popular (fonte)
2019-09-28 17:51:40 +0100 Resposta editada Atualizar lista de ComboBox

Resolvido. Encontrei uma solução e adicionei a macro quando a ComboBox perde o foco, assim, evita que a lista fique inse

2019-09-28 11:53:27 +0100 Medalha recebida  Professor (fonte)
2019-09-28 11:53:27 +0100 Medalha recebida  Autodidata (fonte)
2019-09-26 23:26:36 +0100 Marcada como a melhor resposta Atualizar lista de ComboBox

Tenho uma macro que adiciona dados à lista de uma ComboBox/Caixa de combinação em uma planilha, fora de um diálogo. Coloquei para ativar a macro sempre que seleciono o Combobox, porém a listagem está se repetindo pelo fato de não atualizar, e sim, adicionar dados.

Creio que tenha duas saídas: ou a própria macro atualiza a listagem em vez de apenas adicionar, ou cria-se outra macro para limpar a listagem quando a combobox perder o foco. Entretando, não sei nenhuma das duas hehe.

Segue a macro:

Sub ProcurarNomes()
Dim Inc as Integer
Dim sItem as String
Dim oComboBox As Object
Dim oCurs As object
Dim LastRow&
Dim oCelula As Object, oCmbox As Object, oSheet As Object 

oSheet = ThisComponent.Sheets.getByName("ALFA") 'Planilha em uso'
oForm = oSheet.DrawPage.Forms(0) '1° Formulário'
oCmbox = oForm.getByName("ProcurarNomes") 'Nome do combobox'
Combobox = ThisComponent.getCurrentController.getControl( oCmbox )

oCurs = oSheet.createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

For Inc = LastRow to 6 step -1  
  sItem = oSheet.getCellByPosition( 1,Inc ).String
  oCombobox.additem( sItem,0 )
Next Inc
End Sub

Tentei usar oCombobox.Model.removeAllItems mas quando rodo a primeira macro novamente, continua repetindo a listagem (ex: se a primeira macro for executada 4x, a listagem da ComboBox aparecerá repetida 4x).

2019-09-26 23:26:22 +0100 Respondeu uma pergunta Atualizar lista de ComboBox

Resolvido. Encontrei uma solução e adicionei a macro quando a ComboBox perde o foco, assim, evita que a lista fique inse

2019-09-26 17:26:40 +0100 Marcada como a melhor resposta Copiar para Área de Transferência

Minha dúvida parece simples, mas ainda não encontrei algo que a resolvesse. Possuo uma planilha ALFA com uma listagem que utilizo e colo em diversas outras planilhas. Queria apenas uma macro que copiasse essa listagem para a Área de Transferência APENAS, sem colar, para que, assim, possa colar onde bem entender. Como a listagem é extensa, eis o motivo de querer uma macro para isso.

Segue abaixo a macro que tentei fazer, porém, quando vou colar, não cola nada:

sub COPIARALFA
Dim oCurs As object
Dim LastRow&

oCurs = ThisComponent.Sheets.GetByName("ALFA").createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "A7:K" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

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

end sub

Grato desde já!

C:\fakepath\CÓPIA GRADE.ods

Coloquei a planilha que fiz para visualização. Nela há o botão copiar. Quando aperto não há nada na área de transferência.

2019-09-26 17:26:12 +0100 Respondeu uma pergunta Copiar para Área de Transferência

Meu erro se resolveu incluindo esse comandos no início da macro: dim SelCel as object SelCel = ThisComponent.Sheets.get

2019-09-26 16:32:38 +0100 Resposta editada Numeração de linhas Calc LibreOffice

Para quem quiser uma macro para enumerar a partir de uma célula até a ÚLTIMA LINHA USADA e adicionar em um botão, segue

2019-09-26 16:26:35 +0100 Resposta editada Numeração de linhas Calc LibreOffice

Para quem quiser uma macro para enumerar a partir de uma célula até a última linha e adicionar em um botão, segue abaixo

2019-09-26 16:25:51 +0100 Respondeu uma pergunta Numeração de linhas Calc LibreOffice

Para quem quiser uma macro para enumerar a partir de uma célula até a última linha e adicionar em um botão, segue abaixo

2019-09-25 20:33:51 +0100 Pergunta editada Atualizar lista de ComboBox

Atualizar lista de ComboBox Tenho uma macro que adiciona dados à lista de uma ComboBox/Caixa de combinação em uma planil

2019-09-25 20:25:33 +0100 Perguntou Atualizar lista de ComboBox

Atualizar lista de ComboBox Tenho uma macro que adiciona dados à lista de uma ComboBox/Caixa de combinação em uma planil

2019-09-25 06:41:52 +0100 Resposta comentada Manter formatação da planilha de destino quando se envia dados em oculto

andei buscando e encontrei este tópico. Parece que quando se abre uma planilha em modo "hidden" se perde essa configuraç

2019-09-25 04:52:11 +0100 Resposta comentada Manter formatação da planilha de destino quando se envia dados em oculto

Caro Gilberto, também fiz pela gravação de início, porém testei e não surte efeito. A planilha de destino abre em oculto

2019-09-25 03:53:15 +0100 Medalha recebida  Pergunta notável (fonte)
2019-09-25 03:52:51 +0100 Marcada como a melhor resposta Animação de texto

Como criar caixa de texto com animação igual na planilha anexa? Mais especificamente na "Planilha7" ps: baixei essa planilha neste site, não lembro de quem.

C:\fakepath\teste.ods

2019-09-25 01:42:33 +0100 Perguntou Manter formatação da planilha de destino quando se envia dados em oculto

Manter formatação da planilha de destino quando se envia dados em oculto Possuo uma macro que envia dados para planilha

2019-09-23 22:43:39 +0100 Resposta comentada Animação de texto

Mas como posso vincular isso a uma célula? Funcionou quando inseri uma caixa de texto pelo Inserir/Caixa de Texto. Quand

2019-09-23 22:27:54 +0100 Pergunta comentada Copiar para Área de Transferência

Engraçado. Testei aqui agora. Quando seleciono uma célula dentro do intervalo a copiar e clico em Copiar não funciona, m

2019-09-23 05:39:33 +0100 Pergunta comentada Copiar para Área de Transferência

Gilberto, aproveitando sua boa vontade, creio que vi uma planilha que vc anexou, salvo engano, onde havia uma caixa de t

2019-09-23 05:38:29 +0100 Perguntou Animação de texto

animação de texto Como criar caixa de texto com animação igual na planilha anexa? Mais especificamente na "Planilha7" ps

2019-09-23 05:31:22 +0100 Pergunta comentada Copiar para Área de Transferência

Gilberto, aproveitando sua boa vontade, creio que vi uma planilha que vc anexou, salvo engano, onde havia uma caixa de t

2019-09-23 05:06:55 +0100 Pergunta comentada Copiar para Área de Transferência

Obrigado pelo retorno Gilberto. Depois que vc falou, fiz o teste em outra planilha também e funcionou, porém, na planilh

2019-09-23 05:06:34 +0100 Pergunta comentada Copiar para Área de Transferência

Obrigado pelo retorno Gilberto. Depois que vc falou, fiz o teste em outra planilha também e funcionou, porém, na planilh

2019-09-23 05:05:54 +0100 Pergunta editada Copiar para Área de Transferência

Copiar para Área de Transferência Minha dúvida parece simples, mas ainda não encontrei algo que a resolvesse. Possuo uma

2019-09-22 19:18:40 +0100 Perguntou Copiar para Área de Transferência

Copiar para Área de Transferência Minha dúvida parece simples, mas ainda não encontrei algo que a resolvesse. Possuo uma

2019-08-08 22:52:41 +0100 Resposta comentada Macro salvar em PDF alterando layout da página da planilha

Vlw amigo! Resolveu! Grato

2019-08-08 22:52:18 +0100 Marcada como a melhor resposta Macro salvar em PDF alterando layout da página da planilha

Olá,

Possuo uma planilha que uma vez por mês pretendo salvar as alterações da planilha de dados transformando em PDF. Depois ela vai ser condensada perdendo os dados lançados no mês. Além disso, em outra planilha, no mesmo arquivo, há requerimentos que são impressos em modo retrato. Existe macro para exportar em PDF a planilha de dados em modo paisagem sem ter que interferir nas configurações de página da planilha? Tentei achar algo que me ajudasse mas ainda não encontrei.

Grato desde já!

2019-08-08 17:41:08 +0100 Medalha recebida  Pergunta popular (fonte)
2019-08-08 05:36:58 +0100 Perguntou Macro salvar em PDF alterando layout da página da planilha

Macro salvar em PDF alterando layout da página da planilha Olá, Possuo uma planilha que uma vez por mês pretendo salvar

2019-08-08 05:20:27 +0100 Resposta comentada Macro para salvar e abrir em PDF

Tenho uma macro que salva em PDF com destino, nome e páginas variáveis. Se por exemplo eu colocar em uma célula A1 o ca