Ir para o conteúdo
JTualufo

Gravacao de dados nas planilhas

Mensagens Recomendadas

JTualufo    0
JTualufo

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...  ;)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JTualufo    0
JTualufo

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.               

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbtipo    0
vbtipo

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...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
joseA    0
joseA

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

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

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JTualufo    0
JTualufo

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 !

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade