sábado, abril 30, 2005

Inserir data e hora após inserção de dados

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Worksheet_Change(ByVal Target As Range)
'
'Autor: Eneias dos Santos Pedroso
'
If Target.Row = 1 Then Exit Sub
If Target.Column = 1 Or Target.Column = 3 Then
'Perceba-se que há duas colunas como referência
'onde ocorrer inclusão de dados, ativa a macro
For Each Item In Target
If Item.Value <> "" Then
If Worksheets(1).Cells(Target.Row, 5) = "" Then
'O número 5 refere-se à coluna "E" que
'receberá a data e hora se estiver vazia
Worksheets(1).Cells(Target.Row, 5) = Format(Now(), "mm/dd/yy hh:mm")
'Coluna 5 = Coluna "E"
Worksheets(1).Range(Cells(Target.Row, 1), _
Cells(Target.Row, 6)).Borders.LineStyle = xlContinuous
'Este último evento, como complemento,
'incluirá automaticamente bordas no intervalo: Colunas, 1:6
End If
End If
Next Item
End If
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !