Data Rodapé Sem Barras

[willian.mprado]

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.
 

Editado Novembro 9, 2017 por willian.mprado
Erro de escrita

[Erik Wesley]

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 "/".

[willian.mprado]

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.

[Erik Wesley]

Depende de onde o valor estará. Em outra célula ou na mesma?

[willian.mprado]

É 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é.

Editado Novembro 9, 2017 por willian.mprado
Acréscimo de informação

[Erik Wesley]

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.