|
 Saberexcel - o site das macros - aqui voce encontra o que procura.
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que trabalha com Checkboxes, quando ativar determinada checkbox, que estão dispostos na folha de planiha na coluna(B), inserirá uma data e hora (Agora()) na coluna(C). São sete objetos checkboxes do vba que interagem com as macros.
Sub Processa_checkbox(sbObjeto)
Dim vLinha As Integer
Dim vRange As String
'Variaveis procura por todos os checkboxes inseridos plan
vLinha = sbObjeto.TopLeftCell.Row
vRange = "C" & CStr(vLinha)
'Insere na coluna(C) a data atual se o checkbox for ativado
If sbObjeto.Value = True Then
ActiveSheet.Range(vRange).Value = Now() 'nao esqueça de inserir a formatação personalizada na folha de planilha (Agora())
'Limpa a coluna C se a checkbox for destivada
Else
ActiveSheet.Range(vRange).Value = Null
End If
End Sub
Aprenda Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros
|