Perfil de Marcelo Caldas - atividade

Bom dia. Tenho uma planilha que faz um monte de coisas aqui. Estou tentando deixar ela mais agradavel ao usuário.Não quero que ela fique pulando de planilhas em planilha e executando os cálculos na frente de todos.

Eu tenho essa rotina

Sub CopiarFormula (xCel As String, xRange As String)
  document   = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  dim Copia(0) as new com.sun.star.beans.PropertyValue
  Copia(0).Name = "ToPoint"
  Copia(0).Value = xCel
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, Copia())
  dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
  dim Cola1(0) as new com.sun.star.beans.PropertyValue
  Cola1(0).Name = "ToPoint"
  Cola1(0).Value = xRange
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, Cola1())
  dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
End Sub

onde xCel é a célula com a fórmula e xRange é onde quero que ele a cole.

Gostaria de chamar a rotina da seguinte forma:

Sub CopiarFormulaI (xPlan As String, xCel As String, xRange As String)

onde xPlan seria a planilha em que ele faria isso, dessa forma, não precisaria ter essa planilha ativa no momento da execução da rotina.

Obrigado

Vou te mandar por email então, não sei como faz pra disponibilizar aqui. criei uma simplesinha so com as funções necessá

Mas a macro ainda continuaria indo e voltando nas planilhas. o que eu quero fazer é que a pessoa clique no botão de exec

Mas a macro ainda continuaria indo e voltando nas planilhas. o que eu quero fazer é que a pessoa clique no botão de exec

Obrigado pela Sugestão Gilberto. A forma que vc usou me deu umas ideias pra melhorar algumas macros minhas. Mas neste ca

Arrastar fórmula sem visualizar a planilha. Bom dia. Tenho uma planilha que faz um monte de coisas aqui. Estou tentando

Resolvi isso aqui. caso alguem precise, é só falar.

Eu tenho essa aqui: Sub ReadTXT Dim sFileName, Number As String i2 = 2 Sheets("Origem").Select

Eu tenho essa aqui: Sub ReadTXT Dim sFileName, Number As String i2 = 2 Sheets("Origem").Select Caminho

no meu caso, quando vou apagar alguma coisa quero limpar tudo mesmo. uso uma mesma coluna para copiar e colar valores, f

achei esse complemento ào codigo do Junio Veira: ThisComponent.Sheets(Conj).GetCellRangeByName("E2:E20000").ClearConten

Bom dia, Novamente preciso de ajuda, he he.

Estou convertendo todas as minhas macros para o Basic puro (acho que é essa a nomenclatura), pois usava partes de códigos do VBA. Daí naõ conseguia colocar senhas nas macros, e com a ultima atualização do Libre, tive que mudar um bocado de coisa. Mas, to usando o seguinte comando para limpar partes da minha planilha:

  sub MAIS
  dim document   as object
  dispatcher as object
  document   = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())
  end sub

(Antes, com duas linhas eu fazia isso)

Peguei esse comando usando o Gravar macro.

acontece que ao usá-lo ele mostra uma caixa de seleção pedindo para selecionar algumas opções.

Estava usando antes a linha

  dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())

Que não me retorna caixa de diálogos. (e funciona tb muito bem.)

ao invés de

  dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())

Pelo que percebi, a segunda opção é melhor que a primeira, pois ao ClearContents e escrever fórmulas no mesmo local, costuma dar um erro onde a macro escreve a formula mas não retorna o resultado.

Por isso preciso dela mesma.

Então, Como faço pra não aparecer a caixa diálogos? tem jeito?

Muitíssimo Obrigado

Perfeito. Com essa linha de comando vou reduzir minha macro um bocado. Me ajudou demais. Muito Obrigado.

Caixa de diaologo durante a macro Bom dia, Novamente preciso de ajuda, he he. Estou convertendo todas as minhas macros

Caixa de diaologo durante a macro Bom dia, Novamente preciso de ajuda, he he. Estou convertendo todas as minhas macros

Caixa de diaologo durante a macro Bom dia, Novamente preciso de ajuda, he he. Estou convertendo todas as minhas macros

Caros Senhores,

Preciso fazer uma macro que verifique a condição "erro" na coluna D e copie o conteúdo de A#:D# para outro arquivo do Libre calc, renomeado com a data atual mais uma Tag que defino depois. Tipo 20180822_Pendencias.ods. Na minha planilha existem uns 500 registros. Isso diariamente.

Conheço muito pouco dessa Linguagem. Consegui procurando na net até copiar o que eu quero e jogar em outra planilha, mas não sei como nomeá-la e nem mantê-la fechada. vou martelando e dando jeito, mas desa vez eu desisti. hehe

Não é a melhor solução mesmo. Mas no meu caso, no ultimo comando da macro ela copia uma quantidade grande de dados. Quer

Perfeito. Obrigado.

Bom dia.

Gostaria de ajustar o tamanho da coluna via macro. Preciso ajustar uma coluna de acordo com o tamanho do texto dentro dela. É dar o duplo clique na divisão das colunas. Pela gravação de macro não da nada.

Obrigado

Ajustar tamanho da coluna Bom dia. Gostaria de ajustar o tamanho da coluna via macro. Preciso ajustar uma coluna de aco

Achei que tinha um comando pra fazer isso. mas ta certo. so mandar copiar uma celula vazia que me resolve. Acho que ess

Limpar area transferencia Gostaria de saber como limpar a área de transferencia ao copiar celulas. Tentei usar o A

Sub ImportarTXT() Macro que converte txt em plannilha. Ela pega todos os txt de uma pasta e gera arquivo ods com