Ao inseria uma nova Aba

2024 - VBA & Macros

Post Recente por anacletotranstusa 9 anos atrás

3 Posts

2 Usuários

0 Reactions

879 Visualizações

RSS

anacletotranstusa

(@anacletotranstusa)

Posts: 64

Estimable Member

Topic starter

Boa tarde,

Tenho uma pasta de trabalho onde utilizo como uma ata de reunião. A cada reunião insiro uma nova aba, muitas vezes esqueço de informar a data da reunião. Preciso criar uma rotina que ao inserir uma nova aba, a data seja preenchida em uma determinada célula.
Desde já agradeço atenção.

Postado : 02/10/2015 10:16 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde Anacleto,

Utiliza esse código em "EstaPasta_de_trabalho"

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim ValorData   As String
    MsgBox "Nova aba criada."
    ValorData = InputBox("Confirme a data da reunião.", , Date)
    ThisWorkbook.ActiveSheet.Range("A1").Value = Format(ValorData, "mm/dd/yyyy")
End Sub

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/10/2015 10:36 am