Pergunte aqui
0

Enviar dados Caixa de Texto para celula planilha

perguntadas 2019-10-02 12:55:56 +0200

imagem do gravatar de evaldo

updated 2019-10-09 05:44:12 +0200

Olá.

Tenho uma caixa diálogo com várias caixas de texto, onde cada uma delas tem sua célula correspondente para receber os dados. Nao precisa de loop para saber a celula vazia seguinte, somente enviar dados para cada célula. O contrário eu fiz facilmente que é a caixa de texto receber os dados das células, para ver os últimos dados inseridos, mas queria criar um botão para enviar os dados da caixa de texto para as células da planilha ENTRADA_DADOS, de forma mais simples possível de entender. Uma outra dúvida seria como preencher os combobox com dados de um intervalo da planilha BD para selecionar a opção desejada.

Cada linha da planilha (Entrada_dados ) corresponde a uma linha ( Documento ) da caixa dialogo. O exemplo está anexo...C:\fakepath\FORM4.ods Muito obrigado !!!

Complemento

Erro de execução do Basic Variavel do Objeto nao definida

Linha 47 - args2(0).Value = oT1.Text

C:\fakepath\modelo1.ods

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @evaldo, de uma olhada aqui:

https://ask.libreoffice.org/pt-br/que...

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-10-02 13:44:14 +0200 )editar

Obrigado Gilberto..

Eu ja havia visto esse tutorial e o exemplo anexo, mas nao me atendeu na necessidade e nao consegui interpretar o código para implementar na minha planilha,na verdade eu nao consegui enxergar no código o nome das celulas que irão receber os dados das caixas de texto, pois sou novo em libreoffice. Entendo razoavelmente de VBA ( Excel ) e é facílimo o código para executar essa tarefa em código, uma linha de script para cada textbox,no entanto preciso migrar de Office para Libre. Se alguem puder ajudar no exemplo que postei,somente fazer uma parte o resto eu tento desenvolver,ficaria grato.C:\fakepath\FORM4.ods, ficaria grato.

Obrigado !

imagem do gravatar de evaldoevaldo ( 2019-10-02 15:02:05 +0200 )editar

@evaldo, no arquivo ao acionar o botão, Carregar dialogo, o dialogo traz as informações das células, OK.

Você quer altera-las e salvar nos campos correspondente, é isso ?

Semelhante a este: https://ask.libreoffice.org/pt-br/que...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-10-06 19:40:34 +0200 )editar

Boa noite.. Exatamente ! Eu consegui adaptar e comecei a desenvolver, porém quando coloco no código na Sub readDialog1() constando o Call DialogoParaPlanilha "CombBox1"dá erro na linha 47ao tentar gravar para planilha.Parece que o código só aceita dados de textfield. Tem que criar alguma váriavel ou coisa parecida, mas nao consegui proseguir.Anexei o Arquivo adaptado que dá esse erro logo em baixo, na resposta; Se alguem puder ajudar...

Erro de execução do Basic Variavel do Objeto nao definida

Linha 47 - args2(0).Value = oT1.Text

imagem do gravatar de evaldoevaldo ( 2019-10-08 23:37:50 +0200 )editar

Perfeito.... Isso mesmo! Onde foi a mudança no codigo por favor.? Agora estou batalhando pra achar solução de povoar o combobox, ou seja, abrir a combobox e aparecer todas as lojas na relação para selecionar.

Muito obrigado !

imagem do gravatar de andersonanderson ( 2019-10-10 15:12:39 +0200 )editar

Sinceramente não sei, montei a macro conforme sugestão que dei.

Só não entendi o uso de Dialogo, se as informação da planilha são idênticas !

Qual a vantagem, fica mais bonito !!!!

Quanto aparecer todos, é só seguir o padrão, se o TextfildXX for para a célula Xy e só nomear a célula para o nome do Textfield...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-10-10 15:42:50 +0200 )editar

Ola.. É para deixar como uma aplicação profissional, a planilha ficara invisivel. Segue abaixo o modelo, o codigo esta pronto mas nao lista os itens no combobox.

Obrigado !

imagem do gravatar de andersonanderson ( 2019-10-11 16:25:53 +0200 )editar

@anderson , vc chegou a ver o código do arquivo que coloquei para abastecer meu combobox e como associei ele?

Você precisa associar a macro no momento que o combobox ganhar foco

imagem do gravatar de ConradoConrado ( 2019-10-11 16:32:45 +0200 )editar

@anderson, olha a minha resposta editada que tem seu código corrigido

imagem do gravatar de ConradoConrado ( 2019-10-11 18:15:34 +0200 )editar

Valeu Anderson, eu cometi um equivoco associei a macro ao item errado. Obrigado !

imagem do gravatar de andersonanderson ( 2019-10-11 18:27:57 +0200 )editar

3 Respostas

1

respondidas 2019-10-09 05:47:26 +0200

Ola @evaldo, de uma olhada se é isso que busca de resposta.

Arquivo teste

Ou de mais detalhes em Comentários...

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais
1

respondidas 2019-10-09 12:55:22 +0200

imagem do gravatar de Conrado

updated 2019-10-11 16:41:25 +0200

@anderson

Favor corrigir seu código para povoar seu combobox e depois associe a macro quando o mesmo receber foco

Sub AtualizaComboBox1

    Dim oDoc as Object
    Dim oDados as Object
    Dim oComboBox1 as Object
    Dim Titens, nCount as Long
    Dim Item as String

        oDoc = ThisComponent
        oDados = oDoc.Sheets.getByName("Dados")

        REM Iniciar os controles
        oComboBox1 = oDialogo.GetControl( "ComboBox1" )

        REM first remove all old items from the list
        nCount = oComboBox1.getItemCount()
        oComboBox1.removeItems(0, nCount)

        REM Povoar a Caixa de Combinação    
        For Titens = 8 to 2 step -1   
            Item = UCase(oDados.getCellByPosition(8, Titens).String)
                If Item <> "" Then
                    oComboBox1.additem(Item,0)
                End if
        Next Titens

End Sub

Descrição da imagem


Olá @evaldo e @Gilbero Schiavinatto

Segue uma planilha que elaborei para cálculo de densidade de isopores aqui para empresa.

Podem utilizar tranquilamente, pois não há nenhuma informação sigilosa. A senha de abertura das planilhas é 123.

Nesta planilha contém as macros que o @evaldo necessita.

Arquivo

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2019-10-11 16:24:12 +0200

imagem do gravatar de anderson

Combobox que não lista os itens.

Campo: Filial = Combobox1

C:\fakepath\modelo_cancelamento.ods

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-10-02 12:55:56 +0200

Lidas: 35 vezes

Última atualização: Oct 11