locked
Transferir valores de formulário para planilha RRS feed

  • Pergunta

  • Boa noite.
    Mais uma vez venho procurar ajuda.
    É o seguinte:
    Tenho um formulário (em excel) semelhante a imagem abaixo,

                   
    Designação Alexandre            
    Sede  Social Rua ou Avenida            
    Localidade localidade            
    Código Postal localidade          E-mail 123@456789,01  
    Freguesia Freguesia     Telefone 123 456 789  
    Concelho Concelho     Telefone 234 567 891  
    Distrito Distrito     Telemóvel 345 678 912  
    Código D.C.F 010101   Fax 456 789 123  
                   

    e pretendo passar a informação que se vai inserindo para uma outra planilha do tipo:

      Designaçao Sede Social Localidade Cod Postal Freguesia Concelho Distrito Cod D.C.F E-mail Telef.1 Telef.2 Telem Fax
    1 Alexandre  Rua Localidade  ...   ...  ...  ...  ...          
    2 Barreiros                        
    3                          
    4                          
    5                          

    de forma a que os valores vão ficando gravados em cada uma das linha desta planilha, linha 1, depois linha 2, depois linha 3 ....
    Fico agradecido se algum amigo me poder ajudar.
    domingo, 9 de agosto de 2009 23:18

Todas as Respostas

  • Boa noite,
    Acredito que o teu principal problema seja determinar a linha em que os valores serão inseridos.
    Se for isso vc pode utilizar uma rotina com esta aqui
    Sub TransferirValores()
    'Definir a planilha que receberá os valores
    Set ws = Sheets("Dados")
    'Determinar a linha de ws que receberá as informações
    InsertRow = ws.Cells(Rows.Count, 1).End(xlUp) + 1
    'Relacionar os valores dos elementos do formulário
    'com as respectivas colunas de ws
    With Me
    ws.Cells(InsertRow, 1) = .ListBox1.Value
    ws.Cells(InsertRow, 2) = .TextBox1.Value
    '....e assim por diante...
    End With
    
    End Sub

    Adilson Soledade - MOS
    segunda-feira, 10 de agosto de 2009 01:20
  •           A         B      C       D        E       F      G   H
      1                
      2 Número    0018     N.I.F.    123 456 789  
      3                
      4 Designação   Alexandre            
      5 Sede  Social   Sede            
      6 Localidade   Local            
      7 Código Postal   CP   E-mail     123@abcd.pt  
      8 Freguesia   Freg     Telefone    A23456789  
      9 Concelho   Conc     Telefone    B23456789  
     10 Distrito   Dist     Telemóvel    C23456789  
     11 Código D.C.F   DCF   Fax    D23456789  
     12                
                             Folha3

            A       B        C       D         E       F       G        H        I       J       K         L      M
      1 Número N.I.F. Designação Sede  Social Localidade Código Postal Freguesia Concelho Distrito Telefone Telefone Telemóvel Fax
      2   0018 504102125  Alexandre =Folha3!B5 =Folha3!B6 =Folha3!B7  ...  ...  ...  ...  ... ... ...
      3   0023  ...  ...   ...     ...   ...  ...  ...  ...  ...  ...    
      4   0032                        
      5   0041                        
      6   0057                        
                              Folha4
    Adilson:
    Agradeço a tua informação, mas como não sou muito entendido nestas coisas, não consegui perceber como ou onde colocar aquela rotina.
    Indo ao caso concreto:
    O que eu pretendia era que, ao inserir dados no quadro de cima (formulário colocado na Folha3), houvesse a possibilidade de transferir esses valores para o quadro de baico (base de dados colocada na Folha 4).
    Actualmente faço isso manualmente, usando "copiar" e "colar". Pensei que podesse existir uma forma automática de: 
    1 - transferir os dados inseridos na Folha 3 para o quadro na Folha 4.
    2 - inserir novos dados na linha imediatamente a seguir. 
    Eu ainda coloquei a rotina que me enviaste no VBA da Folha3, mas não deu certo (burrice minha com certeza).
    O meu muito obrigado antecipadamente.
    segunda-feira, 10 de agosto de 2009 11:55
  • Obrigado Adilson, esta fórmula de incremento valu para mim também num preenchimento de planilha Excel através de formulário VBA.
    Grato, gbarbalho.
    sábado, 26 de setembro de 2009 16:39
  • Em tempo, também agradeço ao Amadosgest pelo questionamento em hora oportuna!
    Grato, gbarbalho
    sábado, 26 de setembro de 2009 16:41
  • gbarbalho sera que vc me pode explicar como fez para o código funcionar?
    comigo nao funcionou.
    O que devo substituir no código com base no exemplo que dei ???
    obrigado. 
    domingo, 27 de setembro de 2009 00:13