[Distribuir parcelas do cartão com a diferença na primeira parcela]

Boa noite pessoal. Como mudar o código abaixo (distribuição das parcelas do cartão de credito), para que a diferenca seja na primeira parcela? Obrigado.

Option Explicit

Private Sub Btn_Executar_Click()
Dim Lin As Long           'Controlar Nr de parcelas
Dim Col As Integer        'Colu onde info sera inserida
Dim QteParc As Byte       'Controlar parcelas
Dim Valor As Currency     'Valor Tot
Dim ValorParc As Currency 'Valor cada parcela
Dim Dif As Currency       'Armaz dif nos valores

Dim W As Worksheet         'Var Ctrl para manipular a planilha
Dim A As Integer           'Var Loop

Set W = Planilha1
W.Range("D:E").Clear       'Apaga valores anteriores

'Captura valor do problema
QteParc = W.Range("B1").Value
Valor = W.Range("B2").Value


Lin = 1
Col = 4
'Valor da parcela ' Valor sem casas decimais: FIX
                  ' Valor com casas decimais: ROUND
ValorParc = Round(Valor / QteParc, 2)


'Calcular a dif se existir
    If Valor <> (ValorParc * QteParc) Then
    Dif = Valor - (ValorParc * QteParc)
    End If
    

'Rotina p/ Add a dif
For A = 1 To QteParc
    W.Cells(Lin, Col).Value = "'" & A & "/" & QteParc

    If A = QteParc Then
       
        W.Cells(Lin, Col + 1).Value = ValorParc
    Else
        
        W.Cells(Lin, Col + 1).Value = ValorParc + Dif
    End If
       
    Lin = Lin + 1
Next
MsgBox "Pronto!"
End Sub

 

[Código para carregar somente o tipo da descrição escolhida.]

Funcionou direitinho Alyson. Obrigado pela ajuda.👍

[Código para carregar somente o tipo da descrição escolhida.]

Valeu Alyson, vou testar e te dou um retorno.

[Código para carregar somente o tipo da descrição escolhida.]

Boa tarde, Alyson, segue link para acesso ao arquivo. https://drive.google.com/file/d/1KQaG-Ui1Wm3m097wGCRp4Wzt7xp-47ME/view?usp=share_link

Desculpe não ter enviado antes.

Minha intenção é criar um código que ao pesquisar um contato, sejam mostrados apenas os contatos da categoria, da cidade ou do nome pesquisado. Por exemplo: ao pesquisar cidade e escolher Caxambu apareçam somente os contados da cidade de Caxambu, com todos os seus campos ou, ao escolher a categoria Automóveis, apareçam somente os contatos da categoria Automóveis, com todos os seus campos.

Obrigado.

Carlos

[Código para carregar somente o tipo da descrição escolhida.]

Serve esse?

Eu gostaria de ao escolher a cidade, por exemplo, fossem listados os contatos somente daquela cidade. Obrigado.

[Código para carregar somente o tipo da descrição escolhida.]

Em uma agenda de contatos, com duas ComboBox dependentes, sendo a 1ª) CmbTipo: Categoria, Cidade e Nome, e a 2ª) dependente, CmbDescrição da Categoria, da Cidade e do Nome, programei as ComboBox para serem carregadas, a primeira no evento “Open” e a segunda no evento “Change”. Agora eu preciso de um código que pesquise e mostre somente o tipo pesquisado. Por exemplo, se eu carregar a CmbTipo: com Categoria, na CmbDescrição aparecerão somente as categorias. Então, ao clicar em uma das categorias eu gostaria que fossem carregadas na tabela apenas as categorias escolhidas, ou então, somente as Cidades escolhidas, e assim por diante. Como poderia ser esse código? Obrigado a todos.

Private Sub Workbook_Open()
    Sheets("PESQUISAR").Select
    Sheets("PESQUISAR").CmbTipo.Clear
    Sheets("PESQUISAR").Range("L3").Select
    
    Do While ActiveCell.Value <> ""
        Sheets("PESQUISAR").CmbTipo.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop
    
    Sheets("PESQUISAR").CmbTipo.ListIndex = 0
    Sheets("PESQUISAR").Range("B11").Select
End Sub

Private Sub CmbTipo_Change()

    'Limpar ComboBox Descrição
    
    Sheets("PESQUISAR").Activate
    Sheets("PESQUISAR").CmbDescricao.Clear
    'Sheets("LISTAS").Activate
   
    'Selecionar célula para iniciar a busca dos dados
    
    If CmbTipo.Value = "Categoria" Then
        Range("N3").Select
    ElseIf CmbTipo.Value = "Cidade" Then
        Range("P3").Select
    Else
        Range("R3").Select
    End If
    
    'Adicionar itens na ComboBox
    
    Do While ActiveCell.Value <> ""
        CmbDescricao.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop
    
    'Deixar primeiro item selecionado
    
    Sheets("PESQUISAR").Activate
    Sheets("PESQUISAR").CmbDescricao.ListIndex = 0
    Sheets("PESQUISAR").Range("B11").Select
End Sub