Bom dia!!

Geralmente sterings ficam entre aspas duplas "Crédito a Vista"

Sub CartãoDeCrédito()
Dim parcela, i, LR, mes  As Long
Dim Débito As Variant, Crédito As Variant

i = 1
mes = Month(Worksheets("Lançamento").Range("F3").Value)
ano = Year(Worksheets("Lançamento").Range("B3").Value)
parcela = Worksheets("Lançamento").Range("F3").Value
Débito = Array("Crédito Parcelado", "Crédito a Vista", "Cheque a Vista", "Cheque Parcelado", "Débito")
Crédito = Array("Depósito", "Pagamento", "Vale")

ReDim Débito(5) As String
ReDim Crédito(3) As String

Do Until i > [F3]
    With Sheets("Banco de Dados")
        LR = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(LR + 1, 1) = [B3] 'Data da compra
        .Cells(LR + 1, 2) = [C3] 'Descrição da compra
            If Worksheets("Lançamento").Range("E3") = "Débito" Then
                .Cells(LR + 1, 3) = ([D3] / [F3] * (-1)) 'saída
                .Cells(LR + 1, 3).Font.Color = vbRed
            ElseIf Worksheets("Lançamento").Range("E3") = "Crédito a Vista" Then
                .Cells(LR + 1, 3) = [D3] / [F3] 'Entrada
                .Cells(LR + 1, 3).Font.Color = vbBlue
            End If
        .Cells(LR + 1, 4) = [E3] 'Tipo da compra
        .Cells(LR + 1, 5) = [F3]
        .Cells(LR + 1, 6) = [G3]
        .Cells(LR + 1, 7) = "'" & i & "/" & [F3]
        .Cells(LR + 1, 8) = "'" & mes & "/" & ano
        mes = mes + 1
        i = i + 1
    End With
Loop
End Sub

Att

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, o anexo deste tópico foi removido.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando