Estimados amigos:

Tengo un formulario y me falta solucionar tres puntos:

1. Mi formulario esta registrando en la segunda fila y lo que deseo es que los datos ingresados se desplace hacia abajo.

2. En mi tabla de datos, quisiera que en la columna A, cada registro ingresado se cuente en forma automática y correlativa los datos ingresados.

3. Tener una alerta cuando se ingrese mal la fecha. (13/31/2014)

Estaré atento a sus respuestas,

Gracias,

Lucho

FORMULARIO1.rar

Sustituye el procedimiento:

Private Sub Btn_Registrar_Click()


If IsDate(TextBox1) = False Then

  MsgBox "Fecha errónea. Corrija y reintente.", vbCritical

  Exit Sub

End If


x = Range("A" & Rows.Count).End(xlUp).Row + 1

If x = 2 Then

  ActiveSheet.Cells(x, 1) = 1

Else

  ActiveSheet.Cells(x, 1) = ActiveSheet.Cells(x - 1, 1) + 1

End If

ActiveSheet.Cells(x, 2) = TextBox1

ActiveSheet.Cells(x, 3) = TextBox2


TextBox1 = Empty

TextBox2 = Empty

TextBox1.SetFocus


End Sub

[/CODE]

Macro Antonio:

Funciona perfecto...! Tu ayuda es valiosa... Tema solucionado

Gracias

Lucho.