Logo Hardware.com.br
Tati Moniz
Tati Moniz Novo Membro Registrado
11 Mensagens 1 Curtida

Código VBA - Excel - Selecionar várias colunas com Offset (será possível?)

#1 Por Tati Moniz 25/08/2018 - 08:49
Ola gente, mais uma vez venho recorrer a vocês.

Este projeto tem mais de ano, porém preciso adicionar mais dois checkbox e agora o bicho pegou. Cada chekbox retorna o valor 1 ou 0 e vai para uma coluna específica da planilha "Dados". Porém estes dois checkbox que preciso adicionar deverão seguir este mesmo formato, porém devo ter valor 0 ou 1 em várias colunas.
Exemplos:

Checkbox Hemograma vai para coluna Hemograma
Checkbox Filária vai para coluna Filária

Os checkbox que devo inserir são Check-up Canino e Check-up Felino, mas essas vão utilizar váááááááárias colunas ao mesmo tempo.

Checkbox Cao vai para as colunas Hemograma, Hemoparasitos, Filária, Ureia, Creatinina, ALT, Fosfatase Alcalina, Proteína Total, Albumina e Glicose
Checkbox Gato vai para as colunas Hemograma, Hemoparasitos, Ureia, Creatinina, ALT, GGT, Proteína Total, Albumina e Glicose

Não tô sabendo fazer, sério. O que eu sei de VBA eu aprendi vendo Youtube, então sou bem limitada.

Os códigos que usei nas outras checkbox foram estas:
ActiveCell.Offset(0, 1).Value = VBA.IIf(cboxHemo.Value = True, 1, 0)
ActiveCell.Offset(0, 2).Value = VBA.IIf(cboxRet.Value = True, 1, 0)
.
.
.
ActiveCell.Offset(0, 28).Value = VBA.IIf(cboxCoagulo.Value = True, 1, 0)
ActiveCell.Offset(0, 29).Value = VBA.IIf(cboxCompat.Value = True, 1, 0)
ActiveCell.Offset(0, 30).Value = VBA.IIf(cboxSodio.Value = True, 1, 0)
ActiveCell.Offset(0, 31).Value = VBA.IIf(cboxPotassio.Value = True, 1, 0)
ActiveCell.Offset(0, 32).Value = VBA.IIf(cboxCalIon.Value = True, 1, 0)
ActiveCell.Offset(0, 33).Value = VBA.IIf(cboxParvo.Value = True, 1, 0)

Alguém pode me ajudar?

O arquivo vai em anexo.

Obrigada,
Tati

Anexos

© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal