Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Repetir dados ao gravar informações do formulário [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Edilson Matos
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sex Abr 16, 2021 2:42 am

Repetir dados ao gravar informações do formulário [RESOLVIDO]

Mensagem por Edilson Matos »

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)
Editado pela última vez por Edilson Matos em Seg Abr 19, 2021 9:12 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Creio que um For deva auxilia-lo
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


Edilson Matos
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sex Abr 16, 2021 2:42 am

Re: Repetir dados ao gravar informações do formulário

Mensagem por Edilson Matos »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder