Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Actualizar registo ...
 
Notifications
Clear all

Actualizar registo de base de dados

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
955 Visualizações
RSS
 DSimoes
(@dsimoes)
Posts: 11
Active Member
Topic starter
 

Olá,

Com a ajuda do forum fui construindo uma planilha para o meu trabalho, mas agora tenho um pequeno problema, quando carrego um registo já existente (doente) eu gostava que depois de fazer alterações o registo fosse apenas actualizado e não que criasse outro.

Resumindo, crio um doente com um numero de processo, mais tarde preciso de carregar o doente e fazer alterações ao registo, quando gravo o doente, quero que a macro reconheça que o numero do processo é o mesmo (tem de ser numero de processo porque este nunca altera G7) e que apenas actualize e portanto fique so com um registo. Actualmente fico com 2 o antigo e o alterado e não quero.

É possivel dar uma ajuda?

Abraço e obrigado

Planilha.zip

Compactei teu arquivo
O arquivo deve ser compactado antes de anexar.
Patropi - Moderador

Planilha.zip
 
Postado : 29/11/2013 3:52 pm
 DSimoes
(@dsimoes)
Posts: 11
Active Member
Topic starter
 

A macro em questão é esta:

Sub Adicionar()
Dim UltimaLinha As Long
UltimaLinha = Sheets("Utentes Registados").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If UltimaLinha < 3 Then UltimaLinha = 3
If Sheets("Formulário").Range("S5").Value <> "" Then
Sheets("Utentes Registados").Range("A" & UltimaLinha).Value = Sheets("Formulário").Range("D5").Value
Sheets("Utentes Registados").Range("B" & UltimaLinha).Value = Sheets("Formulário").Range("S5").Value
Sheets("Utentes Registados").Range("C" & UltimaLinha).Value = Sheets("Formulário").Range("G7").Value
...

Sheets("Utentes Registados").Range("GQ" & UltimaLinha).Value = Sheets("Formulário").Range("M43").Value

MsgBox "Dados Registados com Sucesso!", vbDefaultButton1, "REGISTO"
Else
MsgBox "O Campo Data de Nascimento está em Branco!", vbCritical, "ERRO"
End If
End Sub

Como faço para ela actualizar dados que ja existam em vez de criar uma copia?!

Obrigado

 
Postado : 30/11/2013 8:25 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Experimente assim:

