inputbox excel

[dominique9374]

Hola
estoy aciendo una aplicacion excel
en la cual
se abre una inputbox
tengo que entrar un numero, puede ser positivo o negativo sin limite
guardo ese numero en una celda y vuelvo a la input box para otro numero
para salir de este bucle introdusco fin
tengo un codigo tipo

Private Sub CommandButton1_Click()
Dim celda As Range
Set celda = Range("A1")
10:
numero = InputBox("numero")
If numero = "fin" Then
GoTo fin
Else: celda.Value = numero
Set celda = celda.Offset(1, 0)
GoTo 10
End If
fin:
End Sub
luego calculo la suma de la columna A
tengo que comprobar que lo que entro sea un numero, o fin
si pongo Dim numero as integer no puedo entrar fin ni cancel
pero si dejo dim numero
cuando me equivoque y ponga otra cosa que un numero me falla la suma

pregunta 1
como puedo comprobar que llo que entro sea un numero, o "fin"
pregunta 2
si pongo dim numero as integer como puedo parrar el bucle sbiendo que el numero entrado puede ser positivo, negativo o nulo
espero haberme explicado bien
gracias
dominique

[caesar.l]

Prueba con esto

Código vb:

Private Sub CommandButton1_Click()
 
Dim Celda As Range
Dim Numero As String
Dim Checar As Boolean
Set Celda = Range("A1")
10:
    Numero = InputBox("numero")
    If Numero = "fin" Then
           GoTo fin
    Else
           Celda = Numero
           Checar = Application.WorksheetFunction.IsNumber(Celda)
          If Checar Then
                 Celda.Value = Numero
                 Set Celda = Celda.Offset(1, 0)
                 GoTo 10
           Else
                 Celda = ""
                 GoTo 10
   End If
    End If
 
fin:
 
End Sub
 

De tu otra duda, no comprendí