Pergunte aqui

Perfil de Tandy - atividade

2018-08-13 17:09:37 +0100 Medalha recebida  Pergunta famosa (fonte)
2018-08-13 17:09:37 +0100 Medalha recebida  Pergunta notável (fonte)
2018-04-16 20:06:41 +0100 Medalha recebida  Pergunta notável (fonte)
2018-04-16 20:06:33 +0100 Medalha recebida  Pergunta famosa (fonte)
2017-11-06 01:44:50 +0100 Medalha recebida  Autodidata (fonte)
2017-11-06 01:44:50 +0100 Medalha recebida  Professor (fonte)
2017-11-03 20:08:41 +0100 Medalha recebida  Pergunta notável (fonte)
2017-11-03 13:54:41 +0100 Marcada como a melhor resposta Onde salvar as macros Basic ?

Oi pessoal, sou eu de novo, refiz uma planilha duas vezes hoje, primeiramente eu salvei o código basic na própria planilha e quando fechei ela e abri novamente, tinha sumido como da outra vez. Então refiz e salvei o código basic nas "Minhas Macros" local público e o código continua lá, não sumiu.

Eis o problema, eu criei dois botões, cada um com uma função e sempre que eu fecho a planilha e abro novamente os botões estão desconfigurados, tanto a fonte do rótulo que eu alterei quanto a macro que eu vinculei neles não estão mais.

Como faço para salvar essa planilha de forma que eu possa enviar para alguém e esse alguém possa abrir ela com tudo funcionando?

  • Estou usando a versão LibreOffice 5.2.3.3, salvando em .ods, estou abrindo esse arquivo apenas com o libreoffice.
2017-11-03 13:54:37 +0100 Respondeu uma pergunta Onde salvar as macros Basic ?

Eu refiz a planilha do zero e está funcionando agora. O arquivo deve ter corrompido realmente. Obrigado!

2017-11-01 14:55:23 +0100 Pergunta comentada Onde salvar as macros Basic ?

Tentei fazer dessa forma, a macro continua a desvincular-se das formas geométricas... É só com essa planilha que isso ac

2017-11-01 12:21:32 +0100 Medalha recebida  Pergunta popular (fonte)
2017-10-31 12:02:58 +0100 Pergunta editada Onde salvar as macros Basic ?

Onde salvar as macros Basic ? Oi pessoal, sou eu de novo, refiz uma planilha duas vezes hoje, primeiramente eu salvei o

2017-10-30 21:58:42 +0100 Perguntou Onde salvar as macros Basic ?

Manter Basic Oi pessoal, sou eu de novo, refiz uma planilha duas vezes hoje, primeiramente eu salvei o código basic na p

2017-10-30 18:15:50 +0100 Resposta comentada If #VALOR! then

Muito Obrigado!!!

2017-10-30 18:15:38 +0100 Marcada como a melhor resposta If #VALOR! then

Boa tarde pessoal! Estou precisando verificar se uma célula contém o erro "#VALOR!" como faço para fazer essa comparação no basic? Para finalizar a pergunta, será assim: Se H6 for igual a "#VALOR!" então oculte a coluna H. Alguém poderia me ajudar?

2017-10-28 22:18:07 +0100 Medalha recebida  Pergunta popular (fonte)
2017-10-28 02:08:43 +0100 Medalha recebida  Pergunta popular (fonte)
2017-10-27 22:27:13 +0100 Perguntou If #VALOR! then

If #VALOR! then Boa tarde pessoal! Estou precisando verificar se uma célula contém o erro "#VALOR!" como faço para fazer

2017-10-27 14:22:43 +0100 Pergunta editada Minha Macro sumiu!

Minha Macro sumiu! Salvei minha macro na pasta de trabalho da própria planilha e agora sumiu! Vejo apenas as macros de o

2017-10-27 12:46:07 +0100 Pergunta editada Minha Macro sumiu!

Minha Macro sumiu! Salvei minha macro na pasta de trabalho da própria planilha e agora sumiu! Vejo apenas as macros de o

2017-10-27 12:37:54 +0100 Pergunta editada Minha Macro sumiu!

Minha Macro sumiu! Salvei minha macro na pasta de trabalho da própria planilha e agora sumiu! Vejo apenas as macros de o

2017-10-26 19:56:58 +0100 Medalha recebida  Entusiasta
2017-10-25 21:27:45 +0100 Perguntou Minha Macro sumiu!

Minha Macro sumiu! Salvei minha macro na pasta de trabalho da própria planilha e agora sumiu! Vejo apenas as macros de o

2017-10-25 15:25:05 +0100 Marcada como a melhor resposta Incluir/Substituir valor em uma cécula - Basic

Bom dia Pessoal! Vocês já me ajudaram uma vez e estou precisando de novo de vocês.

Estou precisando incluir uma string em uma célula se uma condição for atendida, qual a função para incluir ou substituir o valor de uma célula no Basic?

Um exemplo do que eu quero:

