Jump to content
_FOCUS_

UserForm+ComboBox+Lista de Validação

Recommended Posts

_FOCUS_

Caríssimos,

estou a tentar fazer um trabalho mas estou bloqueado, então é assim, pretendo construir uma mapa de cobranças, tenho uma base de dados (excel :) ) com todas as informações dos clientes (nº, nome, morada entre outros),  e estou a criar um userform para que o responsável pela tarefa não perca tempo e tenha tudo a mão (contactos, valor de divida etc), então o que pretendo é que ao abrir o Userform e através da combobox seleccionar o numero do cliente a partir de uma lista suspensa, e aqui é que esta o meu primeiro problema, como crio uma lista de validação com uma comboBox???? a ideia seria que após seleccionar o numero do cliente (teria de ficar lincavel a uma célula), actualizasse todas as textbox que iriam buscar a informação a Base de dados atraves da função procv.

Tenho ainda outro problema, que tem a ver com uma TEXTBOX que lhe chamo de notas, onde o responsavel ira escrever tudo aquilo que achar pertinente, então o que preciso é que quando faça gravar, ele vá procurar a base de dados a linha onde o cliente e copiar o valor da textbox para a uma celula correspondente, é possivel fazer isto????

Share this post


Link to post
Share on other sites
vbalexandre

Boa noite!!

Sugiro que poste um exemplo de seu arquivo..num site gratuito 4Ahered..e nos mande o link...

Att..

Share this post


Link to post
Share on other sites
_FOCUS_

Aqui vai, breve explicação sobre o mesmo pois esta ainda numa fase muito inicial.

tenho 4 folhas:

- 1 colector - Nesta é para onde vou importar todas as facturas pendentes;

- 2 Resumo - Tabela dinâmica apenas para ver os clientes com maiores saldos;

- 3 Base dados clientes - com todos os dados de clientes e ainda mais 4 colunas que são o valor da divida e resultado do contacto (o meu 2º problema);

- 4 Rosto - Aqui apenas vai aparecer o UserForm quando abrir o ficheiro.

http://www.4shared.com/file/IxjqnKO5/DividaClientesExemplo.html

Share this post


Link to post
Share on other sites
_FOCUS_

Pessoal o que me esta faltar neste codigo para dar erro 13 "type Mismatch"

1º Criei uma Lista de Nome dinamica com o nome "NºList" na coluna que tem o numero de clientes, usei esta formula =DESLOCAMENTO(BaseDados!$A$2;0;0;CONTAR.VAL(BaseDados!$A:$A)-1;1)

2º coloquei este codigo, para que aparecesse a lista de clientes na combobox mas algo esta errado pois dá o erro supra.

Private Sub UserForm_Initialize()
Dim Cliente As Range
Dim ws As Worksheet
Set ws = Worksheets(Folha3)
For Each Cliente In ws.Range("Nºlist")
With Me.ComboBox1
.AddItem Cliente.Value
End With
Next Cliente

End Sub

O que esta errado???

Share this post


Link to post
Share on other sites
Andrepereira9

O que está errado é esta linha

Set ws = Worksheets(Folha3)

Ele assim fica à espera de uma variavel chamada Folha3

Tens de por o nome da folha entre " "  (aspas)

Fica assim

Set ws = Worksheets("Folha3")


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Andrepereira9

Qual é o valor que a variavel Nºlist tem??

Nesta linha

For Each Cliente In ws.Range("Nºlist")


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
_FOCUS_

tem 5600 registos, eles tem de estar como numero??? é que são desta forma exemplo: C-00250

Share this post


Link to post
Share on other sites
_FOCUS_

Ja esta Andre era o nome da folha que não estava correcto  😳

Obrigado pela ajuda :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.