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

Ajuda em Formulario VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Ajuda em Formulario VBA

Mensagem por Rickardus »

Bom dia a todos, Criei um formulário para controle de despesas pessoais. Estou com problema na hora de editar e salvar os dados alterados na planilha. Ele preenche a planilha mas "empurra" os dados uma coluna para a direita. Seria possível ajuda de algum membro. Desde já agradeço. Abçs
Anexos
Teste_Custos.rar
(79.7 KiB) Baixado 144 vezes


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda em Formulario VBA

Mensagem por webmaster »

Rickardus,

Qual dos forms é o que contém o problema? Custos ou UserForm1?


Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Re: Ajuda em Formulario VBA

Mensagem por Rickardus »

Bom dia, no "Custos". O "Userform1" coloca os valores das caixas no lugar correto da planilha. Mas na hora de editar usando o botão "salvar " do "custos" ele descola uma coluna para a direita. Abçs


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: Ajuda em Formulario VBA

Mensagem por Reinaldo »

Aparentemente nesta linha de codigo:

Código: Selecionar todos

...Set myRange = Sheets("dados").Range("A" & i)...
e definido o inicio dos dados como sendo celula A2 e vai até ul, e a linha. (o que estranho,pois sempre irá sobrepor os dados existentes)
Já na linha de codigo seguinte:

Código: Selecionar todos

...myRange.Offset(0, 1).Value...[code]
Antes de iniciar o "salvamento",  e deslocado o foco para a coluna "B"
a meu ver deveria iniciar
[cod]...myRange.Offset(0, 0).Value...


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.


Rickardus
Colaborador
Colaborador
Mensagens: 13
Registrado em: Qui Set 28, 2017 4:36 am

Re: Ajuda em Formulario VBA

Mensagem por Rickardus »

Boa tarde Reinaldo. Fiz a alteração e não funcionou. Tentei de outras formas mas, tbm não tive sucesso.


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