If ThisComponent.Sheets(0).getCellRangebyName(X).string = 31 then
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "IMPAR" 'Essa atribuição, como faço? Eu sei atribuir um valor a uma variável mas não a uma célula'
Else
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "PAR"
2017-10-25 14:38:52 +0100 Medalha recebida  Estudante (fonte)
2017-10-25 14:07:25 +0100 Pergunta editada Incluir/Substituir valor em uma cécula - Basic

Incluir/Substituir valor em uma cécula - Basic Bom dia Pessoal! Vocês já me ajudaram uma vez e estou precisando de novo

2017-10-25 14:04:21 +0100 Pergunta editada Incluir/Substituir valor em uma cécula - Basic

Incluir/Substituir valor em uma cécula - Basic Bom dia Pessoal! Vocês já me ajudaram uma vez e estou precisando de novo

2017-10-25 14:02:58 +0100 Medalha recebida  Pergunta notável (fonte)
2017-10-25 14:02:26 +0100 Perguntou Incluir/Substituir valor em uma cécula - Basic

Incluir/Substituir valor em uma cécula - Basic Bom dia Pessoal! Vocês já me ajudaram uma vez e estou precisando de novo

2017-10-18 15:43:46 +0100 Marcada como a melhor resposta CreateNames

Bom dia! Preciso saber qual código no Basic utilizo para criar um intervalo nomeado. Tentei gravar uma macro fazendo isso de várias formas mas não aparece o código na macro e nem faz a gravação depois que executo a macro. Preciso do código pois irei personalizar essa função.

Meu intuito é criar um botão que faça várias nomeações de intervalos com determinados critérios em um loop.

Segue abaixo o código desse loop no excel, estou tentando passar para o libre mas não estou conseguindo:

"Private Sub CommandButton1_Click()

Dim n As Long
Dim i As Long
Dim m As Long
Dim linha As String
Dim linhai As String
Dim linham As String
Dim intervaloinicial As String
Dim intervalofinal As String
Dim intervalo As String

i = 1
n = 2
m = 3
linha = "I" & n
linham = "I" & m

While Not IsEmpty(Range(linham).Value)

While Sheets("CORES E TAMANHO LUPO").Range(linha).Value = Sheets("CORES E TAMANHO LUPO").Range(linham).Value

linha = "I" & n
linhai = "I" & i
linham = "I" & m

    If Sheets("CORES E TAMANHO LUPO").Range(linhai).Value <> Sheets("CORES E TAMANHO LUPO").Range(linha).Value Then
    intervaloinicial = "J" & n
    End If
    If Sheets("CORES E TAMANHO LUPO").Range(linha).Value <> Sheets("CORES E TAMANHO LUPO").Range(linham).Value Then
    intervalofinal = "J" & n
    End If

n = n + 1
i = i + 1
m = m + 1

Wend

intervalo = intervaloinicial & ":" & intervalofinal
ActiveWorkbook.Names.Add Name:=Sheets("CORES E TAMANHO LUPO").Range(linha).Value, RefersToR1C1:=intervalo
ActiveWorkbook.Names(Sheets("CORES E TAMANHO LUPO").Range(linha).Value).Comment = ""

linha = "I" & n
linham = "I" & m

Wend

End Sub"

.

Passei o a tarde tentando e conseguir chegar a isso, mas falta inserir o nome do intervalo direto, coisa que não estou conseguindo:

 "sub Main
 rem ----------------------------------------------------------------------
 rem define variables
 dim document   as object
 dim dispatcher as object
 dim intervalo as String
 dim x as Long
 dim y as Long
 rem ----------------------------------------------------------------------
 rem get access to the document
 document   = ThisComponent.CurrentController.Frame
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 x = 2
 y = 5
 intervalo = "$J$" & x & ":$J$" & y

 rem ----------------------------------------------------------------------
 dim args1(0) as new com.sun.star.beans.PropertyValue
 args1(0).Name = "ToPoint"
 args1(0).Value = intervalo

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

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

 end sub"
2017-10-18 15:43:46 +0100 Medalha recebida  Acadêmico (fonte)
2017-10-17 12:22:11 +0100 Resposta comentada CreateNames

Muito obrigado!!! Consegui fazer o loop para nomear vários intervalos automaticamente com um botão.

2017-10-17 03:21:58 +0100 Medalha recebida  Pergunta popular (fonte)
2017-10-16 23:05:08 +0100 Medalha recebida  Editor (fonte)
2017-10-16 23:05:08 +0100 Pergunta editada CreateNames

CreateNames Bom dia! Preciso saber qual código no Basic utilizo para criar um intervalo nomeado. Tentei gravar uma macro

2017-10-16 16:04:28 +0100 Pergunta editada CreateNames

CreateNames Bom dia! Preciso saber qual código no Basic utilizo para criar um intervalo nomeado. Tentei gravar uma macro

2017-10-16 15:57:25 +0100 Respondeu uma pergunta Erro na execução do Libre

Já viu esse video pra ver se ajuda: https://www.youtube.com/watch?v=PDgQdTLER7s

2017-10-16 15:45:38 +0100 Perguntou CreateNames

CreateNames Bom dia! Preciso saber qual código no Basic utilizo para criar um intervalo nomeado. Tentei gravar uma macro