Pergunte aqui
1

Como inserir dados na planilha a partir de uma caixa de texto, caixa de data??

perguntadas 2017-06-21 20:00:44 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Boa tarde, tentei fazer uma macro que insere os dados na tabela a partir da caixa de texto , caixa de data... etc.. porem nao obtive resultado. Consegui a parti da caixa de dialogo, mas nao é o que eu preciso. Como fazer essa macro que insere os dados na planilha? E se possivel, gostaria que essa tabela ai seja na plan "Hoja3" Descrição da imagem

Nessa imagem mostra melhor como quero... tentei com essa macro ai, que o amigo @Beto me mandara.., pórem antes mesmo de adaptar ela dava o mesmo erro que esse ai. Alguem saberia corrigi-lo? ficaria grato.

Descrição da imagem

@Grafeno esse é o erro que surge quando executo. fiz tudo o quanto voce pediu.

Descrição da imagem

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

3 Respostas

1

respondidas 2017-06-21 22:39:13 +0200

imagem do gravatar de Beto

Sugiro ir em meu blog e dar uma olhada no artigo com um arquivo que deixei para Download e analisar o mesmo. Mas, antes veja esta resposta de nosso colega @Grafeno para mim, a qual inspirou-me a refazer a macro para o arquivo de meu referido artigo.

editar assinalar como ofensivo Excluir Link mais

Comentários

Acho que esta ajuda também.

imagem do gravatar de BetoBeto ( 2017-06-21 22:41:53 +0200 )editar

Muito Obrigado pela ajuda. Baixei seus arquivos, são muito bons!! Ainda nao analisei a fundo, mas assim que puder, o farei. Teve uma resposta do Grafeno ai que vc mandou que acho qeu vai funcionar pro que eu quero tbm.. Mas uma vez, muito obrigado!!

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-22 13:59:06 +0200 )editar

Obrigado, também.

imagem do gravatar de BetoBeto ( 2017-06-22 14:04:34 +0200 )editar

Agradeço pela sua atenção, mas nao consegui adaptar sua planilha para a minha.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-22 21:45:43 +0200 )editar

Suas planlhas, Beto, são muito boas, porem eu queria uma macro mais simples.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-22 21:50:53 +0200 )editar

Caro @Tarcisio, qual foi sua dificuldade?

imagem do gravatar de BetoBeto ( 2017-06-25 03:02:49 +0200 )editar

Algumas formulas que nao estou acostumado. Também pq nao vi o passo a passo. Se eu nao me engano vi que no se Blog tem as video-aulas... porem nao tive tempo de olhá-las.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-29 21:37:20 +0200 )editar

Acabei de subir este vídeo Não explica tudo, mas é o começo penso em fazer mais na sequencia.

imagem do gravatar de BetoBeto ( 2017-06-30 04:18:02 +0200 )editar
1

respondidas 2017-06-24 15:51:12 +0200

imagem do gravatar de Grafeno

Bom dia,


Olhando as imagens, acredito que esteja procurando o seguinte:

Sub botInserir( oEvento ) 
Dim oDoc, oDados, oFormulario, oData
Dim sNome as String, sData as String

   oFormulario = oEvento.Source.Model.Parent
   oNome = oFormulario.getByName( "Caixa de texto 1" )
   oData = oFormulario.getByName( "Campo de data 1" )
   sNome = oNome.Text
   sData = oData.Text

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

   Dim lin
   lin = 1   
   Do Until oDados.getCellByposition( 0,lin ).String = ""
      lin = lin + 1
   Loop

   oDados.getCellByPosition( 0,lin ).String = sNome
   oDados.getCellByPosition( 1,lin ).String = sData

   oNome.Text = ""
   oData.Reset()
End Sub

Para funcionar é preciso que seja associada ao Evento Executar ação do botão de pressão do formulário. E os nomes Caixa de texto 1 e Campo de data 1 substituídos pelos nomes de seus controles.


Nessa imagem mostra melhor como quero... tentei com essa macro ai, que o amigo @Beto me mandara.., pórem antes mesmo de adaptar ela dava o mesmo erro que esse ai. Alguem saberia corrigi-lo? ficaria grato.

Uma das razões do erro é que o código foi feito para o controle Botão de Seleção de Arquivo, que é um controle especial, com o objetivo de fazer referência a ele mesmo a partir do evento. No seu caso, por outro lado, é preciso que do evento do botão de pressão ascendamos ao fomulário para conseguir "pegar" cada controle pelo seu nome. Veja:

  • Referência ao próprio botão seleção de arquivo: oSelArquivo = oEvento.Source
  • Referência ao fomulário dentro do botão de pressão: oFormulario = oEvento.Source.Model.Parent


Obs.:
Para completar a informação, temos outra forma de chegar ao formulário numa planilha no Calc sem depender do evento de um controle:

oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "Planilha1" )
oFormulario = oPlan.DrawPage.Forms.getByName( "Formulário" )


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Boa tarde, aprensentou um erro. Editei a pegunta e coloquei a imagem contendo o erro.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-28 19:02:03 +0200 )editar

Boa tarde, @tarcisiopimenta07! Geralmente aquele erro é porque o nome fornecido no código não está exatamente igual ao dado ao controle na janela propriedade. Na imagem anterior que vc postou, a caixa de texto estava com o nome oSelArquivo. Vc fez a mudança?

imagem do gravatar de GrafenoGrafeno ( 2017-06-28 19:49:46 +0200 )editar

Fiz sim, quis colocar um padrao.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-29 21:33:22 +0200 )editar

@Grafeno teria alguma possibilidade de eu te passar o arquivo? algum email, talvez.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-29 21:34:05 +0200 )editar

@tarcisiopimenta07, vc pode anexar o arquivo, sem dados confidenciais, na sua pregunta, pelo ícone "clipe" no campo de edição da pergunta.

imagem do gravatar de GrafenoGrafeno ( 2017-06-29 22:32:48 +0200 )editar
1

respondidas 2017-06-22 23:50:23 +0200

Ola, @tarcisiopimenta07, veja se é isto que necessita....

Arquivo teste

editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigado @Gilberto Schiavinatto funcionou, porem, não querendo ser chato, quero uma macro mais enxuta. rsrs Vou editar o post e colocar uma nova imagem, explicando melhor como quero.

imagem do gravatar de tarcisiopimenta07tarcisiopimenta07 ( 2017-06-23 15:35:02 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-06-21 20:00:44 +0200

Lidas: 73 vezes

Última atualização: Jun 28