Jump to content
gregurs

Copiar para todos os meses

Recommended Posts

gregurs

Bom dia, estou a fazer um orçamento familiar e tenho uma macro para gerar os meses e quero se possivel quando gera os meses copiar as tabelas receitas e despesas(B4 a I20) que estão noutra folha

para copiar tenho este código:

    Range("B4:I20").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("B4").Select
    ActiveSheet.Paste

para gerar os meses tenho este código:

Dim J As Integer
    Dim K As Integer
    Dim Meses(12) As String

    Meses(1) = "Janeiro"
    Meses(2) = "Fevereiro"
    Meses(3) = "Março"
    Meses(4) = "Abril"
    Meses(5) = "Maio"
    Meses(6) = "Junho"
    Meses(7) = "Julho"
    Meses(8 ) = "Agosto"
    Meses(9) = "Setembro"
    Meses(10) = "Outubro"
    Meses(11) = "Novembro"
    Meses(12) = "Dezembro"

    For J = 1 To 2
        If J <= Sheets.Count Then
            If Left(Sheets(J).Name, 5) = "Folha" Then
                Sheets(J).Name = Meses(J)
                
            Else
                Sheets.Add.Move After:=Sheets(Sheets.Count)
                ActiveSheet.Name = Meses(J)
            End If
        Else
            Sheets.Add.Move After:=Sheets(Sheets.Count)
            ActiveSheet.Name = Meses(J)
        End If
    Next J

    For J = 1 To 2
        If Sheets(J).Name <> Meses(J) Then
            For K = J + 1 To Sheets.Count
                If Sheets(K).Name = Meses(J) Then
                    Sheets(Janeiros).Activate
                    Range("B4:I20").Select
                    Selection.Copy
                    Sheets.Add After:=Sheets(Sheets.Count)
                    Range("B4").Select
                    Sheets(J).Paste
                     Sheets(K).Move Before:=Sheets(J)
                End If
            Next K
        End If
    Next J

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.