Ir ao conteúdo
  • Cadastre-se

Excel Formulário de cadastro / Limpar, Pesquisar, Editar , Salvar , Excluir


Ir à solução Resolvido por Basole,

Posts recomendados

Public Tecla As String
Private Sub CBEditar_Click()

Bom Dia Pessoa!

 

Venho ver com vcs um probleminha que tenho na minha criação de formulário de cadastro em VBA, tudo que fiz até agora foi acompanhando vídeo aulas na internet, entendo muito pouco, contudo já estou quase no fim Graças a Deus, acho que foi uns 4 meses...enfim vamos la, quando vamos add novo cadastro as linhas somam normal 1,2,3, (para cada linha de cadastro) e assim vai, porém quando puxo um cadastro já salvo para adicionar uma nova entrada, ele salva com ID do cadastro tipo, já estou na linha 10 p/Ex mas ele salva com o ID do cadastro 2 (linha 2), seria possível salvar seguindo o ultimo numero da linha cadastrada e assim por diante ? 

 

Obs: para abrir a planilha usar o botão Excel; senha "123" 

critério de busca é pelo numero do RG (campo RG)

 

Desde já Agradeço a Valorosa ajuda dos senhores(as)

 

275237013_ControleEntrada_Bispo2_V2.0.rar

Link para o comentário
Compartilhar em outros sites

  • Solução

Fiz as alteracões necessarias para encontar o respectivo registro (RG), no evento CBEditar_Click

 

Veja se é isso que precisa: 

 

Private Sub CBEditar_Click()
On Error GoTo Erro

If TId = "" Or TData = "" Or Thrs = "" Or Tempresa = "" Or Tcolaborador = "" Or TRg = "" Or _
ComboCRACHA = "" Or COMBTtrabalho = "" Or COMBautorizado = "" Or TSat = "" Or CBoxTacompanhante = "" Then

   MsgBox "Precisa preencher todos os campos!", vbCritical, "ERRO"
Exit Sub
End If

Dim ID As Double
ID = TId

Dim Data As Date
Data = TData.Value

Dim Linha As Long


Dim rng As Range

With ThisWorkbook.Worksheets("Dados")

'      PROCURA PELO RG NA "COLUNA F" E RETORNA A LINHA DO REGISTRO:
Set rng = .Columns("F").Find(Me.TRg.Text, LookIn:=xlValues, Lookat:=xlWhole)
    
        If Not rng Is Nothing Then
           
         Linha = rng.Row
        
       
    If .Cells(Linha, 1).Value = ID Then
    
                    .Cells(Linha, 1).Value = ID
                    .Cells(Linha, 2).Value = TData
                    .Cells(Linha, 3).Value = Thrs
                    .Cells(Linha, 4).Value = Tempresa
                    .Cells(Linha, 5).Value = Tcolaborador
                    .Cells(Linha, 6).Value = TRg
                    .Cells(Linha, 7).Value = ComboCRACHA
                    .Cells(Linha, 8).Value = COMBTtrabalho
                    .Cells(Linha, 9).Value = COMBautorizado
                    .Cells(Linha, 10).Value = TSat
                    .Cells(Linha, 11).Value = Thsaida
                    .Cells(Linha, 12).Value = CBoxTacompanhante
            
        Call Limpar
        MsgBox "Editado com sucesso!", vbInformation, "EDITAR"
        Exit Sub
        End If
    
   
    Else
    
    MsgBox "Não encontrado!", vbInformation, "EDITAR"
     
    End If

End With
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...