Enviar dados Caixa de Texto para celula planilha

evaldo · October 2, 2019, 10:55am

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…FORM4.ods
Muito obrigado !!!

Complemento

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

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

modelo1.ods

schiavinatto · October 2, 2019, 11:44am

Ola @evaldo, de uma olhada aqui:

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

evaldo · October 2, 2019, 1:02pm

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.FORM4.ods, ficaria grato.

Obrigado !

schiavinatto · October 6, 2019, 5:40pm

@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: Gravar informações de caixa dialogo para as celulas...

evaldo · October 8, 2019, 9:37pm

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

anderson · October 10, 2019, 1:12pm

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 !

schiavinatto · October 10, 2019, 1:42pm

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…

anderson · October 11, 2019, 2:25pm

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 !

Conras · October 11, 2019, 2:32pm

@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

Conras · October 11, 2019, 4:15pm

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

anderson · October 11, 2019, 4:27pm

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

schiavinatto · October 9, 2019, 3:47am

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 na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

Conras · October 9, 2019, 10:55am

@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

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

anderson · October 11, 2019, 2:24pm

Combobox que não lista os itens.

Campo: Filial = Combobox1

modelo_cancelamento.ods