Macro copiar dados dado de célula para aba

[Douglas Isnaiper]

Boa noite a todos,

 

 

Venho pedir-lhes ajuda referente dúvidas sobre criação de Macros, um tipo especifico de macro.

 

Tenho uma planilha com várias abas, onde estas abas seguem uma sequência de Data, ou seja 30 abas ( 01 a 30 dias do mês ) e em cada planilha da respectiva aba há a informação na célula F1 com a data, e em todas planilha a mesma coisa, apenas coloquei a formula bem simples como por exemplo:

 

=Plan1!F1 = 01.08.2014

=Plan2!F1+1 = 02.08.2014

 

 

O que estou procurando é uma macro, que ao executa-la ela copie a informação da célula F1 (nesse cada a data) para a aba. isso em todas as 30 planilhas. assim sendo, eu precisaria alterar apenas a data da primeira planilha alterando assim as demais em sequencia e transplantando essa mesma sequencia para todas as abas.

 

Agradeço muito se puderem me ajudar,

 

Forte abraço,

RELATÓRIO DIARIO DE OBRA - CACIMBA DE DENTRO_Original.xlsx

[Visitante]

Sub NomeiaPlans()

  Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

      ws.Name = Format(ws.[F1], "dd.mm.yyyy")

    Next ws

End Sub