Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#72788
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim old, arr
  If Target.Count > 1 Then Exit Sub
  If Target.Address <> "$E$4" Or Target.Value <> "" Then Exit Sub
  Application.Undo
  old = Target.Value
  arr = [E5:E14]: [E4:E13] = arr
  [E14] = old
End Sub
GENECI, Bikke agradeceu por isso

=SE(MÊS(A1)&lt;7;&quot;1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um &quot;[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord