jansensaippa

Resolvi. Como pensei mesmo. Para resolver renomeei a planilha como BOMBA - 2013 e usei ano = Val(Left(Right(Application.ThisWorkbook.Name, 9), 4)) (sendo que o nome da planilha é bomba - 2013.xlms

Identifiquei o problema, entretanto não encontrei a solução. A função Day(DateSerial(ano, j, 1)) não está retornando a quantidade dos dias do mês que escolhi, talvez a variável ano = Val(Application.ThisWorkbook.Name) também não esteja retornando o que eu quero (o nome da planilha que é 2013)

Olá. Já desisti de tentar encontrar o problema da minha planilha. Criei um código para criar abas baseadas nos meses e a primeira coluna de cada aba conter os dias do respectivo mês. Entretanto, quando rodo o código, geram-se as abas, mas a coluna com os dias não é atualizada. Por favor, se alguém conseguir ver onde estar o erro. Sub padrão() Dim i, a, x, ano, dt As Integer Dim mes As String a = 3 ano = Val(Application.ThisWorkbook.Name) For i = 5 To Day(DateSerial(ano, j, 1)) * 3 Range("a" & i) = DateSerial(ano, 1, a / 3) a = a + 1 Next i For j = 2 To 12 If j = 2 Then mes = "FEVEREIRO" ElseIf j = 3 Then mes = "MARÇO" ElseIf j = 4 Then mes = "ABRIL" ElseIf j = 5 Then mes = "MAIO" ElseIf j = 6 Then mes = "JUNHO" ElseIf j = 7 Then mes = "JULHO" ElseIf j = 8 Then mes = "AGOSTO" ElseIf j = 9 Then mes = "SETEMBRO" ElseIf j = 10 Then mes = "OUTUBRO" ElseIf j = 11 Then mes = "NOVEMBRO" ElseIf j = 12 Then mes = "DEZEMBRO" End If ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count) Sheets(Sheets.Count).Name = mes Sheets(j - 1).Select Columns("A:S").Select Selection.Copy Sheets(j).Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False a = 3 For i = 5 To Day(DateSerial(ano, j, 1)) * 3 Range("a" & i) = DateSerial(ano, j, a / 3) a = a + 1 Next i Next j End Sub