USANDO DUAS CÉLULAS PARA PREENCHIMENTO.
Enviado: 07 Jul 2020 às 15:11
Boa tarde.
Solicito a sua ajuda de acordo com o arquivo anexo.
Grato - GENECI.
Solicito a sua ajuda de acordo com o arquivo anexo.
Grato - GENECI.
Instale uma cópia do código abaixo no módulo da planilha Planilha1.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$4" Then Exit Sub
[B3:B4].Copy
[C3].Insert shift:=xlToRight: [B3:B4] = "": Application.CutCopyMode = False
[B3].Activate
End Sub