Inserir dados em massa

Olá amigos,

Juro que procurei, mas ainda não achei aqui no Forum como fazer o que eu preciso.
Acredito que seja com SQL (Insert Into) ou VBA, porém não consegui avançar.
Até sei fazer lançamento de dados via VBA registro por registro... mas esse não é o caso.

Mensalmente preciso lançar algumas informações para vários clientes, porém fazer um a um está demorando muito.

A ideia é preencher os campos com dados que terão que ser lançados (Data, Categoria e Valor) e selecionar os clientes que irão receberam esses dados.

Em anexo um rascunho, sem nenhuma função, apenas para facilitar para quem for me ajudar..

Agradeço desde já.

ola amigo tive este mesmo desafio pois queria cadastrar treinamentos ou seja um treinamento para vários colaboradores.
no meu caso eu tinha que associar a um banco diferente porem acho que não é seu caso correto.

segue o que eu fiz espero que ajude

coloquei em um botão,
no meu caso a data , o tema e a duração seria os mesmos
só os colaboradores que mudariam.


Private Sub Salvar_Click()

Dim bd As DAO.Database
Dim rst As DAO.Recordset
Dim strBd As String
'seleciona o banco de dados que vc quiser
strBd = "K:\05-GESTÃO DE PESSOAS\03- Grade de Flexibilidade\1- SETUP\Grade de Flexibilidade - v11-30-04-14 - MFSC.mdb"
'abre o banco

Set bd = OpenDatabase(strBd)
'seleciona a tabela onde deve salvar
Set rst = bd.OpenRecordset("Treinamentos")
'adiciona um novo registro
With rst
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.Txt_01
 .Update
 'pula para proxima linha
 rst.MoveNext
 ' novo cadastro
 
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_02
   
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_03
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_04
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_05
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_06
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_07
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_08
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_09
 .Update
 
 rst.MoveNext
 ' novo cadastro
 .AddNew
   ![Data_Treinamento] = Me.Txt_data
   ![Tema] = Me.Txt_tema
   ![Duração] = Me.Txt_duração
   ![Chapa] = Me.TxT_10
 .Update
 
 
 
End With
rst.Close
Set rst = Nothing
bd.Close
Set bd = Nothing
MsgBox "Desejá realizar o cadastro", vbOKCancel




End Sub


se for fazer em um só banco substitua



Dim bd As DAO.Database
Dim rst As DAO.Recordset
Dim strBd As String
'seleciona o banco de dados que vc quiser
strBd = "K:\05-GESTÃO DE PESSOAS\03- Grade de Flexibilidade\1- SETUP\Grade de Flexibilidade - v11-30-04-14 - MFSC.mdb"
'abre o banco

Set bd = OpenDatabase(strBd)
'seleciona a tabela onde deve salvar
Set rst = bd.OpenRecordset("Treinamentos")
'adiciona um novo registro
With rst

Por :

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("sua planilha")
With rst


Segue exemplo na sua planilha do código acima

Código:

https://drive.google.com/file/d/1SBFX94RFTybRFF9M6Q04x3PmSQ-yQQOk/view?usp=sharing

Olá Lindomar,

Como ficou a situação, não deu o feedback.
Se já esclareceu a dúvida, não se esqueça de dar o tópico como Resolvido.

Abraço a todos

Olá Lindomar,

O formulário de lançamentos ficou assim:



Vc pode selecionar 1 ou mais clientes, ou no checkbox "Selecionar Todos".



Após selecionar o sclientes e preencher os campos, o sistema grava os dados e emite a mensagem:


E na tabelw ficou assim:




OBS: O sistema verifica se os clientes foram selecionados e se os campos foram preenchidos corretamente antes de gravar.
Veja no código comentado.

OBS2: O sistema NÃO verifica se já existe lançamento para a data (ou competência) e categoria informadas.
É necessário criar uma rotina de verificação para não gravar lançamentos duplicados.

É isso.

Segue versão atualizada.

Att,

Alexandre Fim