Correccion de errores

Hola Pepe,

Prueba el codigo de abajo.

Saludos,
KL

'-Inicio Codigo
Sub Resolverincognita()
Dim Porcentaje As Double
Dim CeldaObjetivo As Range
Dim CeldaCambiar As Range
Dim CeldaPrecedente As Range

Set CeldaObjetivo = Range("H30")
Set CeldaCambiar = Range("G31")
Porcentaje = Application.InputBox _
("Indicar el % de beneficio mInimo" _
, , "100%", , , , , 1)

Select Case True
Case Porcentaje = 0
MsgBox "Se ha cancelado la tarea!"
Exit Sub
Case Not CeldaObjetivo.HasFormula
MsgBox "La celda " & CeldaObjetivo.Address _
& " debe contener formula!"
Exit Sub
End Select

CeldaObjetivo.GoalSeek Porcentaje, CeldaCambiar
Exit Sub
End Sub
'-Fin Codigo

"Pepefras" wrote in message
news:%

Quisiera que me facilitaran una correccion de errores para esta macro, que
pone el resultado de un objetivo buscado en una celda.
Gracias anticipadas
Pepe Frasquet

Sub Resolverincognita()
'
' Resolverincognita Macro
' Macro grabada el 28/12/2004 por Pepe Frasquet
'

'
Dim PORCENTAJE As Variant
PORCENTAJE = InputBox("Indicar el % de beneficio mínimo")
'MsgBox = "PORCENTAJE"
Range("H30").Select

Range("H30").GoalSeek Goal:=PORCENTAJE, ChangingCell:=Range("G31")
Range("G31:H33").Select
End Sub