Estoy realizando en visual basic de excel un registro me pueden ayudar por fa

lo que se quiere en esta programación es que de un marco se selañe y se registre en la casilla y cuando se seleccione lo que se desea ingresar la cantidad de esa selección, realice esta programación no se si esta correcta es lo que al parecer creo que ets mal, ahora no me sale errores pero no me esta registrando lo que señale, y se salta muchas celdas para ingresar el numero por fis ayudenemen s elos agradecería

ahora también quiero que si son varias selecciones que los registre y no se como esta e sla prgramacion y la imágenes es como realice los botones t

Private Sub CommandButton1_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox11 = Empty
TextBox12 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox17 = Empty
TextBox18 = Empty
TextBox19 = Empty
TextBox29 = Empty
TextBox30 = Empty
TextBox31 = Empty
TextBox24 = Empty
TextBox32 = Empty
TextBox38 = Empty
TextBox45 = Empty
TextBox46 = Empty
TextBox47 = Empty
TextBox44 = Empty
TextBox48 = Empty
TextBox55 = Empty
TextBox56 = Empty
TextBox57 = Empty
TextBox54 = Empty
TextBox49 = Empty
TextBox58 = Empty
TextBox63 = Empty
TextBox64 = Empty
TextBox70 = Empty
TextBox65 = Empty
TextBox71 = Empty
TextBox78 = Empty
TextBox73 = Empty
TextBox72 = Empty
TextBox84 = Empty
TextBox79 = Empty
End Sub
Private Sub CommandButton2_Click()
Sheets("Hoja1").Select
Range("a4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(4, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBo7
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox8
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox9
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox10
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox11
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox12
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox12
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox14
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox15
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox16
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox17
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox29
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox30
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox31
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox24
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox32
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox38
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox39
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox45
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox46
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox47
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox44
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox48
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox55
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox56
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox57
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox54
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox49
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox58
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox63
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox64
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox70
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox65
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox71
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox78
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox73
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox72
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox84
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox79
ActiveCell.Offset(0, 1).Select
If OptionButton1 = True Then
ActiveCell = "tamaño"
Else
If OptionButton2 = True Then
ActiveCell = "profundidad"
Else
If OptionButton3 = True Then
ActiveCell = "medidas"
Else
End If
End If
End If
ActiveCell = TextBox1
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBo7
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox8
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox9
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox10
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox11
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox12
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox12
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox14
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox15
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox16
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox17
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox29
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox30
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox31
ActiveCell.Offset(0, 4).Select
ActiveCell = TextBox24
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox32
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox38
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox39
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox45
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox46
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox47
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox44
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox48
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox55
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox56
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox57
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox54
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox49
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox58
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox63
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox64
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox70
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox65
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox71
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox78
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox73
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox72
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox84
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox79
ActiveCell.Offset(0, 1).Select
If OptionButton8 = True Then
ActiveCell = "poros"
Else
If OptionButton9 = True Then
ActiveCell = "huecos"
Else
If OptionButton10 = True Then
ActiveCell = "deformaciones"
Else
If OptionButton11 = True Then
ActiveCell =...

Añade tu respuesta

Haz clic para o