Este fórum está sendo desativado

[GENECI]

Boa tarde.

Solicito a sua ajuda, conforme o arquivo anexo.

Grato - Geneci.

[AfonsoMira]

Boas apenas consegui esta solução em MACRO/VBA.
Espero que lhe ajude.

[GENECI]

Boa tarde, AfonsoMira.
Muito obrigado, por atender a minha solicitação.

Para o problemas específico não atende a necessidade, porém para fins de estudos sim.

Grato - Grato.

[osvaldomp]

Cole uma cópia do código abaixo no módulo da Planilha1. Para acessar o módulo clique com o direito na guia daquela planilha | Exibir Código.
#

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$E$12" Or [X12] <> "" Then Exit Sub
 Cells(12, Columns.Count).End(1)(1, 2) = [E12]
End Sub

[GENECI]

Boa tarde, osvaldomp.

Grato, pelo código VBA.

Geneci.