Excel-VBA - Preencher uma célula, de CheckBox Selec.

[Jailson Dias]

Olá Amigos, Boa Tarde

Sou novo aqui no forum, e gostaria muito da ajuda de vocês.

Estou montando uma planilha, e estou atualmente trabalhando em 2 colunas. Essas colunas, representam "Falhas no Processo".

Criei um código para que quando eu clico por exemplo na célula AU6 e assim por diante, ele me abre um "UseFOrm", onde eu coloquei alguns "Checkbox".

POrtanto, preciso de uma ajuda...gostaria de que ao selecionar as devidas "falhas no processo" que estão como "Checkbox", ela preenchesse automaticamente na células AV7 (coluna seguinte) o dado que eu "fleguei" no checkbox selecionado.

Poderiam por gentileza me dar esse Help?

Segue abaixo o código que criei até o momento.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Colunas As Range

Set Colunas = Range("AU1:AU20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

UserForm1.Show

linha = Target.Row

'À desenvolver

'Range("AV" & linha).Value = ""

End If

End Sub

Obrigado

[Jailson Dias]

Fala aí pessoal, beleza? alguém conseguiu entender a minha dúvida e pode me ajudar?

obrigado mais uma vez!

[zinhovba]

Boa tarde!!

Não ficou muito claro, poste seu arquivo em site gratuito, nos mande o link!

Att

[Jailson Dias]

Olá Zinho, muito obrigado pelo seu retorno. Vou tentar explicar um pouco melhor:

Eu tenho uma Coluna (AU) que ao selecionar esta célula, ele abrirá uma "userform" com alguns "checkbox".

Eu tenho vários Checkbox...mas resumindo, eu tenho do checkbox 1 ao 10.

Esses Checkboxes são as descrições de falhas dentro do meu processo...por exemplo:

010 - Cadastro de Produtos

011 - GTS com Problema

012 - Atraso Invoice

013 - Pre-Alerta

014.....

015.....(e assim em diante).

Ao "flegar" essas checkboxes, eu gostaria que aparecesse a descrição das mesmas na coluna seguinte (AV).

É possível que se crie um código fazendo com que se eu selecionar a opção do checkbox...010 e 013, ele preencha essas informações no campo seguinte. A sequencia não importa, o que importa é que eu selecione uma opção da lista, e ele apareça na célula seguinte.

Até agora, eu tenho o seguinte código:

Public sTarget

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Colunas As Range

Set Colunas = Range("AU1:AU20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

sTarget = Target.Address(0, 0)

UserForm1.Show

End If

______________________

e dentro das checkboxes, eu tenho:

___________________

Private Sub CheckBox1_Click()

Range(sTarget).Offset(0, 1).Value = "010 - Cadastro de Produto"

End Sub

___________________________

Bom, acho que consegui explicar um pouco melhor agora.

Muito obrigado mais uma vez!

[jeffsilveira]

Boa tarde!!

Não ficou muito claro, poste seu arquivo em site gratuito, nos mande o link!

Att

Faça como nosso amigo Zinho pediu.

Se não puder colocar a originalpor motivos de privacidade, monte um exemplo com dados fictícios, mas com o mesmo layout e comandos da original.

Use sendspace, 4shared ou outro similar e cole o link aqui.

Abraços.