Na verdade só ajustei o código para não haver muita repetição... Simplificar acho que já resumiria mais um pouco ele... Tipo aproveitar alguns loops ...

Boa tarde romanholi, Você pode fazer um loop de verificação também. Chapa 1: For i = 1 To 36 If Frm_Apontamento.Controls("Txt_A...

Você já deve ter outra macro no módulo desta planilha com com Worksheet_Change []s

Luan Estive observando e constatei que você esta com 2 tópicos sobre o mesmo assunto, e conforme as regras do fórum isso é proibido. Se tem um tópico...

Boa tarde Luan Experimente o código abaixxo que deve ser colocado no Módulo da Planilha. Public Sub Worksheet_Change(ByVal Target As Excel.Rang...

Boa tarde gust Movi teu tópico para VBA & Macros que é o assunto da tua dúvida. []s

boa sorte.

Já consegui resolver. Caso alguém precise futuramente, seria algo mais ou menos assim (adaptado de uma rotina criada pelo TOMAS VASQUEZ) Option Expli...

Na rotina ALTERAR, dentro do próprio módulo 1, na linha abaixo use CDATE, vai ficar assim: Sheets("Clientes").Cells(Linha, 6) = CDate(...

. Fernando, não liguei não, só mandei emails!! ... A loja on line que me vendeu as assinaturas por 1 ano (digital River Brasil) me respondeu ao tipo: ...

. Fernando, não liguei não ... quando eles vão renovar, eles falam comigo por email, e não por telefone!! ... VOCÊ já ligou pra eles? Em outras pala...

Boa tarde Já tentou usar: Format(Me.txtPais.Text, "mm/dd/yyyy") []s

. Fernando, não liguei não ... quando eles vão renovar, eles falam comigo por email, e não por telefone!! ... Já enviei 6 emails e eles não deram sina...

Lucas É só copiar o código que o JValq postou e colar aí. Depois clique em ALT+Q para sair do editor de VBA e retornar a planilha. O código vai ser ...