Não entendi?
Qual a coluna correspondente, correspondente a qual? cada chk em colunas distintas ou em apenas uma
Para saber quale e o nome pode-se utilizar
Private Sub Verifica()
Dim Chk As Control
With Frame1
For Each Chk In Frame1.Controls
If Chk.Value = True Then
msg = msg + Chk.Caption
End If
Next
If msg <> "" Then
MsgBox msg
End If
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/05/2014 8:46 am