Rafael Castilhos_700515

Perfeito Oswaldo porém, se a minha data de fechamento do cartão é por exemplo 05/10/2014 e a minha compra foi realizada no dia 01/10/2014, a primeira prestação ja comecaria no mês 10, mas ao executar a macro, ela devolve a informação da primeira parcela para o mes 12, Dezembro. Nao consegui solucionar isso.

Segue anexo o Link da Planilha em Excel montada como nas prints !! http://www.4shared.com/file/buJbv4b5ce/Carto_de_crdito.html

Ola Oswaldo Seguem as Prints da Planilha com os comentários e exemplos. http://imageshack.com/a/img538/8084/Xptn1N.jpg http://imageshack.com/a/img661/7541/NX5uHc.jpg A macro utilizada é essa : Sub CartãodeCrédito() Dim i, LR As Long i = 1 Do Until i > Plan2.[D11] With Sheets("Cartão de crédito") LR = .Cells(Rows.Count, 1).End(xlUp).Row If Plan2.[b11] <= Plan2.[A11] Then .Cells(LR + 1, 1) = Plan2.[C11] & " " & i & "/" & Plan2.[D11] .Cells(LR + 1, 2) = Plan2.[E11] / Plan2.[D11] .Cells(LR + 1, 3) = Plan2.[E11] .Cells(LR + 1, 4) = WorksheetFunction.Proper(Format _ (DateAdd("m", i, Plan2.[b11]), "mmmm")) .Cells(LR + 1, 5) = Format(DateAdd("m", i, Plan2.[b11]), "yyyy") Else .Cells(LR + 1, 1) = Plan2.[C11] & " " & i & "/" & Plan2.[D11] .Cells(LR + 1, 2) = Plan2.[E11] / Plan2.[D11] .Cells(LR + 1, 3) = Plan2.[E11] .Cells(LR + 1, 4) = WorksheetFunction.Proper(Format _ (DateAdd("m", i + 1, Plan2.[b11]), "mmmm")) .Cells(LR + 1, 5) = Format(DateAdd("m", i + 1, Plan2.[b11]), "yyyy") End If i = i + 1 End With Loop End Sub

Desculpem desenterrar o Tópico, mas nao encontrei mais nada sobre esse assunto Essa macro resolveu meu problema, porém ela esta com uma diferença no lançamento das parcelas, com relação a data de fechamento do cartão. Ela esta adicionando 2 meses no vencimendo da parcela, mesmo quando a data da compra é menor que a data de fechamento da fatura. Nao manjo muito de VB e ja fucei em todas as linhas mas nao consegui corrigir isso !!