Home Excel - Dicas Microsoft Excel VBA Excel VBA - Digitacao Excel planilha vba digitacao altera data hora envia dados plan

Excel planilha vba digitacao altera data hora envia dados plan

E-mail Imprimir PDF

Saberexcel - o Site de quem precisa Aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), auxliado pleo Evento_Change(ao digitar) em determinadas células da folha de planilha altera data e hora automaticamente, também envia uma mensagem para Planilha(Alteracao) informando data, hora e valores alterados nas células. Espero que o exemplo possam lhe ser útil.
Este exemplo faz parte do Módulo - COMO FAZER - Programação MS Excel VBA_IV
Modulos Como Fazer - Relação de Planilhas dos Módulos


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:D20")) Is Nothing Then
   Saber2.Cells(Target.Row, 4).Value = "Ultima alteração ocorreu na Linha..: [ " & Target.Row & "] Valor..: [ " & Target.Value & " ]"
   Saber2.Cells(Target.Row, 5).Value = Date
   Saber2.Cells(Target.Row, 6).Value = Time
End If
End Sub

 



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), com baixo custo, praticando com os produtos didáticos Saberexcel




 Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba digitacao altera data hora envia dados plan (20.4 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 18:31  

Comentários  

 
# thulio 11/03/2014 16:47
estou com esse problema no vba, minha txtbox está configura assim

Private Sub caixaultparto_C hange()
caixaultparto = Format(caixault parto, "dd/mm/yyyy")

If Len(caixaultpar to) = 2 Or Len(caixaultpar to) = 5 Then
caixaultparto.Text = caixaultparto.Text & "/"
SendKeys "{End}", True
End If
porém não consigo fazer a mudança dessa referida data
poderia me ajudar por favor
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4803
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19250
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês32979
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455808
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA