Este fórum está sendo desativado

[Mewertthon]

Olá pessoal, estou aprendendo VBA e empaquei nesta macro e estou querendo saber de forma resumida o que ela faz. Em anexo eu coloquei a descrição da macro bem detalhada. Quem puder ajudar eu agradeço muito.

Sheets("Base").Select

Columns("M:AB").Select
Selection.Cut
Columns("CA:CA").Select
ActiveSheet.Paste
Columns("M:AB").Select
Selection.Delete Shift:=xlToLeft

Columns("BL:BL").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight

linha = 2
Do

celula1 = "BL" & linha
celula2 = "BM" & linha
celula3 = "BN" & linha
Range(celula1).Value = 1
Range(celula3).Value = 1
Range(celula2).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[14]<>"""",5,IF(RC[11]<>"""",4,IF(RC[8]<>"""",3,IF(RC[5]<>"""",2,IF(RC[2]<>"""",1,0)))))"

linha = linha + 1

If Sheets("Base").Cells(linha, 1).Value = "" Then
Exit Do
End If

Loop

M1 = linha - 1
M2 = (M1 - 1) + M1
M3 = (M1 - 1) + M2
M4 = (M1 - 1) + M3
M5 = (M1 - 1) + M4


Dados = "A2:BM" & M1
Range(Dados).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dados = "A" & M1 + 1
Range(Dados).Select
ActiveSheet.Paste

linha = M1 + 1
Do
celula3 = "BN" & linha
Range(celula3).Value = 2
linha = linha + 1
If linha = M2 + 1 Then
Exit Do
End If
Loop
Dados = "BR2:BT" & M1
Range(Dados).Select
Selection.Cut
Dados = "BO" & M1 + 1
Range(Dados).Select
ActiveSheet.Paste


Dados = "A2:BM" & M1
Range(Dados).Select
Selection.Copy
Dados = "A" & M2 + 1
Range(Dados).Select
ActiveSheet.Paste
linha = M2 + 1
Do
celula3 = "BN" & linha
Range(celula3).Value = 3
linha = linha + 1
If linha = M3 + 1 Then
Exit Do
End If
Loop
Dados = "BU2:BW" & M1
Range(Dados).Select
Selection.Cut
Dados = "BO" & M2 + 1
Range(Dados).Select
ActiveSheet.Paste


Dados = "A2:BM" & M1
Range(Dados).Select
Selection.Copy
Dados = "A" & M3 + 1
Range(Dados).Select
ActiveSheet.Paste
linha = M3 + 1
Do
celula3 = "BN" & linha
Range(celula3).Value = 4
linha = linha + 1
If linha = M4 + 1 Then
Exit Do
End If
Loop
Dados = "BX2:BZ" & M1
Range(Dados).Select
Selection.Cut
Dados = "BO" & M3 + 1
Range(Dados).Select
ActiveSheet.Paste

Dados = "A2:BM" & M1
Range(Dados).Select
Selection.Copy
Dados = "A" & M4 + 1
Range(Dados).Select
ActiveSheet.Paste
linha = M4 + 1
Do
celula3 = "BN" & linha
Range(celula3).Value = 5
linha = linha + 1
If linha = M5 + 1 Then
Exit Do
End If
Loop
Dados = "CA2:CC" & M1
Range(Dados).Select
Selection.Cut
Dados = "BO" & M4 + 1
Range(Dados).Select
ActiveSheet.Paste

Columns("BL:BL").Select
Selection.NumberFormat = "General"

linha = 2

Do
celula1 = "BL" & linha
Range(celula1).Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]=1,IF(RC[3]<>"""",2,1),IF(RC[3]<>"""",1,0))"
linha = linha + 1
If Sheets("Base").Cells(linha, 1).Value = "" Then
Exit Do
End If
Loop

Columns("BO:BO").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

linha = 2

Do
celula1 = "BO" & linha
Range(celula1).Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]<>"""",IF(RC[2]<=2,1,0),0)"
linha = linha + 1
If Sheets("Base").Cells(linha, 1).Value = "" Then
Exit Do
End If
Loop

Columns("BP:BP").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

linha = 2

Do
celula1 = "BP" & linha
Range(celula1).Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[1]<>"""",RC[-63]=""Cancelado""),IF(RC[2]>2,1,0),0)"
linha = linha + 1
If Sheets("Base").Cells(linha, 1).Value = "" Then
Exit Do
End If
Loop

Sheets("Base Output").Select
Range("A2:BT50000").Select
Selection.ClearContents


Sheets("Base").Select

Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select

linha = 2

Do
celula1 = "A" & linha
Range(celula1).Select
ActiveCell.FormulaR1C1 = "=MONTH(RC[16]) & "" "" &YEAR(RC[16])"
linha = linha + 1
If Sheets("Base").Cells(linha, 2).Value = "" Then
Exit Do
End If
Loop

celula1 = "A2:BT" & (linha - 1)
Range(celula1).Select
Selection.Copy
Sheets("Base Output").Select
Range("A2").Select
ActiveSheet.Paste


'Sheets("Dinamica").Select

'ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh

End Sub