Este fórum está sendo desativado

[JCabral]

Boa tarde

Mais uma vez pedindo ajuda, para definir qual o melhor método para fazer o seguinte:
- Tenho um Userform com 6 Checkbox, relativas a 6 preços;

Preciso fazer a comparação entre 2 preços pelo que só posso escolher dois de cada vez; ou seja assim que escolher dois não me será permitido escolher mais;

Depois de escolher os 2 preços que quero comparar é escrito na planilha, celulas B2 e B3, quais são os preços escolhidos, P1 a P6.

Qual é o melhor método para fazer isto?

Obrigado e aproveito para desejar um fantástico ano de 2018 para todos os membros aqui do fórum.
Jorge Cabral

[Reinaldo]

O que vem a ser CON/ COGP/ COCN/ COCS/ COGL/ COS
Alem de gravar em b2 e b2 algo mais e requerido

[JCabral]

Boa noite Reinaldo

Essa userform é mais complexa apenas isolei o problema que gostaria que me ajudassem a resolver e por lapso não apaguei o código que veio junto.
Para este caso não tem interesse nenhum saber o que vem a ser CON/ COGP/ COCN/ COCS/ COGL/ COS, eram Labels que acendiam ou pagavam conforme se carrega em P1 ou P2 ou ...

Mas para este caso não interessa, e sim só pretendo que depois de definidos os preços a comparar sejam escritos em B2 e B3 quais são.
O problema maior para mim é achar o melhor código para limitar a escolha a apenas dois preços.

Obrigado
Jorge

Nota: deixo aqui versão limpa de qualquer código

[gfranco]

Boa noite.
Veja se é isso que deseja.

[JCabral]

É quase isso gfranco, mas em vez de apagar todas as checkbox não é possível bloquear apenas nova escolha? Ou seja depois de eu escolher P2 e P4 (pex.) ele bloqueava uma terceira escolha mas sem apagar P2 e P4, e depois era preciso escrever P2 em B2 e P4 em B3, a ordem não é importante.

Obrigado
Jorge Cabral

[gfranco]

Mais uma tentativa.

[JCabral]

Gfranco, ainda quase lá, no caso de eu marcar P2 e depois P4, se me enganei na marcação de P4 já não dá para marcar outra checkbox.

[Reinaldo]

Como não ficou claro quando gravar, e aproveitando o modelo do colega Franco; segue uma possibilidade

[JCabral]

Bom dia Reinaldo

Diria que está quase perfeito, só a parte da escrita poderia/deveria melhorar. Ou seja quando, p.ex., seleciono P2, devia escrever logo em B2, depois se seleciono P4, devia escrever em B3; Se desmarco P2 apaga P2 de B2 e assim sucessivamente.
Não sei se criando duas variáveis boolenas, PRIMEIRO e SEGUNDO, que conforme forem verdadeiras ou falsas é escrito em B2 ou em B3, não sei se este é o melhor método.

[Reinaldo]

Será sempre "escrito" em B2 e B3?
Se for veja se es´ta em linha:

[JCabral]

Reinaldo

Sim será sempre escrito em B2 e B3.
Só está faltando um pormenor para ficar TOP, quando desativo todas as checkbox na célula B2 continua a ficar escrito algo, mesmo sem estar nada selecionado.
É possível retificar isso?

Muito obrigado
Jorge

[Reinaldo]

Na rotina gravar acrescente a linha:
If ulinha = 3 Then Folha1.Cells(ulinha, 2) = ""
If ulinha = 2 Then Folha1.Cells(ulinha, 2) = ""

[JCabral]

Obrigado Reinaldo, obrigado Gfranco

Ficou TOP, era mesmo o que precisava.