Simples relatório de debitos

Alessandro Gomes de Sousa · Novembro 24, 2023

Não consigo corrigir este código, Alguém pode me ajudar?

Sub CriarPastaTrabalho()
Dim ws As Worksheet
Dim tabelaDebitos As ListObject
Dim chartSheet As Chart
Dim i As Integer

' Cria uma nova planilha
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
ws.Name = "Condominio"

' Adiciona a tabela de débitos
Set tabelaDebitos = ws.ListObjects.Add(xlSrcRange, ws.Range("A1:M4"), , xlYes)
tabelaDebitos.Name = "TabelaDebitos"
tabelaDebitos.HeaderRowRange.Value = Array("Cliente", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", "Total", "DiasAtraso")

' Adiciona os clientes
tabelaDebitos.ListColumns(1).DataBodyRange.Value = Array("Cliente 1", "Cliente 2", "Cliente 3")

' Adiciona a fórmula para o vencimento todo dia 10
For i = 2 To 13
tabelaDebitos.ListColumns(i).DataBodyRange.Formula = "=IF(DAY(TODAY())>10, TODAY()+30-DAY(TODAY())+10, DATE(YEAR(TODAY()), MONTH(TODAY())-1+" & i - 1 & ", 10))"
Next i

' Adiciona valores aleatórios para os débitos
For i = 2 To 13
tabelaDebitos.ListColumns(i).DataBodyRange.Offset(1, 0).Resize(3, 1).Formula = "=RAND()*100"
Next i

' Adiciona a soma total
tabelaDebitos.ListColumns(14).DataBodyRange.Formula = "=SUM(B2:M2)"
tabelaDebitos.ListColumns(14).DataBodyRange.Offset(1, 0).Resize(3, 1).Formula = "=SUM(B3:M4)"

' Adiciona a fórmula para os dias em atraso
For i = 2 To 13
tabelaDebitos.ListColumns(i).DataBodyRange.Offset(1, 1).Resize(3, 1).Formula = "=IF(TODAY()>" & Chr(64 + i) & "2, TODAY()-" & Chr(64 + i) & "2, 0)"
Next i

' Adiciona o gráfico de Gantt
Set chartSheet = Charts.Add
chartSheet.ChartType = xlBarStacked
chartSheet.SetSourceData Source:=tabelaDebitos.ListColumns("Total").DataBodyRange, PlotBy:=xlColumns
chartSheet.SeriesCollection(1).XValues = tabelaDebitos.ListColumns(1).DataBodyRange.Offset(1, 0).Resize(3, 1)
chartSheet.SeriesCollection(1).Name = "Débitos"

' Adiciona formatação ao gráfico
chartSheet.HasTitle = True
chartSheet.ChartTitle.Text = "Saúde Financeira do Condomínio"
chartSheet.Axes(xlCategory, xlPrimary).HasTitle = True
chartSheet.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Clientes"
chartSheet.Axes(xlValue, xlPrimary).HasTitle = True
chartSheet.Axes(xlValue, xlPrimary).AxisTitle.Text = "Débitos"
End Sub