CheckBox!

[epplenas]

Boa Tarde, Galera!


estou criando um formulario, onde coloquei 04 checkbox, como posso salvar os dados na planilha de acordo com o que eu escolher

[Mikel Silveira Fraga]

Epplenas, boa noite.

Segue o código para a utilização de quatro CheckBox no formulário, de forma que você salve as informações caso esteja selecionado.

Código: Selecionar todos

Private Sub Salvar_Checkbox()

    If CheckBox1.Value = True Then
        Range("A1").Value = "Visual Basic"
    Else
        Range("A1").Value = ""
    End If
    
    If CheckBox2.Value = True Then
        Range("A2").Value = "Java Script"
    Else
        Range("A2").Value = ""
    End If
    
    If CheckBox3.Value = True Then
        Range("A3").Value = "Delphi"
    Else
        Range("A3").Value = ""
    End If
    
    If CheckBox4.Value = True Then
        Range("A4").Value = "PHP"
    Else
        Range("A4").Value = ""
    End If

End Sub

Se ficar alguma dúvida, envie o modelo para facilitar na análise.

Abraços e boa noite!!!!

[epplenas]

Boa Noite!

Grato pelo retorno Mikel!

estou enviando o modelo para facilitar a analise e uma possível ajuda!

O form que estão as checkBox's é o FORM8..........tem um texto explicando mais ou menos o que eu queria, lógico se der para "fazer"

[Mikel Silveira Fraga]

Epplenas, boa tarde.

Sobre sua dúvida e descrição na planilha, tenho duas soluções para isso, mas antes preciso que você me esclareça apenas uma dúvida.

Quando os InputBox forem carregados e as quantidades mencionadas, para onde irá essa informação? Onde você pretende armazenar esses valores?

Para se escolher a melhor solução a ser utilizada nesta rotina, é interessante ter esta informação.

Fico no aguardo.

[epplenas]

Mikel, Boa Tarde!


Grato pelo retorno!


Depois de inserir as quantidades, as informações iriam para a planilha PALETES_A,

[epplenas]

Mikel, Boa Noite!



Estou enviando o modelo com a alteração na planilha!

A planilha que irá receber os dados é a "PALETES_A"


Grato por enquanto!

[epplenas]

Mikel, Bom Dia!


Consegui resolver a duvida mais acima, não sei se seria esta a rotina certa, mas esta funcionando conforme eu quero!
Dei uma adaptada na rotina que você me passou, cara, muito obrigado!

segue a rotina abaixo:

Dim iRow_1 As Long
Dim ws_1 As Worksheet
Set ws_1 = Worksheets.Application.Sheets("PALETES_A")
iRow_1 = ws_1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row


ws_1.Cells(iRow_1, 1).Value = Label26.Caption

If CheckBox1.Value = True Then
qtde = InputBox("Insira Quantidade de Paletes PBR Enviados", "PBR - FÁBRICA")
ws_1.Cells(iRow_1, 2).Value = qtde
Else
ws_1.Cells(iRow_1, 2).Value = ""
End If

If CheckBox2.Value = True Then
qtde = InputBox("Insira Quantidade de Paletes PBR Enviados", "PBR - MOGI")
ws_1.Cells(iRow_1, 3).Value = qtde
Else
ws_1.Cells(iRow_1, 3).Value = ""
End If

If CheckBox3.Value = True Then
qtde = InputBox("Insira Quantidade de Paletes PBR Enviados", "PBR - GUAIBA")
ws_1.Cells(iRow_1, 4).Value = qtde
Else
ws_1.Cells(iRow_1, 4).Value = ""
End If

If CheckBox4.Value = True Then
qtde = InputBox("Insira Quantidade de Paletes PBR Enviados", "PBR - RECIFE")
ws_1.Cells(iRow_1, 5).Value = qtde
Else
ws_1.Cells(iRow_1, 5).Value = ""
End If

[Mikel Silveira Fraga]

epplenas, boa noite.

Cara, essa semana foi um caos no serviço, vários problemas e cobrindo férias do meu chefe.

Bem, a principio eu havia imaginado exatamente uma rotina parecida com esta. Mas achei que a rotina seria muito extensa e sempre buscamos tentar uma rotina mais resumida para este tipo de repetição do mesmo objeto em um único formulário.

Se desta forma já esta funcionando, missão cumprida.

Depois adicione apenas que o assunto foi resolvido.

Mais uma vez peço desculpas por não ter respondido, mas realmente esse mês esta sendo algo anormal.

Bom feriadão pra ti e bom descanso!!!

[epplenas]

Mikel, Bom Dia!

Cara não se preocupe em relação a não conseguir responder, só pelo fato de ter dado uma "luz", já me ajudou e muito, mesmo assim obrigado!


Bom feriado para Ti tb....

Abraços!