Bom dia
Preciso de uma ajuda em um banco de dados VBA. Estou criando uma planilha de controle de alugueis, preciso que ao inserir as informações do aluguel e clicar em gravar ele cole e repita as informações na planilha de acordo com a quantidade de meses do contrato alterando apenas o mês.
Exemplo:
Textbox1: data de contratação
Textbox2: periodo de contrato (em meses)
Textbox3: Mês de contratado
Textbox4: Valores... E assim por diante
Ao clicar em gravar, ele insere as informações do contrato na planilha1, repete de acordo com a quantidade de meses de contrato, alterando apenas o mês inserido na textbox 3 na coluna da planilha
Ex: 5 meses contrato em Novembro
Novembro (na célula C2) > Dezembro (na célula C3) > Janeiro (na célula C4) > Fevereiro (na célula C5) > Março (na célula C6)
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Repetir dados ao gravar informações do formulário [RESOLVIDO]
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Abr 16, 2021 2:42 am
Repetir dados ao gravar informações do formulário [RESOLVIDO]
Editado pela última vez por Edilson Matos em Seg Abr 19, 2021 9:12 am, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Repetir dados ao gravar informações do formulário
Creio que um For deva auxilia-lo
Algo +/-
Algo +/-
Código: Selecionar todos
Dim x as integer
For x=1 to Textbox2.value
if x= 1 then
cells(x+1,3).value=textbox3.value
else
cells(X+1).value=textbox3.value+1
end if
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Abr 16, 2021 2:42 am
Re: Repetir dados ao gravar informações do formulário
Reinaldo
Funcionou perfeitamente, após inserir o for ele passou a repetir a quantidade de linhas coladas de acordo com o valor inserido na textbox2 e os demais códigos eu adaptei de acordo com minha necessidade. Muito obrigado...
Contudo, se possível me explica, pq somente ao inserir:
Dim x as integer
For x=1 to Textbox2.value
Ele já passou a colar em X linhas de acordo com o valor X da text2, aparentemente esse código não nem nada de outro mundo, queria entender como ele funciona.
Funcionou perfeitamente, após inserir o for ele passou a repetir a quantidade de linhas coladas de acordo com o valor inserido na textbox2 e os demais códigos eu adaptei de acordo com minha necessidade. Muito obrigado...
Contudo, se possível me explica, pq somente ao inserir:
Dim x as integer
For x=1 to Textbox2.value
Ele já passou a colar em X linhas de acordo com o valor X da text2, aparentemente esse código não nem nada de outro mundo, queria entender como ele funciona.