Excel Consulta & Caixa de Dialogo

[paulocezarpicos]

Amigos,

Tô precisando de vocês de novo.  Queria incrementar numa planilha uma coisa que pra mim é um tanto quanto complexa. Temos uma planilha de controle de ofícios recebidos e eu queria que quando o usuário (uso a planilha em rede) inserir o nome do cliente na coluna "E" aparecesse uma caixa de diálogo dizendo que o nome de JOÃO DE JOSÉ DE SOUSA já tem tantas solicitações sem atendimento e perguntasse se deseja continuar ou não (consultando na coluna M os registros pendentes).

Já tentei adaptar alguns códigos que encontrei na net, mas nada dá certo. Se vocês puderem me ajudar, ficaria grato.

 

De já meus agradecimentos.

 

Obs.: Planilha em anexo.

Correspondencias 2018.zip

[Márcio Rodrigues]

Olá paulocezarpicos

 

Faça uns teste para ver se te atende.

 

Veja se é por aí...

 

Té +

Márcio

Correspondencias 2018 v1.rar

[paulocezarpicos]

Márcio,

Primeiro muito obrigado por atender minha postagem. Você atendeu 99%. Quando começo a inserção dos dados na coluna "C", toda a linha fica laranja, até ser preenchida a coluna "N", isto é, a obra ser concluída. Só que quando clico em sair (no frm_tradecontrols) apaga o alaranjado da coluna "E" e a célula fica protegida. Fora isso ficou beleza, supipa.

 

Um abraço,

 

Paulo Cezar.

 

[Márcio Rodrigues]

Olá Paulo Cezar

 

1 - Veja as macros que você mesmo criou em:

      EstaPasta_de_trabalho

      Módulo1

      Módulo2

Eu não sei qual a função delas e as mantive no no arquivo.

 

2 - você proteje a planilha e isto está dando problema, retirei o:

     Sheets(ActiveSheet.Name).Unprotect "0"
    
    Sheets(ActiveSheet.Name).Protect "0"

Aparentemente isto estava protegendo a célula ativa

 

3 - Veja se é por aí...

abraços

Té +

Márcio

Correspondencias 2018 v2.rar

[paulocezarpicos]

Márcio,

 

Você tem razão, era isso que estava dificultando mesmo. Gostaria que você me ajudasse em outra coisa. Me desculpe a minha incompetência, mas tentei de todas as maneiras alterar a formula abaixo pra apagar três as três colunas e não somente uma coluna como você fez e não consegui. Veja a formula abaixo:

 

Private Sub cmd_exit_Click()
    
    Cells(lClient, 5).Select ( Eu queria que apagasse as colunas: 3, 4, 5)
    
    Selection.ClearContents
            
    Unload Me

End Sub

 

Faça isso pra mim, por favor.

 

 

Paulo Cézar.
 

[CasaDoHardware]

Tente assim

 

Private Sub cmd_exit_Click()
    
    Range(Cells(lClient, 3), Cells(lClient, 5)).ClearContents 
    Unload Me

End Sub

[paulocezarpicos]

Perfeito CasaDoHardware, ficou ótimo. Muito obrigado.

 

Paulo Cezar.

[paulocezarpicos]

CasaDoHardware,

 

Só pra planilha ficar no grau. Eu sei deixar o foco em determinada célula, mas não sei deixar o foco numa determinada coluna. Eu queria que quando eu clicasse em sair o foco ficasse na coluna "C". Pode ser??? 

 

Na certeza de sua ajuda, de já meus agradecimentos.

 

 

Paulo Cézar.

[CasaDoHardware]

Nao entendi bem mas você quer ao terminar selecionar a coluna C?

 

Se for isso é so acrescentar no codigo

 

Columns("C:C").Select

 

[paulocezarpicos]

CasaDoHardware,

 

Fiz do jeito que você disse mas está selecionando toda a planilha ao invés da coluna "C".

 

Obs.: Planilha em anexo.

Correspondencias 2018 -1.2.zip

[CasaDoHardware]

As celulas mescladas nos titulos aparentemente sao  a causa disso.

Realmente nao sei se ha como resolver.

[paulocezarpicos]

CasaDoHardware,

 

Você tem razão, é devido as células mescladas nos títulos da planilha, ja corrigi isso. Só que vi agora que me expressei mal, não é selecionar a coluna "C" de cima abaixo. Deixa eu tentar ser o mais claro possível: quando estou digitando na linha 78, que é a que estou digitando no momento, ao clicar em sair no formulário CONTROLE DE OFICIO, a formula apaga as células E78, D78 e C78, parando o foco na célula C78. Minhas desculpas pela displicência. 

[CasaDoHardware]

Troque isto:

 

Columns("C:C").Select

 

Por isso:

 

Range("C "& Rows.Count).end(xlup).select

 

 

 

[paulocezarpicos]

CasaDoHardware,

 

Só não ficou 100% porque o foco ficou na coluna "C" da linha anterior, isto é, na linha 77 e não na linha 78 da coluna "C".

 

Te agradeço pela paciência.

[Patropi]

@paulocezarpicos

 

Para a próxima linha vazia experimnete:

Range("C1").End(xlDown).Offset(1, 0).Select

Se foi útil, clique em Curtir.

 

[]s

[CasaDoHardware]

Se é na vazia tente o que o Patropi propos ou isso

 

Range("C "& Rows.Count).end(xlup).offset(1,0).select

[paulocezarpicos]

CasaDoHardware,

 

Agora deu no grau, perfeito. Como faço pra botar como "resolvido?"

[Patropi]

@paulocezarpicos

 

Na minha assinatura tem um link para uma instrução de como marcar o tópico como Resolvido.

 

[]s