Excel como inserir data com imputbox

[Nilton Cézar]

Olá, pessoal.

 

Estou precisando de uma ajuda para inserir data no formato dia/mês/ano, ou seja, 25/06/2020, na planilha ativa, em uma determinada célula.

 

Pois bem, tenho a macro a seguir:

 

Sub Inserir_Valores_Panilha_Ativa()

Dim caixa As String

'Inputbox para inserir valores.
caixa = InputBox("Clique na célula permitida antes. Em seguida, cliquem em OK, para incluir valores.")

'Inserir os dados em qualquer célula selecionada.
ActiveCell = caixa

End Sub

 

Contudo, quando digito a data desejada com o código acima, a macro insere a data com dia e mês invertidos. Ou seja, considerando a data mencionada anteriormente (25/06/2020), ela ficaria 06/25/2020. Portanto, claramente inaceitável.

 

Assim, gostaria de uma imputbox que inserisse a data no formato dd/mm/aaaa, na planilha ativa, em uma célula específica, por exemplo, C9.

 

Desde, já agradeço a ajuda.

 

 

 

[OreiaG]

Veja se ajuda.

 

ActiveCell = Format(caixa, "mm/dd/yyyy")

 

[Nilton Cézar]

OreiaG, deu certo, sim! 

 

Citação

Assim, gostaria de uma imputbox que inserisse a data no formato dd/mm/aaaa, na planilha ativa, em uma célula específica, por exemplo, C9.

 

Mas, como ficaria para a data ser inserida em uma célula específica? É que pretendo colocar essa data em uma determinada célula, como destacado acima.

 

Obrigado.

 

 

[Patropi]

@Nilton Cézar

 

Range ("C9") = Format(caixa, "mm/dd/yyyy")

 

[Nilton Cézar]

Range ("C9") = Format(caixa, "mm/dd/yyyy")

 

Deu certo, Patropi. 

 

Obrigado pela ajuda, pessoal.