riberex00

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

Funcionou direitinho Alyson. Obrigado pela ajuda.👍

Valeu Alyson, vou testar e te dou um retorno.

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

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

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