Sub Adicionar()
    Dim Registro As Long
    Dim i As Long
    
    Registro = 0
    For i = 3 To Sheets("Utentes Registados").Cells(Cells.Rows.Count, 1).End(xlUp).Row
        If Sheets("Formulário").Range("G7").Value = Sheets("Utentes Registados").Range("C" & i).Value Then Registro = i
    Next
    
    If Registro = 0 Then Registro = Sheets("Utentes Registados").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    If Registro < 3 Then Registro = 3
    If Sheets("Formulário").Range("S5").Value <> "" Then
        Sheets("Utentes Registados").Range("A" & Registro).Value = Sheets("Formulário").Range("D5").Value
        Sheets("Utentes Registados").Range("B" & Registro).Value = Sheets("Formulário").Range("S5").Value
        Sheets("Utentes Registados").Range("C" & Registro).Value = Sheets("Formulário").Range("G7").Value
        Sheets("Utentes Registados").Range("D" & Registro).Value = Sheets("Formulário").Range("K7").Value
        Sheets("Utentes Registados").Range("E" & Registro).Value = Sheets("Formulário").Range("O7").Value
        Sheets("Utentes Registados").Range("F" & Registro).Value = Sheets("Formulário").Range("S7").Value
        Sheets("Utentes Registados").Range("G" & Registro).Value = Sheets("Formulário").Range("C12").Value
        Sheets("Utentes Registados").Range("H" & Registro).Value = Sheets("Formulário").Range("G12").Value
        Sheets("Utentes Registados").Range("I" & Registro).Value = Sheets("Formulário").Range("I12").Value
        Sheets("Utentes Registados").Range("J" & Registro).Value = Sheets("Formulário").Range("K12").Value
        Sheets("Utentes Registados").Range("K" & Registro).Value = Sheets("Formulário").Range("M12").Value
        Sheets("Utentes Registados").Range("L" & Registro).Value = Sheets("Formulário").Range("O12").Value
        Sheets("Utentes Registados").Range("M" & Registro).Value = Sheets("Formulário").Range("Q12").Value
        Sheets("Utentes Registados").Range("N" & Registro).Value = Sheets("Formulário").Range("S12").Value
        Sheets("Utentes Registados").Range("O" & Registro).Value = Sheets("Formulário").Range("U12").Value
        Sheets("Utentes Registados").Range("P" & Registro).Value = Sheets("Formulário").Range("C14").Value
        Sheets("Utentes Registados").Range("Q" & Registro).Value = Sheets("Formulário").Range("G14").Value
        Sheets("Utentes Registados").Range("R" & Registro).Value = Sheets("Formulário").Range("I14").Value
        Sheets("Utentes Registados").Range("S" & Registro).Value = Sheets("Formulário").Range("K14").Value
        Sheets("Utentes Registados").Range("T" & Registro).Value = Sheets("Formulário").Range("M14").Value
        Sheets("Utentes Registados").Range("U" & Registro).Value = Sheets("Formulário").Range("O14").Value
        Sheets("Utentes Registados").Range("V" & Registro).Value = Sheets("Formulário").Range("Q14").Value
        Sheets("Utentes Registados").Range("W" & Registro).Value = Sheets("Formulário").Range("S14").Value
        Sheets("Utentes Registados").Range("X" & Registro).Value = Sheets("Formulário").Range("U14").Value
        Sheets("Utentes Registados").Range("Y" & Registro).Value = Sheets("Formulário").Range("C16").Value
        Sheets("Utentes Registados").Range("Z" & Registro).Value = Sheets("Formulário").Range("G16").Value
        Sheets("Utentes Registados").Range("AA" & Registro).Value = Sheets("Formulário").Range("I16").Value
        Sheets("Utentes Registados").Range("AB" & Registro).Value = Sheets("Formulário").Range("K16").Value
        Sheets("Utentes Registados").Range("AC" & Registro).Value = Sheets("Formulário").Range("M16").Value
        Sheets("Utentes Registados").Range("AD" & Registro).Value = Sheets("Formulário").Range("O16").Value
        Sheets("Utentes Registados").Range("AE" & Registro).Value = Sheets("Formulário").Range("Q16").Value
        Sheets("Utentes Registados").Range("AF" & Registro).Value = Sheets("Formulário").Range("S16").Value
        Sheets("Utentes Registados").Range("AG" & Registro).Value = Sheets("Formulário").Range("U16").Value
        Sheets("Utentes Registados").Range("AH" & Registro).Value = Sheets("Formulário").Range("C18").Value
        Sheets("Utentes Registados").Range("AI" & Registro).Value = Sheets("Formulário").Range("G18").Value
        Sheets("Utentes Registados").Range("AJ" & Registro).Value = Sheets("Formulário").Range("I18").Value
        Sheets("Utentes Registados").Range("AK" & Registro).Value = Sheets("Formulário").Range("K18").Value
        Sheets("Utentes Registados").Range("AL" & Registro).Value = Sheets("Formulário").Range("M18").Value
        Sheets("Utentes Registados").Range("AM" & Registro).Value = Sheets("Formulário").Range("O18").Value
        Sheets("Utentes Registados").Range("AN" & Registro).Value = Sheets("Formulário").Range("Q18").Value
        Sheets("Utentes Registados").Range("AO" & Registro).Value = Sheets("Formulário").Range("S18").Value
        Sheets("Utentes Registados").Range("AP" & Registro).Value = Sheets("Formulário").Range("U18").Value
        Sheets("Utentes Registados").Range("AQ" & Registro).Value = Sheets("Formulário").Range("C20").Value
        Sheets("Utentes Registados").Range("AR" & Registro).Value = Sheets("Formulário").Range("G20").Value
        Sheets("Utentes Registados").Range("AS" & Registro).Value = Sheets("Formulário").Range("I20").Value
        Sheets("Utentes Registados").Range("AT" & Registro).Value = Sheets("Formulário").Range("K20").Value
        Sheets("Utentes Registados").Range("AU" & Registro).Value = Sheets("Formulário").Range("M20").Value
        Sheets("Utentes Registados").Range("AV" & Registro).Value = Sheets("Formulário").Range("O20").Value
        Sheets("Utentes Registados").Range("AW" & Registro).Value = Sheets("Formulário").Range("Q20").Value
        Sheets("Utentes Registados").Range("AX" & Registro).Value = Sheets("Formulário").Range("S20").Value
        Sheets("Utentes Registados").Range("AY" & Registro).Value = Sheets("Formulário").Range("U20").Value
        Sheets("Utentes Registados").Range("AZ" & Registro).Value = Sheets("Formulário").Range("C22").Value
        Sheets("Utentes Registados").Range("BA" & Registro).Value = Sheets("Formulário").Range("G22").Value
        Sheets("Utentes Registados").Range("BB" & Registro).Value = Sheets("Formulário").Range("I22").Value
        Sheets("Utentes Registados").Range("BC" & Registro).Value = Sheets("Formulário").Range("K22").Value
        Sheets("Utentes Registados").Range("BD" & Registro).Value = Sheets("Formulário").Range("M22").Value
        Sheets("Utentes Registados").Range("BE" & Registro).Value = Sheets("Formulário").Range("O22").Value
        Sheets("Utentes Registados").Range("BF" & Registro).Value = Sheets("Formulário").Range("Q22").Value
        Sheets("Utentes Registados").Range("BG" & Registro).Value = Sheets("Formulário").Range("S22").Value
        Sheets("Utentes Registados").Range("BH" & Registro).Value = Sheets("Formulário").Range("U22").Value
        Sheets("Utentes Registados").Range("BI" & Registro).Value = Sheets("Formulário").Range("C24").Value
        Sheets("Utentes Registados").Range("BJ" & Registro).Value = Sheets("Formulário").Range("G24").Value
        Sheets("Utentes Registados").Range("BK" & Registro).Value = Sheets("Formulário").Range("I24").Value
        Sheets("Utentes Registados").Range("BL" & Registro).Value = Sheets("Formulário").Range("K24").Value
        Sheets("Utentes Registados").Range("BM" & Registro).Value = Sheets("Formulário").Range("M24").Value
        Sheets("Utentes Registados").Range("BN" & Registro).Value = Sheets("Formulário").Range("O24").Value
        Sheets("Utentes Registados").Range("BO" & Registro).Value = Sheets("Formulário").Range("Q24").Value
        Sheets("Utentes Registados").Range("BP" & Registro).Value = Sheets("Formulário").Range("S24").Value
        Sheets("Utentes Registados").Range("BQ" & Registro).Value = Sheets("Formulário").Range("U24").Value
        Sheets("Utentes Registados").Range("BR" & Registro).Value = Sheets("Formulário").Range("C26").Value
        Sheets("Utentes Registados").Range("BS" & Registro).Value = Sheets("Formulário").Range("G26").Value
        Sheets("Utentes Registados").Range("BT" & Registro).Value = Sheets("Formulário").Range("I26").Value
        Sheets("Utentes Registados").Range("BU" & Registro).Value = Sheets("Formulário").Range("K26").Value
        Sheets("Utentes Registados").Range("BV" & Registro).Value = Sheets("Formulário").Range("M26").Value
        Sheets("Utentes Registados").Range("BW" & Registro).Value = Sheets("Formulário").Range("O26").Value
        Sheets("Utentes Registados").Range("BX" & Registro).Value = Sheets("Formulário").Range("Q26").Value
        Sheets("Utentes Registados").Range("BY" & Registro).Value = Sheets("Formulário").Range("S26").Value
        Sheets("Utentes Registados").Range("BZ" & Registro).Value = Sheets("Formulário").Range("U26").Value
        Sheets("Utentes Registados").Range("CA" & Registro).Value = Sheets("Formulário").Range("C28").Value
        Sheets("Utentes Registados").Range("CB" & Registro).Value = Sheets("Formulário").Range("G28").Value
        Sheets("Utentes Registados").Range("CC" & Registro).Value = Sheets("Formulário").Range("I28").Value
        Sheets("Utentes Registados").Range("CD" & Registro).Value = Sheets("Formulário").Range("K28").Value
        Sheets("Utentes Registados").Range("CE" & Registro).Value = Sheets("Formulário").Range("M28").Value
        Sheets("Utentes Registados").Range("CF" & Registro).Value = Sheets("Formulário").Range("O28").Value
        Sheets("Utentes Registados").Range("CG" & Registro).Value = Sheets("Formulário").Range("Q28").Value
        Sheets("Utentes Registados").Range("CH" & Registro).Value = Sheets("Formulário").Range("S28").Value
        Sheets("Utentes Registados").Range("CI" & Registro).Value = Sheets("Formulário").Range("U28").Value
        Sheets("Utentes Registados").Range("CJ" & Registro).Value = Sheets("Formulário").Range("C30").Value
        Sheets("Utentes Registados").Range("CK" & Registro).Value = Sheets("Formulário").Range("G30").Value
        Sheets("Utentes Registados").Range("CL" & Registro).Value = Sheets("Formulário").Range("I30").Value
        Sheets("Utentes Registados").Range("CM" & Registro).Value = Sheets("Formulário").Range("K30").Value
        Sheets("Utentes Registados").Range("CN" & Registro).Value = Sheets("Formulário").Range("M30").Value
        Sheets("Utentes Registados").Range("CO" & Registro).Value = Sheets("Formulário").Range("O30").Value
        Sheets("Utentes Registados").Range("CP" & Registro).Value = Sheets("Formulário").Range("Q30").Value
        Sheets("Utentes Registados").Range("CQ" & Registro).Value = Sheets("Formulário").Range("S30").Value
        Sheets("Utentes Registados").Range("CR" & Registro).Value = Sheets("Formulário").Range("U30").Value
        Sheets("Utentes Registados").Range("CS" & Registro).Value = Sheets("Formulário").Range("C32").Value
        Sheets("Utentes Registados").Range("CT" & Registro).Value = Sheets("Formulário").Range("G32").Value
        Sheets("Utentes Registados").Range("CU" & Registro).Value = Sheets("Formulário").Range("I32").Value
        Sheets("Utentes Registados").Range("CV" & Registro).Value = Sheets("Formulário").Range("K32").Value
        Sheets("Utentes Registados").Range("CW" & Registro).Value = Sheets("Formulário").Range("M32").Value
        Sheets("Utentes Registados").Range("CX" & Registro).Value = Sheets("Formulário").Range("O32").Value
        Sheets("Utentes Registados").Range("CY" & Registro).Value = Sheets("Formulário").Range("Q32").Value
        Sheets("Utentes Registados").Range("CZ" & Registro).Value = Sheets("Formulário").Range("S32").Value
        Sheets("Utentes Registados").Range("DA" & Registro).Value = Sheets("Formulário").Range("U32").Value
        Sheets("Utentes Registados").Range("DB" & Registro).Value = Sheets("Formulário").Range("C34").Value
        Sheets("Utentes Registados").Range("DC" & Registro).Value = Sheets("Formulário").Range("G34").Value
        Sheets("Utentes Registados").Range("DD" & Registro).Value = Sheets("Formulário").Range("I34").Value
        Sheets("Utentes Registados").Range("DE" & Registro).Value = Sheets("Formulário").Range("K34").Value
        Sheets("Utentes Registados").Range("DF" & Registro).Value = Sheets("Formulário").Range("M34").Value
        Sheets("Utentes Registados").Range("DG" & Registro).Value = Sheets("Formulário").Range("O34").Value
        Sheets("Utentes Registados").Range("DH" & Registro).Value = Sheets("Formulário").Range("Q34").Value
        Sheets("Utentes Registados").Range("DI" & Registro).Value = Sheets("Formulário").Range("S34").Value
        Sheets("Utentes Registados").Range("DJ" & Registro).Value = Sheets("Formulário").Range("U34").Value
        Sheets("Utentes Registados").Range("DK" & Registro).Value = Sheets("Formulário").Range("C36").Value
        Sheets("Utentes Registados").Range("DL" & Registro).Value = Sheets("Formulário").Range("G36").Value
        Sheets("Utentes Registados").Range("DM" & Registro).Value = Sheets("Formulário").Range("I36").Value
        Sheets("Utentes Registados").Range("DN" & Registro).Value = Sheets("Formulário").Range("K36").Value
        Sheets("Utentes Registados").Range("DO" & Registro).Value = Sheets("Formulário").Range("M36").Value
        Sheets("Utentes Registados").Range("DP" & Registro).Value = Sheets("Formulário").Range("O36").Value
        Sheets("Utentes Registados").Range("DQ" & Registro).Value = Sheets("Formulário").Range("Q36").Value
        Sheets("Utentes Registados").Range("DR" & Registro).Value = Sheets("Formulário").Range("S36").Value
        Sheets("Utentes Registados").Range("DS" & Registro).Value = Sheets("Formulário").Range("U36").Value
        Sheets("Utentes Registados").Range("DU" & Registro).Value = Sheets("Formulário").Range("C12").Value
        Sheets("Utentes Registados").Range("DV" & Registro).Value = Sheets("Formulário").Range("W12").Value
        Sheets("Utentes Registados").Range("DW" & Registro).Value = Sheets("Formulário").Range("Y12").Value
        Sheets("Utentes Registados").Range("DX" & Registro).Value = Sheets("Formulário").Range("AA12").Value
        Sheets("Utentes Registados").Range("DY" & Registro).Value = Sheets("Formulário").Range("AC12").Value
        Sheets("Utentes Registados").Range("DZ" & Registro).Value = Sheets("Formulário").Range("C14").Value
        Sheets("Utentes Registados").Range("EA" & Registro).Value = Sheets("Formulário").Range("W14").Value
        Sheets("Utentes Registados").Range("EB" & Registro).Value = Sheets("Formulário").Range("Y14").Value
        Sheets("Utentes Registados").Range("EC" & Registro).Value = Sheets("Formulário").Range("AA14").Value
        Sheets("Utentes Registados").Range("ED" & Registro).Value = Sheets("Formulário").Range("AC14").Value
        Sheets("Utentes Registados").Range("EE" & Registro).Value = Sheets("Formulário").Range("C16").Value
        Sheets("Utentes Registados").Range("EF" & Registro).Value = Sheets("Formulário").Range("W16").Value
        Sheets("Utentes Registados").Range("EG" & Registro).Value = Sheets("Formulário").Range("Y16").Value
        Sheets("Utentes Registados").Range("EH" & Registro).Value = Sheets("Formulário").Range("AA16").Value
        Sheets("Utentes Registados").Range("EI" & Registro).Value = Sheets("Formulário").Range("AC16").Value
        Sheets("Utentes Registados").Range("EJ" & Registro).Value = Sheets("Formulário").Range("C18").Value
        Sheets("Utentes Registados").Range("EK" & Registro).Value = Sheets("Formulário").Range("W18").Value
        Sheets("Utentes Registados").Range("EL" & Registro).Value = Sheets("Formulário").Range("Y18").Value
        Sheets("Utentes Registados").Range("EM" & Registro).Value = Sheets("Formulário").Range("AA18").Value
        Sheets("Utentes Registados").Range("EN" & Registro).Value = Sheets("Formulário").Range("AC18").Value
        Sheets("Utentes Registados").Range("EO" & Registro).Value = Sheets("Formulário").Range("C20").Value
        Sheets("Utentes Registados").Range("EP" & Registro).Value = Sheets("Formulário").Range("W20").Value
        Sheets("Utentes Registados").Range("EQ" & Registro).Value = Sheets("Formulário").Range("Y20").Value
        Sheets("Utentes Registados").Range("ER" & Registro).Value = Sheets("Formulário").Range("AA20").Value
        Sheets("Utentes Registados").Range("ES" & Registro).Value = Sheets("Formulário").Range("AC20").Value
        Sheets("Utentes Registados").Range("ET" & Registro).Value = Sheets("Formulário").Range("C22").Value
        Sheets("Utentes Registados").Range("EU" & Registro).Value = Sheets("Formulário").Range("W22").Value
        Sheets("Utentes Registados").Range("EV" & Registro).Value = Sheets("Formulário").Range("Y22").Value
        Sheets("Utentes Registados").Range("EW" & Registro).Value = Sheets("Formulário").Range("AA22").Value
        Sheets("Utentes Registados").Range("EX" & Registro).Value = Sheets("Formulário").Range("AC22").Value
        Sheets("Utentes Registados").Range("EY" & Registro).Value = Sheets("Formulário").Range("C24").Value
        Sheets("Utentes Registados").Range("EZ" & Registro).Value = Sheets("Formulário").Range("W24").Value
        Sheets("Utentes Registados").Range("FA" & Registro).Value = Sheets("Formulário").Range("Y24").Value
        Sheets("Utentes Registados").Range("FB" & Registro).Value = Sheets("Formulário").Range("AA24").Value
        Sheets("Utentes Registados").Range("FC" & Registro).Value = Sheets("Formulário").Range("AC24").Value
        Sheets("Utentes Registados").Range("FD" & Registro).Value = Sheets("Formulário").Range("C26").Value
        Sheets("Utentes Registados").Range("FE" & Registro).Value = Sheets("Formulário").Range("W26").Value
        Sheets("Utentes Registados").Range("FF" & Registro).Value = Sheets("Formulário").Range("Y26").Value
        Sheets("Utentes Registados").Range("FG" & Registro).Value = Sheets("Formulário").Range("AA26").Value
        Sheets("Utentes Registados").Range("FH" & Registro).Value = Sheets("Formulário").Range("AC26").Value
        Sheets("Utentes Registados").Range("FI" & Registro).Value = Sheets("Formulário").Range("C28").Value
        Sheets("Utentes Registados").Range("FJ" & Registro).Value = Sheets("Formulário").Range("W28").Value
        Sheets("Utentes Registados").Range("FK" & Registro).Value = Sheets("Formulário").Range("Y28").Value
        Sheets("Utentes Registados").Range("FL" & Registro).Value = Sheets("Formulário").Range("AA28").Value
        Sheets("Utentes Registados").Range("FM" & Registro).Value = Sheets("Formulário").Range("AC28").Value
        Sheets("Utentes Registados").Range("FN" & Registro).Value = Sheets("Formulário").Range("C30").Value
        Sheets("Utentes Registados").Range("FO" & Registro).Value = Sheets("Formulário").Range("W30").Value
        Sheets("Utentes Registados").Range("FP" & Registro).Value = Sheets("Formulário").Range("Y30").Value
        Sheets("Utentes Registados").Range("FQ" & Registro).Value = Sheets("Formulário").Range("AA30").Value
        Sheets("Utentes Registados").Range("FR" & Registro).Value = Sheets("Formulário").Range("AC30").Value
        Sheets("Utentes Registados").Range("FS" & Registro).Value = Sheets("Formulário").Range("C32").Value
        Sheets("Utentes Registados").Range("FT" & Registro).Value = Sheets("Formulário").Range("W32").Value
        Sheets("Utentes Registados").Range("FU" & Registro).Value = Sheets("Formulário").Range("Y32").Value
        Sheets("Utentes Registados").Range("FV" & Registro).Value = Sheets("Formulário").Range("AA32").Value
        Sheets("Utentes Registados").Range("FW" & Registro).Value = Sheets("Formulário").Range("AC32").Value
        Sheets("Utentes Registados").Range("FX" & Registro).Value = Sheets("Formulário").Range("C34").Value
        Sheets("Utentes Registados").Range("FY" & Registro).Value = Sheets("Formulário").Range("W34").Value
        Sheets("Utentes Registados").Range("FZ" & Registro).Value = Sheets("Formulário").Range("Y34").Value
        Sheets("Utentes Registados").Range("GA" & Registro).Value = Sheets("Formulário").Range("AA34").Value
        Sheets("Utentes Registados").Range("GB" & Registro).Value = Sheets("Formulário").Range("AC34").Value
        Sheets("Utentes Registados").Range("GC" & Registro).Value = Sheets("Formulário").Range("C36").Value
        Sheets("Utentes Registados").Range("GD" & Registro).Value = Sheets("Formulário").Range("W36").Value
        Sheets("Utentes Registados").Range("GE" & Registro).Value = Sheets("Formulário").Range("Y36").Value
        Sheets("Utentes Registados").Range("GF" & Registro).Value = Sheets("Formulário").Range("AA36").Value
        Sheets("Utentes Registados").Range("GG" & Registro).Value = Sheets("Formulário").Range("AC36").Value
        Sheets("Utentes Registados").Range("GI" & Registro).Value = Sheets("Formulário").Range("E39").Value
        Sheets("Utentes Registados").Range("GJ" & Registro).Value = Sheets("Formulário").Range("H39").Value
        Sheets("Utentes Registados").Range("GK" & Registro).Value = Sheets("Formulário").Range("D41").Value
        Sheets("Utentes Registados").Range("GL" & Registro).Value = Sheets("Formulário").Range("D43").Value
        Sheets("Utentes Registados").Range("GM" & Registro).Value = Sheets("Formulário").Range("M39").Value
        Sheets("Utentes Registados").Range("GN" & Registro).Value = Sheets("Formulário").Range("M40").Value
        Sheets("Utentes Registados").Range("GO" & Registro).Value = Sheets("Formulário").Range("M41").Value
        Sheets("Utentes Registados").Range("GP" & Registro).Value = Sheets("Formulário").Range("M42").Value
        Sheets("Utentes Registados").Range("GQ" & Registro).Value = Sheets("Formulário").Range("M43").Value
        
        MsgBox "Dados Registados com Sucesso!", vbDefaultButton1, "REGISTO"
    Else
        MsgBox "O Campo Data de Nascimento está em Branco!", vbCritical, "ERRO"
    End If
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 30/11/2013 9:23 pm
 DSimoes
(@dsimoes)
Posts: 11
Active Member
Topic starter
 

Perfeito!

Muito Obrigado gtsalikis!

 
Postado : 01/12/2013 1:33 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 01/12/2013 3:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico