Skip to main content
removeu 503 caracteres do conteúdo
Fonte Link
b8engl
  • 301
  • 5
  • 15

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?


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/17/31/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/yy/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)

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?


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/17/31/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/yy/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)

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?

conteúdo editado
Fonte Link
b8engl
  • 301
  • 5
  • 15

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 = "dd"yy/mm"
Lastrowultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrowultima_linha)

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


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/30/05/1234122.pnghttps://pagina.pt/wp-content/imagens/17/31/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/ddyy/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
Lastrowultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrowultima_linha)

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 = "dd/mm"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/30/05/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/dd/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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?


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/17/31/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/yy/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)
adicionou 497 caracteres ao conteúdo
Fonte Link
b8engl
  • 301
  • 5
  • 15

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 = "dd/mm"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/30/05/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/dd/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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 = "dd/mm"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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

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 = "dd/mm"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

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


Como é que adiciono o conteúdo da célula A2 dentro da variável tudo?
Exemplo: https://pagina.pt/wp-content/imagens/30/05/1234122.png

Range("AB2").Select
Dim tudo As String  
data_pasta = Format(Date, "/dd/mm/")

tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **A2** ".png"

ActiveCell.Value = tudo
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)
Fonte Link
b8engl
  • 301
  • 5
  • 15
Carregando