Este fórum está sendo desativado

[jpzfran]

Bom Dia, Pessoal.

Estou elaborando uma planilha de compras e gostaria de quando preencher a célula A1, a B1 fixasse a data referente ao preenchimento e não alterasse e não alterasse nunca., e a C1 fixasse a hora referente ao preenchimento e não alterasse nunca.

Muito obrigado desde já.

[babdallas]

Veja se é isso o que deseja. Digite algo em A1 para testar.

[jpzfran]

Seria isso mesmo, mas como você elaborou, pois eu preciso fazer nas duas colunas inteira da planilha em todas as linhas...

[babdallas]

Veja agora. Usei o código abaixo no evento Change da planilha em questão.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
            .Offset(0, 1).Value = Date
            .Offset(0, 2).Value = Now - Date
        End If
    End With
End Sub

[jpzfran]

Se eu tiver varias abas na planilha como eu faço uma atribuição a uma delas