none
Duvida VBA Excel Macro so ativa em uma linha RRS feed

  • Pergunta

  • Boa tarde,

    Estou com uma planilha bem simples. Criei uma macro que calcula alguns valores simples em uma linha.

    Ela é ativado na última célula da linha.

    Dai preciso fazer o mesmo na segunda linha, mas ela não funciona nas linhas que vem depois.

    Tem como enviar a tabela? Como não tenho muito conhecimento acredito que pode ser bem menor.

    Segue o código:

    Public Sub boleto()
    Dim parcela As Integer
    Dim result As Double
    Dim valor As Double
    Dim fator As Double
    fator = ThisWorkbook.Sheets("Plan1").Range("K3").Value
    valor = ThisWorkbook.Sheets("Plan1").Range("B3").Value
    parcela = ThisWorkbook.Sheets("Plan1").Range("D3").Value
    letra = ThisWorkbook.Sheets("Plan1").Range("C3").Value
    numero = ThisWorkbook.Sheets("Plan1").Range("D3").Value
    If parcela = 1 Then
    result = parcela * valor
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    ElseIf parcela = 2 Then
    result = valor * fator
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    ElseIf parcela = 3 Then
    fator = ThisWorkbook.Sheets("Plan1").Range("K4").Value
    result = valor * fator
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    ElseIf parcela = 4 Then
    fator = ThisWorkbook.Sheets("Plan1").Range("K5").Value
    result = valor * fator
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    ElseIf parcela = 5 Then
    fator = ThisWorkbook.Sheets("Plan1").Range("K6").Value
    result = valor * fator
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    ElseIf parcela = 6 Then
    fator = ThisWorkbook.Sheets("Plan1").Range("K7").Value
    result = valor * fator
    ThisWorkbook.Sheets("Plan1").Range("E3").Value = result
    End If
    End Sub
    

    segunda-feira, 4 de fevereiro de 2019 21:22