Barra de rolagem - combobox - Resolvido

[webmaster]

Luiz,

A duas linhas em destaque tem que estar dentro do With wsCadastro .... End With.

Abraços

[jovemlima]

Web coloquei as duas linhas dentro......mas o erro continua igual.

SDS
Luiz

[webmaster]

Luiz,

Então acho que é mais fácil enviar a planilha.

Abraços

[jovemlima]

Web segue a planilha, nao enviei antes porque nao estava no pc que tinha ela(fica em outra cidade).


Sds
Luiz

[webmaster]

Luiz,

A projeto VBA está protegido.

Abraços

[jovemlima]

Desculpe, a senha é JOGO. Maiusculo.

SDS
Luiz

[webmaster]

Luiz,

Fiz duas mudanças para funcionar:

1º - Inseri as duas linhas comentadas recentemente dentro do bloco With ... End With.
2º - Como havia dito, faltou declarar as variáveis colEstado e colTipo no cabeçalho do código. O mesmo ficou assim:

Código: Selecionar todos

...
Const colNumero As Integer = 16
Const colEstado As Integer = 17
Const colTipo As Integer = 18
Const indiceMinimo As Byte = 2
Const corDisabledTextBox As Long = -2147483633
...

Veja se resolve.

Abraços

[jovemlima]

Tomaz eu tinha feito isso, mas nao fiz os dois juntos.......marquei bobeira.

Valeu, Obrigado mesmo.
Ate a proxima.

SDS
Luiz

[jovemlima]

Web posso reabrir o topico?

Sabe, teria como ploquear a digitação na barra de rolagem (porque se digitarmos algo nela e salvar vai pra planilha de bco) .
E tem como visisualizar os dados ja escolhidos e salvos no bco de dados? Tipo quando vou pesquisar um cadastro e clico nele para que ela abra no userformcadastro, os dados referente ao cadastro, na barra nao aparece. Se não, teria entao colocar um campo so pra visualizar os dados referente aquele campo no cadastro escolhido?

SDS
Luiz

[joseA]

Tente assim:

Código: Selecionar todos

Private Sub ComboBox_Estado_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub

Private Sub ComboBox_Tipo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub