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