Ir para conteúdo
Fórum Script Brasil
  • 0

Data Rodapé Sem Barras


willian.mprado

Pergunta

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 por willian.mprado
Erro de escrita
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

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

Link para o comentário
Compartilhar em outros 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.

Link para o comentário
Compartilhar em outros 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.

 

 

 

 

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...