• 0
Sign in to follow this  
willian.mprado

Data Rodapé Sem Barras

Question

Bom dia, pessoal.

    Estou precisando de uma ajuda em relação a uma macro que montei, nessa macro ele pega os dados de um campo (célula B8) e acrescenta no rodapé, quando rodo ela adicionando também o número da página, porém precisava que essa informação dia, mês, ano e hora não estivessem com a formatação de barras e nem de pontos, por exemplo:

Hoje dia 09/11 ás 09:44:17 

Ficasse assim: 0911094417 + o número da página

Abaixo segue macro utilizada:

Sub Número_Documento()
    With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Negrito""&20" & "Nº Documento: " & Application.ActiveSheet.Range("B8") & "&P"
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Se puderem me ajudar agradeço.
 

Edited by willian.mprado
Erro de escrita

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Eu modifiquei seu código com base em outra que uso.

Segue:

Sub Número_Documento()
Dim dt As String
dt = Range("B8").Value
Debug.Print dt
dt = Replace(dt, "/", Empty)

Debug.Print dt
    With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Negrito""&20" & "Nº Documento: " & dt & "&P"
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

Ele vai fazer exatamente o que você quer (ou oque eu acho que você queira). Ira colocar no rodapé apenas os números da célula B8, no seu caso, a data sem os "/".

Share this post


Link to post
Share on other sites
  • 0

Erik,

    Primeiramente obrigado pelo retorno, inclusive atendeu exatamente o que precisava, minha duvida agora é em relação a hora, seria possível também retirar os pontos? Exemplo agora são 11:07:17 ao invés de ficar desta forma, deixar visível desta maneira: 110717? Sendo assim eu teria o campo da seguinte maneira: Nº Documento: 09112017110717.

Share this post


Link to post
Share on other sites
  • 0

É na mesma célula, se for o caso ele não precisa buscar deste campo, desde que ele retorne o dia, mês e ano além da hora no rodapé.

Edited by willian.mprado
Acréscimo de informação

Share this post


Link to post
Share on other sites
  • 0
Sub Número_Documento()

Dim hrs As String
Dim mts As String
Dim scds As String

hrs = Hour(Now())
mts = Minute(Now())
scds = Second(Now())


Dim dt As String
dt = Range("B8").Value
Debug.Print dt
dt = Replace(dt, "/", Empty)

Debug.Print dt
    With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Negrito""&20" & "Nº Documento: " & dt & hrs & mts & scds & "&P"
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Agora ele fara exatamente o que você quer, no entanto, ele ira colocar no rodapé a hora ATUAL. Se quiser que ele ponha a hora (colocada no rodapé) em alguma célula é só especificar que eu arrumo.

 

 

 

 

 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this