Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Procurar linha para...
 
Notifications
Clear all

Procurar linha para gravar dados

 
2024 - VBA & Macros
Post Recente por bilokas 11 anos atrás
3 Posts
2 Usuários
0 Reactions
708 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Amigos, estou quebrando a cabeça para achar uma solução para meu problema, mas não estou conseguindo.

A situação é a seguinte:
Imaginem um formulário onde posso gravar 2 tipo de informação (contrato e termo aditivo), mas não necessariamente ao mesmo tempo, ou seja, posso gravar primeiro o contrato e depois o termo aditivo, caso haja.
Na parte do termo aditivo, tenho um campo "REFERENTE AO CONTRATO" para o usuário informar número/ano.

Agora imagine que 1 único contrato pode ter até 10 termos aditivos, ou seja, o contrato é sempre o mesmo, logo o termo aditivo é sempre referente ao mesmo número de contrato. O que vai mudando é o número do termo aditivo.

Estou precisando fazer que o formulário verifique o campo "REFERENTE AO CONTRATO" e grave as informações do termo aditivo na mesma linha onde está o contrato referido.

Só para completar, entenda que a organização dos dados na planilha é assim: nas colunas A1 x J1 ficam as informações do contrato, nas colunas K1 x T1 ficam as informações do 1º termo aditivo, U1 x AD1 ficam as informações do 2º termo aditivo e assim por diante.

 
Postado : 29/11/2013 7:12 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Você poderia postar um arquivo modelo?

Att

 
Postado : 01/12/2013 5:28 pm
 bilokas
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Eu tenho a seguinte rotina para cadastrar os dados (abaixo um pequeno exemplo):

Private Sub btn_Cadastrar_Click()
Dim lin As Integer

'SELECIONA PLANILHA E PROURA LINHA PARA GRAVAR DADOS
If Range("A3") = "" Then
lin = 3
    Else
    Range("A1").Select
    Selection.End(xlDown).Select
    lin = ActiveCell.Row + 1
End If

'INSERE DADOS NA PLANILHA
Sheets("contrato&garantia").Cells(lin, 1).Value = Me.txt_C_Numero.Value & "/" & Me.txt_C_Ano.Value
Sheets("contrato&garantia").Cells(lin, 2).Value = Me.txt_C_Processo.Value
Sheets("contrato&garantia").Cells(lin, 3).Value = Me.txt_C_Beneficiario.Value
Sheets("contrato&garantia").Cells(lin, 4).Value = Me.cbo_C_Modalidade.Value
Projeto Daniele - ultimo teste.rar
 
Postado : 02/12/2013 6:46 am
Forum Jump:
  Tópico Anterior
Próximo Tópico