Perfil de vitor alves - atividade

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

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).

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

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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Vlw amigo! Resolveu! Grato

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á!

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

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