Amigo, não consegui entender muito bem o exemplo que vc me enviou, está meio complexo para mim.
Vou analisá-lo um pouco mais, mas se tiver um exemplo mais simples, eu agradeço.
Neste exemplo, cada ChecjBox tem uma rotina associada ao mesmo :
Pegando como exemplo o CheckBox2:
Private Sub CheckBox2_Click()
If Plan1.CheckBox2.Value = True Then
CheckBox2.BackColor = corEnabledCheckBox
[A3] = "+"
Else
CheckBox2.BackColor = corDisabledCheckBox
[A3] = "-": End If
End Sub
Quando Clicado "Verdadeiro" é colocado o sinal de mais "+" em "A3" e quando "Falso" o sinal de menos "-".
Apos selecionados os itens que quer, a rotina Sub Transfere() simplesmente efetua a Filtragem pela coluna "A" pelos sinal de mais "+" e
If Plan1.Cells(X, 1).Value = "+" Then '1 coluna pequisa, e
transfere para a "Plan2", e quando limpamos os checkbox e executamos a macro, a condição não será atendida limpando os dados que foram transeferido.
Acho que consegui explicar, qq duvida retorne.
Se ainda não for isto, o ideal é anexar um modelo reduzido e compactado para poder trabalhar em cima.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/06/2013 7:10 pm