Notifications
Clear all

AJUDA! PROCURAR A MESMA LINHA PARA GRAVAR DADOS

5 Posts
2 Usuários
0 Reactions
929 Visualizações
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Galera, preciso da ajuda de vocês num projeto que estou desenvolvendo aqui para o meu trabalho.
Imaginem a seguinte rotina para cadastrar dados de um CONTRATO:

Private Sub btn_Cadastrar_Click()
Dim lin As Integer
If Range("A3") = "" Then
lin = 3 'meu cabeçalho tem 2 linhas
    Else
    Range("A1").Select
    Selection.End(xlDown).Select
    lin = ActiveCell.Row + 1
End If
    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
    Sheets("contrato&garantia").Cells(lin, 5).Value = Me.txt_C_Objeto.Value
    Sheets("contrato&garantia").Cells(lin, 6).Value = Me.txt_C_Observacao.Value
End Sub

Agora imaginem que este mesmo cotrato possui uma GARANTIA que pode ser incluída depois do cadastro do CONTRATO.
Para isso, no formulário de cadastro de garantia, tem duas TextBox (txt_ReferenteC_Numero, txt_ReferenteC_Ano).
Ao cadastrar a GARANTIA do contrato, preciso de algum código que faça a verificação dessas duas TextBox e salve os dados na mesma linha do contrato referido.

Peço encarecidamente a ajuda dos colegas do fórum. Isso é de muita importância para mim.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 06/12/2013 8:40 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use a pesquisa do fórum!!
viewtopic.php?f=10&t=1586
viewtopic.php?f=10&t=7426
outras fontes:
http://www.youtube.com/watch?v=61ggigQ7onQ
http://www.macoratti.net/10/11/vba_ccli2.htm
http://guiadoexcel.com.br/cadastro-vba-no-excel
http://www.macoratti.net/vba_cum.htm

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/12/2013 8:47 am
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Obrigado pela resposta alexandrevba, eu usei a pesquisa do fórum, mas não encontrei nada. E se você reparar bem no que eu estou pedindo ajuda não é sobre INCLUIR OU ALTERAR.

É sobre incluir a partir de. Ou seja, tenho um formulário, e nele tenho duas TextBox, onde informo o número de contrato e ano, e ao clicar em cadastrar, ele identifica a linha pelo número e ano informado e cadastrar na mesma linha.

Com o método de alterar, justamente a pessoa não estaria INCLUINDO A PARTIR DE, estaria apenas pesquisando e simplesmente alterando, quer dizer, seria uma ação de alterar e não de incluir.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

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

Entendo que o que deseja é Alterar.
Uma vez o registro "gravado", qualquer complementação de dados deve ser considerada/entendia como Alteração. Para tanto é necessário uma rotina que busque/procure o registro unico (entendo que seja o valor em A). Obtendo esse registro, "carrega-se" os dados em suas respectivas TextBoxs/Combobox ...; bem como a linha index onde o registro está(foi localizado). Então seleciona-se essa linha e salva os dados (todos ou somente alguns) novamente.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Boa noite!!

Favor informa as postagens cruzadas!!!
http://www.tomasvasquez.com.br/forum/vi ... 380#p12380

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/12/2013 7:18 pm