bem pessoal eu estou tentando fazer algumas melhorias ao nosso programinha de fichas tecnicas ... e uma das coisas que to vendo necessecario e o editar uma referencia que tenha criado anterirormente ... pk agora tenho editado manualmente na base e quereia poder editala a partir do userform ...
eu pensei e fazer da seguinte forma ...

abaixo esta o codigo do botao Gravar/ editar eu pensei em adiconar uma msgboxYesNo
mas tem um problema que e o seguinte ...
ele grava como se fosse uma nova referencia e eu precisava que ele edita-se a ja criada e nao criar uma segunda ...
porque quando eu for pesquisar a uma referencia a funcçao
ProcuraRefId (RefId)
vai buscar a primeira referencia que encontra ...
~

Private Sub cmdGravar_Click()
RefId = txtRef
   
   If RefId = "" = vbNullString Then
        MsgBox "Operação Cancelada ou Valor Inválido"
        Exit Sub

    Else
        'Chama a Function
        ProcuraRefId (RefId)
    End If
    
    If sLocaliza = True Then
        MsgBox "REFERENCIA REPETIDA"
    Else
    
'Ativar a primeira planilha
ThisWorkbook.Worksheets("Fichas").Activate
'Selecionar a célula A3
Range("A3").Select

'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtRef.Value
ActiveCell.Offset(0, 1).Value = txtEpoca.Value
ActiveCell.Offset(0, 2).Value = txtCliente.Value
ActiveCell.Offset(0, 3).Value = txtProduçao.Value
ActiveCell.Offset(0, 4).Value = txtForma.Value
ActiveCell.Offset(0, 5).Value = txtSistema.Value
ActiveCell.Offset(0, 6).Value = txtConstruçao.Value
ActiveCell.Offset(0, 7).Value = txtObs
End If

End Sub

em baixo vou anexar a planilha para emlhor entendimento ....
a utilizador e Rui
e a pass e 123
entre como admin ...
se alguem pudesse fazer isso para o userform que diz fichas tecnicas ... agradecia ....ou entao que me de umas dicas para eu tentar pk axo que ja precebo kk de vba ....