Página 1 de 1

Mudar GroupName de OptionButton - VBA

Enviado: 31 Jan 2016 às 16:36
por Walisson
Boa Tarde Pessoal!

Tenho uma planilha que cria um questionário com 2 perguntas, no menu da planilha o usuario digita o nº de aves que ele quer aplicar o questionario, de acordo com o que o usuário digita é criado Radio buttons para cada pergunta x numero de aves.

O processo de criação esta pronto, o que não estou conseguindo fazer é mudar a propriedade "GROUPNAME" de cada conjunto de optionbuttons, para que a seleção possa ser feita de maneira correta, atualmente posso escolher apenas 1 opção , dentre todos os radios da planilha, justamente porque o groupname é igual para todos.

Na planilha que deixo anexo, o usuário coloca o numero de Aves que ele quer aplicar o questionário, e no questionário ele escolhe um opção de cada pergunta para cada ave.

Tentei usar checkbox mas como o usuário iria poder escolher somente uma resposta, não funcionou muito bem, então decidi usar o radiobtn mas cai em outro problema, em que todos os botoes ficam no mesmo groupname.

obs: todos os conjuntos de botoes tem de ser criados via código, porque esse numero será dinâmico, por isso não posso colocar os groupnames manualmente.

Se alguem tiver alguma idéia com checkbox tb aceito a sugestão.

Re: Mudar GroupName de OptionButton - VBA

Enviado: 01 Fev 2016 às 10:43
por Reinaldo
Experimente:
Código: Selecionar todos
Sub grupos()
Dim I as Integer, y as Integer
I = 0
For y = 1 To ThisWorkbook.Sheets("Menu").Range("H13").Value * 2
    For x = 1 To 3
        ActiveSheet.Shapes("OptionButton" & x + I).OLEFormat.Object.Object.GroupName = "teste" & y
    Next
    I = I + 3
Next
End Sub
Obs.: http://www.planilhando.com.br/forum/vie ... 098#p96098 e http://www.tomasvasquez.com.br/forum/vi ... =20&t=4259