¿Solicitar formulario de código VBA?

Lista:

1. Nombre del formulario 1: formulario de usuario1

2. Nombre del cuadro de texto 2: cuadro de texto1?cuadro de texto2

3.etiqueta 2. Nombre: etiqueta1 etiqueta2

4.botón de comando?1 Nombre: botón de comando1

Descripción: ? p>

Descripción: ?

Después ¿Terminas de escribir en el cuadro de texto 2, presionas Enter o haces clic en el botón Aceptar? Ingrese los datos en la Hoja de trabajo 1.

El código luego borra automáticamente ambos cuadros de texto y establece el cuadro de texto 1 como el control enfocado.

Ingrese el siguiente código en el formulario:

Private Sub CommandButton1_Click()

If TextBox1.Value lt;gt "" And TextBox2.Value lt; gt "" Luego

Atenuar Rng como rango

Atenuar iRow mientras

Establecer Rng = Sheet1.Range("A:A")p>< / p>

Rng.Offset(0, 6) = TextBox2.Value

Else

iRow = Sheet1.Range("A65536").End(xlUp).Row

Celdas(iRow 1, 1) = TextBox1.Value