tipos incompatíveis Erro critico de tipos de variáveis

[jardeldint 0]

Vejam o código abaixo:

Option Explicit

' CRIA A VARIÁVEL Vm QUE ARMAZENA O VALOR MÍNIMO DE COMPRAS
Dim Vm As Variant

' CRIA A VARIÁVEL Bonus  QUE ARMAZENA OS BONUS REAIS A RECEBER
Dim Bonus As Currency



Sub Calculo()



Bonus = Range(Cells(6, 4), Cells(18, 4)).Value

    If Cells(6, 4) >= 0 And Cells(6, 4) <= 4890.2 Then
               Vm = 250
               Cells(6, 5) = Vm
    End If
    
    If Cells(7, 4) >= 0 And Cells(7, 4) <= 4890.2 Then
               Vm = 250
               Cells(7, 5) = Vm
    End If
    
    If Cells(8, 4) >= 0 And Cells(8, 4) <= 4890.2 Then
               Vm = 250
               Cells(8, 5) = Vm
    End If
    
    If Cells(9, 4) >= 0 And Cells(9, 4) <= 4890.2 Then
               Vm = 250
               Cells(9, 5) = Vm
    End If
    
    If Cells(10, 4) >= 0 And Cells(10, 4) <= 4890.2 Then
               Vm = 250
               Cells(10, 5) = Vm
    End If
    
    If Cells(11, 4) >= 0 And Cells(11, 4) <= 4890.2 Then
               Vm = Bonus + (Bonus * 0.12)
               Cells(11, 5) = Vm
    End If

    If Cells(12, 4) >= 4890.21 And Cells(12, 4) <= 8982 Then
        Vm = Bonus + (Bonus * 0.12)
        Cells(12, 4) = Vm
    End If
    
    If Cells(13, 4) >= 8982.01 And Cells(13, 4) <= 19960 Then
        Vm = Bonus + (Bonus * 0.1)
        Cells(13, 5) = Vm
    End If
    
    If Cells(14, 4) >= 19960.01 And Cells(14, 4) <= 34930 Then
        Vm = Bonus + (Bonus * 0.08)
        Cells(14, 5) = Vm
    End If
    
    If Cells(15, 4) >= 34930.01 And Cells(15, 4) <= 69860 Then
        Vm = Bonus + (Bonus * 0.07)
        Cells(15, 5) = Vm
    End If
    
    If Cells(16, 4) >= 69860.01 And Cells(16, 4) <= 134730 Then
        Vm = Bonus + (Bonus * 0.06)
        Cells(16, 5) = Vm
    End If
    
    If Cells(17, 4) >= 134730.01 Then
        Vm = Bonus + (Bonus * 0.05)
        Cells(17, 5) = Vm
    End If
    
    
End Sub

Tenho uma tabela onde nas células D6 A D18 possui valores monetários que chegam na casa dos milhões de reais. Apenas quero comparar se essa célula estiver nas condições ditas acima, e caso ocorra a condição, escreva nas células E6 a E18, o conteúdo da variável Vm.

Porém está dando uns erros que não estou entendendo.

Se alguém puder me ajudar, ficarei muito grato.

 

[Xevious 1]

E a resposta que te dou é que 

 

NÃO ESTOU ENTENDENDO também

 

por favor, nos fale que erros que são

não fique com essa informação secretamente pra ti

se não, não poderemos te ajudar

[jardeldint 0]

Em 15/02/2019 at 14:29, Xevious disse:

E a resposta que te dou é que 

 

NÃO ESTOU ENTENDENDO também

 

por favor, nos fale que erros que são

não fique com essa informação secretamente pra ti

se não, não poderemos te ajudar

Olá Xevious.... obrigado por tentar me ajudar..

Então, os erros são justamente esses..

Da erro 13 (Tempo de Execução e Tipos Incompatíveis), e não deixa executar na tabela.

 

Tem alguma sintaxe q eu usei q está errada? Ou algum tipo de variável que usei q está errada? Se tiver e puder me ajudar, agradecerei muito.

[jardeldint 0]

Para facilitar, vou enviar aqui no forum as imagens do arquivo que está me arrancando os cabelos....

Resumindo do que eu quero que o Excel faça...

Na primeira tabela que compreende as celulas A5 a F19 tem os valores padrão, no qual multiplica a qtd de clientes pelo Pedido mínimo mensal e desse resultado, multiplica pelo percentual. Porém existe um pequeno detalhe. Na segunda tabela, que compreende as células H5 a J12, tem as condições do pedido mínimo. Por exemplo: Se na célula D6 tiver um valor acima de 8982.01, deve calcular o Pedido Mínimo Real e no mesmo instante, calcular o bônus que ele vai receber, que seria: (Qtd de Clientes * Pedido Minimo Real) * Percentual.

Porém, qdo faço a depuração, dá erro na linha: "Bonus = Range(Cells(6, 4), Cells(18, 4)).Value". Onde diz que o erro é " erro 13 (Tempo de Execução e Tipos Incompatíveis)".

 

Por favor, alguém me ajude.... se for algum erro de lógica e puderem me ajudar, agradeço mais ainda, pois não sou programador (apenas um fuçador.... na real sou diretor de marketing e preciso entregar essa planilha essa semana sem falta.