Ajuda com para preenchimento de Macro

[rodrigodido]

Pessoal, tenho essa macro aqui:

Sub Papel()

Dim numero As Currency

If Range("A2").Value >= Range("C2").Value + 0.35 Then

MsgBox ("Vende")

Else

MsgBox ("Não Vende")

End If

End Sub

Gostaria de que quando eu aperto no botão que criei para calcular, em vez de ela apresentar a MsgBox ou seja a telinha popup ela enviasse o "vende" ou "Nao vende" para a célula E2. Alguem consegue me ajudar?

[marcelodossantos]

Pessoal, tenho essa macro aqui:

Sub Papel()

Dim numero As Currency

If Range("A2").Value >= Range("C2").Value + 0.35 Then

MsgBox ("Vende")

Else

MsgBox ("Não Vende")

End If

End Sub

Gostaria de que quando eu aperto no botão que criei para calcular, em vez de ela apresentar a MsgBox ou seja a telinha popup ela enviasse o "vende" ou "Nao vende" para a célula E2. Alguem consegue me ajudar?

Rodrigo, você deve apenas substituir a linha

MsgBox ("Vende")

por

Range ("E2") = "Vende"

e a linha

MsgBox ("Não Vende")

por

Range("E2") = "Não Vende"

[rodrigodido]

Muito obrigado... deu certinho aqui. Até + amigo.

[Caldasso]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.