Validar datos en excel 2010 con macros

Primero abrimos archivo de Excel 2010.

Una vez abierto el Excel vamos a la ficha programador e insertamos los siguientes Controles ActiveX.

Como se muestra en la siguiente imagen, insertamos un botón de comando y un cuadro de texto, no olvidarse que son Controles ActiveX.

Si no te aparece la pestaña programador tienes que habilitarla, aquí te explico cómo hacerlo,

habilitar pestaña programador en Excel  2010.

Ahora damos doble clic en el botón de comando, se mostrara el editor de visual basic, se debe mostrar algo así.

Listo aquí tenemos el código para la macro.

Private Sub CommandButton1_Click()

Dim i As Double

Dim final As Double

Dim j As Double

Dim actual As Double

'condicionamos a 8 posiciones máximo

Worksheets(1).TextBox1.MaxLength = 8

'validamos que sea un dato numérico

validar = IsNumeric(Worksheets(1).TextBox1.Value)

If validar = False Then

MsgBox "DEBES INTRODUCIR UN DATO NUMÉRICO"

Worksheets(1).TextBox1.Value = Empty

Else

'si los datos con correctos, se graban en la hoja2 en A1 y así sucesivamente

If validar = True Then

For i = 1 To 65000

If Hoja2.Cells(i, 1) = "" Then

final = i

Exit For

End If

Next

Hoja2.Cells(final, 1) = CDbl((Worksheets(1).TextBox1.Value))

'despues de grabar los datos mostramos mensaje confirmando grabación de datos

MsgBox "LOS DATOS HAN SIDO GRABADOS CORRECTAMENTE"

'limpiamos los datos ya grabados del Textbox1

Worksheets(1).TextBox1.Value = Empty

End If

End If

End Sub