Skip to main content
adicionou 10 caracteres ao conteúdo
Fonte Link
b8engl
  • 301
  • 5
  • 15

RESOLVIDO:

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

Obrigado na mesma Ricardo Pontual!

RESOLVIDO:

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

Obrigado na mesma Ricardo Pontual!

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!

Fonte Link
b8engl
  • 301
  • 5
  • 15

RESOLVIDO:

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

Obrigado na mesma Ricardo Pontual!