Como faço para preencher formulários em diferentes folhas com base no mês?


0

Eu tenho um diário de exercícios e dieta que preencho todos os dias e quero que os dados passem para outra folha. A folha 1 parece uma planilha e eu quero que ela se mova (acho que a melhor maneira de fazer isso é com um botão) para a planilha 2.

Mas no primeiro dia de um novo mês, quero começar a preencher uma nova folha. Então eu sei como criar a nova folha usando

Sub Macro1()

    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmmm")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub

MakeSheet:

    Dim Importsheet As Worksheet 'Imports worksheet from a closed workbook
    If Day(Date) = 1 Then Sheets.Add Type:= _
    "C:\Users\Valerie\Documents\Template.xls"

    If Day(Date) = 1 Then ActiveSheet.Name = szTodayDate

End Sub

Portanto, no primeiro dia do mês em que a macro é executada, ela cria uma nova planilha, mas não sei como enviar o dia correto para a linha correta na planilha correta e, em seguida, quando uma nova planilha é criada na planilha. primeiro dia do mês, não sei como fazer com que o formulário comece a ir para a nova planilha.

Folha 1

DAILY WORKOUT AND DIET LOG          
Valerie         Wednesday
Workout         A

Total Miles Run         Plank Time (minutes)
6           5

Situps          Squats
30          30

Pushups         
20          

Folha 2

Date   Workout   Miles  Plank   Situps  Squats  Pushups




1
Visto que não sabemos nada sobre a estrutura de qualquer uma das suas planilhas, não há nenhuma maneira de ajudá-lo a "enviar o dia correto para a linha correta na planilha correta".
gtwebb

Alguns diagramas dos seus dados nos ajudariam a entender sua pergunta. Por favor editar sua pergunta para incluir alguns dados (simulados) de exemplo (antes e depois). Vejo Formatar texto como uma tabela para um utilitário da web que irá ajudá-lo a criar uma boa tabela de dados que você pode colar em sua pergunta.
DavidPostill

1
Eu adicionei algumas seções das folhas para mostrar o que estou falando. Espero que isso funcione. @DavidPostill Obrigado pela ferramenta excel.
Valerie

Então eu quero é um botão que executa uma macro que eu atingi no final do dia, quando eu gravei todos os meus dados na folha um, que coloca tudo na segunda folha. Então, no dia seguinte, pressionarei o botão novamente com novos dados na planilha 1 e os dados serão enviados para a próxima linha na segunda planilha dos dados dos dias anteriores. Como eu faço isso?
Valerie
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.