Barra de rolagem - combobox - Resolvido

[jovemlima]

Web este ajuste não tinhamos visto, porque ele complenta os demais.
Web, di boa, troco a moneclatura da escrita. É que como a parte visula da planilha esta relacionada a barra de rolagem, achei que estaria me expressando de forma correta. Vou tentar falar atraves dos comandos do VB. Como da pra perceber nao sou bom nisso.

E que tambem o cadastro feito para alimentar o combobox é feito na frmAuxiliar e ao meu ver aqui finaliza o uso do combobox, que sera usada apartir daqui somente para escolher as opções ja cadastradas.

A ideia vem em outra etapa:
Seria possivel visualizar no quadrado "Sexo" (que visualizamos na frmCadastro), os dados que ja estam gravados na planilha PAC na coluna "Q", durante o modo de alterção na frmCadastro? Da mesma forma que conseguimos visualizar os demais dados nos outros quadrados que não são combobox?

SDS
Luiz
Desde ja agradeço a ajuda e penso desculpa pela a falta de conhecimento.

[webmaster]

Luiz,

Já faz algum "tempo". Pode enviar a planilha para o fórum para darmos uma olhada?

Abraços

[jovemlima]

Web segue a planilha.
login: daniel
senha: 123

SDS
Luiz
Obrigado.

[webmaster]

Luiz,

Quando me referia ao que já tínhamos falado, seriam essas duas linhas no método CarregaDadosRegistro:

Código: Selecionar todos

            Me.txtFem.Text = .Cells(indiceRegistro, colFem).Value
            Me.ComboBox_Estado.Text = .Cells(indiceRegistro, colEstado).Value '<-- esta
            Me.ComboBox_Tipo.Text = .Cells(indiceRegistro, colTipo).Value '<-- e esta

        End If
    End With

    Call AtualizaRegistroCorrente

Os dados apareceram. Mas, por algum motivo que não investiguei, os combos pararam de ser preenchidos. Vamos resolver um problema de cada vez ok?

Abraços

[jovemlima]

Web eu nao entendi, coloquei aqui as linhas e funcionou blz.
Como os combos pararam de ser preenchidos. Pra mim parece que deu certo?


SDS
Luiz

[joseA]

...A ideia vem em outra etapa:
Seria possivel visualizar no quadrado "Sexo" (que visualizamos na frmCadastro), os dados que ja estam gravados na planilha PAC na coluna "Q", durante o modo de alterção na frmCadastro? Da mesma forma que conseguimos visualizar os demais dados nos outros quadrados que não são combobox?...

Em tempo...

No caso os "outros quadrados", seriam TexBox.



Tentando entender...

Vc quer que ao optar por alterar o ComboBox_Estado carregue os dados da Plan PAC, já cadastrados, que estão na coluna Q, seria isso?

Se for...

No código

Código: Selecionar todos

Private Sub optAlterar_Click() 

retire a linha

Código: Selecionar todos

AtualizaListaEstados

e substitua por:

Código: Selecionar todos

Dim lastRow As Long
Dim i As Integer
Me.ComboBox_Estado.Clear
' Verifica qual a ultima linha preenchida
lastRow = Plan9.Range("Q65000").End(xlUp).Row
'adiciona dados
For i = 2 To lastRow
Me.ComboBox_Estado.AddItem Plan9.Range("Q" & i)
Next

[jovemlima]

JoseA, gostei desses comandos, vou copiar e guardar. Mas a ideia era essa dae que o Wed fez. Deu certo, era so pra mostrar na combobox os dados que estavam ja cadastrados na planilha PAC, durante a auteração dos dados.
Vou aguardar o relato que o Web fez, que nao entendi, porque pra aqui deu certo.
Valeu, mesmo.

Obrigado pela ajuda.

SDS
Luiz

[poluxja]

estou a tentar tirar a numeração automática dos pacientes pois não preciso como posso fazer que comandos devo retirar . estou precisando de ajuda;)

[jovemlima]

qual numeração?

porque tem um campo para o numero do prontuario.

sds
Luiz

[webmaster]

poluxja,

Esse assunto está se estendendo demais pelo fórum. Peço que abra um tópico exclusivo para este e passemos a tratar o assunto a partir de lá.

Abraços