Screen.MousePointer = vbHourglass

[Ramalho Sales]

Olá Gente, Digitei o comando abaixo e ao executar não consigo passar da linha conforme TITULO:

Este comando é no VBA Excel. Alguém poderia me dá uma dica?. Obrigado desde já.

==========================================================

Private Sub CmdCalcular_Click()

Dim dTaxa As Double

Dim curPagamento As Currency

Dim curEmprestimo As Currency

Dim imeses As Integer

Screen.MousePointer = vbHourglass

If excelObj Is Nothing Then

End If

dTaxa = CDbl(TxtTaxa.Text)

imeses = CInt(TxtMeses.Text)

curEmprestimo = CCur(TxtEmprestimo.Text)

curPagamento = excelObj.Pmt((dTaxa / 100), imeses, -1 * curEmprestimo)

TxtPagamento.Text = Format(curPagamento, "R$#,##0.00")

Screen.MousePointer = vbDefault

End Sub

[fariajp]

Está com cara de que você pegou um código VB e tentou jogar no Excel (VBA).

O problema é que VBA não tem o objeto "Screen". Tenta mudar para OpenForm.Mousepointer.

O próximo passo é que vai dar erro no "If excelObj Is Nothing Then". Já que você já está no Excel e esse excelObj não deve ter sido criado.

JP

[Ramalho Sales]

Valeu JP você tem razão, fiz doutra forma mais simples:

Private Sub cmdCalcular_Click()

If Text_Sinal = "+" Then Text_Result = Val(Text_Lct1) + Val(Text_Lct2)

If Text_Sinal = "-" Then Text_Result = Val(Text_Lct1) - Val(Text_Lct2)

If Text_Sinal = "*" Then Text_Result = Val(Text_Lct1) * Val(Text_Lct2)

If Text_Sinal = "/" Then Text_Result = Val(Text_Lct1) / Val(Text_Lct2)

Desculpa a ingnorancia. Estou aprendendo. Chego lá.

Ramalho