Guru do Excel e Power BI

Enviado: **22 Jun 2020 às 14:22**

Boa tarde!

Estou precisando de uma ajuda em código VBA, preciso de um comando que salve o que for digitado nas células em amarelo na aba "Registro de Dados" e Salve em "Banco de dados" conforme o nome do campo...
O Botão Salvar faria este processo e o Botão Novo iria limpar os dados dos campos em amarelo e entender que a próxima digitação será salva em uma nova linha da aba "Banco de dados".

Desde já agradeço a ajuda

Enviado: **22 Jun 2020 às 15:20**

Veja se é isso

Código: Selecionar todos

Public Sub GravarDados()
    Dim rngCampos       As Range
    Dim rngCel           As Range
    Dim lngCont         As Long
    Dim lngProxLin      As Long
    Dim lngCol          As Long
    
    With wshRD
        Set rngCampos = .Range("camp1")
        For lngCont = 2 To 21
            Set rngCampos = Application.Union(rngCampos, _
                                            .Range("camp" & lngCont))
        Next lngCont
    End With
    
    With wshBD
        lngProxLin = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        
        lngCol = 1
        For Each rngCel In rngCampos.Cells
            .Cells(lngProxLin, lngCol).Value = rngCel.Value
            lngCol = lngCol + 1
        Next rngCel
    End With
End Sub

Public Sub LimparDados()
    Dim lngCont         As Long
    
    With wshRD
        For lngCont = 1 To 21
            .Range("camp" & lngCont).Value = vbNullString
        Next lngCont
    End With
End Sub

Enviado: **13 Jul 2020 às 11:49**

Obrigado Babdallas!!
Isso mesmo que precisava..

Guru do Excel e Power BI

Comando em VBA para salvar dados em outra aba

Comando em VBA para salvar dados em outra aba

Re: Comando em VBA para salvar dados em outra aba

Comando em VBA para salvar dados em outra aba