• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

JTualufo

Gravacao de dados nas planilhas

7 mensagens neste tópico

Boas, como não consegui produzir relatorios dinâmicos para o meu programa de logística, pensei em simular um nas planilhas do exel... a ideia consiste em lançar dados dos text e comboboxes para células de um worksheet e preencher espaços do relatorio simulado...

obrigado mais uma vez pela ajuda amigo! tenho a certeza que me safas dessa...  ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Para essa sua dúvida, terias que expor um exemplo prático para melhor compreensão.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

viva, na verdade eu tentei correr o seguinte código:

Private Sub cmdAdd_Click()

Application.StatusBar = "Gravando..."

DoEvents                                                               

    Dim iRow As Long                                                 

    Dim ws As Worksheet                                           

   

    Set ws = Worksheets("seguimento")

   

    iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

    ws.Cells(iRow, 1).Value = Me.txtPrograma.Value     

                                         

    End Sub     

ele funciona mas não de acordo com as minhas necessidades. eu preciso que  o valor do txtprograma caia, por exemplo, na célula J14 e o valor dum txtdata caia na célula H16... não sei se fui explicito.               

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se quiseres que esse vai caia numa celula que tu desejas é só indicares que esses valores vais queres naquela celula...

Por ex:  ws.Cells("F1").Value = Me.txtPrograma.Value

Ps: Esta instrução não foi testada pode conter algum erro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isso mesmo, ser for numa referência fixa, tipo:

    ws.Range("J14") = Me.txtPrograma.Value

    ws.Range("H16") = Me.txtdata.Value

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado amigos, a vossa colaboracao me ajudou muito... consegui produzir os relatorios

o codigo que funcionou foi o seguinte:

Dim re As worksheet

set re = Worksheets ("Sheet1")

re.Cells(x, y ).Value = Me.txtPrograma      ' onde x eh o numero da linha e y da coluna.

aquele abraxo !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Fico feliz que tenha conseguido.

De minha parte disponha, na medida do possível.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora