Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido]Editar a partir da listbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Rui Maciel
Colaborador
Colaborador
Mensagens: 43
Registrado em: Dom Set 02, 2012 3:00 pm

[Resolvido]Editar a partir da listbox

Mensagem por Rui Maciel » Dom Set 15, 2019 7:46 pm

Boa noite
Não encontro a solução para o erro que está a dar quando executo o userform3, pois, o botão alterar dá o erro 70, acesso negado, com este botão pretendia editar os dados na folha "Dados", podem ajudar-me, obrigado.
Abraço,
RMaciel
Anexos
AVANÇADO_LISTVIEW.7z
(93.06 KiB) Baixado 9 vezes
Editado pela última vez por Rui Maciel em Ter Set 24, 2019 11:55 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.


avgsantos
Colaborador
Colaborador
Mensagens: 88
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Editar a partir da listbox

Mensagem por avgsantos » Dom Set 15, 2019 8:53 pm

Boa noite, RMaciel

Segue arquivo editado conforme solicitado.

Avgsantos
Anexos
AVANÇADO_LISTVIEW.rar
(43.32 KiB) Baixado 8 vezes



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1226
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Editar a partir da listbox

Mensagem por Reinaldo » Dom Set 15, 2019 9:05 pm

Experimente não utilizar Rowsource para "popular" a listbox

Código: Selecionar todos

Private Sub UserForm_Initialize()
Me.TextBox2.SetFocus
ListBox1.ColumnCount = 3
For X = 1 To 16
    With ListBox1
            .AddItem
        For y = 0 To 2
            .List(.ListCount - 1, y) = Sheets("dados").Cells(X, y + 1).Text
        Next
    End With
Next
'ListBox1.RowSource = "Dados!A2:C200"
ListBox1.Font.Size = 12
ListBox1.Font.Name = "Calibri"
End Sub
Editado pela última vez por Reinaldo em Seg Set 16, 2019 8:17 am, em um total de 1 vez.


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Rui Maciel
Colaborador
Colaborador
Mensagens: 43
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Editar a partir da listbox

Mensagem por Rui Maciel » Dom Set 15, 2019 9:11 pm

Boa noite avgsatos, muito bom , obrigado. Só acrescentei "CDbl" na textbox3 para sair número, muito obrigado, sem a sua ajuda não chegava ao sitio.
Anexos
AVANÇADO_LISTVIEW.7z
(69.25 KiB) Baixado 11 vezes
Editado pela última vez por Rui Maciel em Ter Set 24, 2019 11:49 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.


Rui Maciel
Colaborador
Colaborador
Mensagens: 43
Registrado em: Dom Set 02, 2012 3:00 pm

Re: Editar a partir da listbox

Mensagem por Rui Maciel » Seg Set 16, 2019 6:50 pm

Obrigado pela "dica" Reinaldo. Agradecido.



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