0

Estou a utilizar o seguinte código para que apresente apenas o dia e o mês.

Range("AB2").Select
ActiveCell.Value = "=Now()"
ActiveCell.NumberFormat = "yy/mm"
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)

Pretendo que seja apresentado da seguinte forma: texto/17/31/texto.
Alguma ajuda sobre como popular os campos?

2 Respostas 2

2

Você pode formatar a data em uma variável e depois atribuir o valor na célula:

Dim data As String
data = Format(Date, "dd/mm")
data = texto1 & "/" & data & "/" & texto2
ActiveCell.Value = data
6
  • Não estou a perceber Ricardo! Assim: data = "texto1 & " / " data & " / " & texto2"
    – b8engl
    Commented 30/05/2017 às 18:12
  • Tenho que deferir as strings : texto1 = Ricardo; texto2 = Pontual;
    – b8engl
    Commented 30/05/2017 às 18:13
  • Tens de definir as strings antes de utilizar Commented 30/05/2017 às 19:22
  • Continuo sem perceber! O valor data em duas vezes como uma string?
    – b8engl
    Commented 30/05/2017 às 19:52
  • Como é que separo a variável "data" dentro da string?
    – b8engl
    Commented 30/05/2017 às 19:54
0

RESOLVIDO:

Range("AB2").Select
Dim tudo As String
data = Format(Date, "dd/mm")
tudo = "texto1/" & data & "/texto2"
ActiveCell.Value = tudo
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)

Obrigado na mesma Ricardo Pontual!

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .