Bom dia Mestres.
Preciso de uma ajuda de todos na seguinte situação, tenho uma planilha de produção, que tem uma formula que calcula o peso usado de papel para á produção, como segue em anexo a imagem.
O código a baixo elaborei para tirar da célula a formula de calculo da célula e substituir por um código VBA, mas estou com uma duvida em relação a, como fazer que o código calcule da célula R9 até a célula que até a célula que está preenchida:
Exemplo: E9 até E40
Preciso refinar o código que faça o calculo independente a quantidade de linhas preenchidas.
SEGUE CODIGO:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim A As Variant, B As Variant, C As Variant, D As Variant
Dim E As Variant, F As Variant, G As Variant
Range("r9:r34") = 0
A = Range("I9").Value
B = Range("j9").Value
C = Range("k9").Value
D = Range("l9").Value
E = Range("q9").Value
F = Range("I6").Value
G = Range("r9").Value
Range("r9") = (A / 100) * (B / 100) * C * D * (E / 1000) * (1 + F) / 1000 * 1000
Application.ScreenUpdating = True
End Sub
Postado : 10/03/2016 5:46 am