en la captura de datos en un userform, quisiera controlar la longitud de un campo, pero no se donde poner la instruccion, que he visto en uno de los hilos. Lo que tengo es esto:
Private Sub CommandButton1_Click()
Dim fila As Long
'Obtener la fila disponible
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Muy buenas, a ver si alguien puede ayudarme
en la captura de datos en un userform, quisiera controlar la longitud de un campo, pero no se donde poner la instruccion, que he visto en uno de los hilos. Lo que tengo es esto:
Private Sub CommandButton1_Click()
Dim fila As Long
'Obtener la fila disponible
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
'Insertar datos capturados
Cells(fila, 1).Value = UserForm1.ComboBox1.Value
Cells(fila, 2).Value = UserForm1.ComboBox3.Value
Cells(fila, 3).Value = UserForm1.TextBox3.Value
Cells(fila, 4).Value = UserForm1.TextBox4.Value
Cells(fila, 5).Value = UserForm1.TextBox5.Value
Cells(fila, 6).Value = UserForm1.ComboBox2.Value
Cells(fila, 7).Value = UserForm1.ComboBox4.Value
Cells(fila, 8).Value = UserForm1.TextBox8.Value
Cells(fila, 10).Value = UserForm1.TextBox9.Value
Cells(fila, 11).Value = UserForm1.TextBox11.Value
Cells(fila, 13).Value = UserForm1.TextBox12.Value
Cells(fila, 12).Value = UserForm1.ComboBox5.Value
Cells(fila, 16).Value = UserForm1.TextBox10.Value
'Limpiar cajas de texto
UserForm1.ComboBox1.Value = ""
UserForm1.ComboBox3.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
UserForm1.TextBox5.Value = ""
UserForm1.ComboBox2.Value = ""
UserForm1.ComboBox4.Value = ""
UserForm1.TextBox8.Value = ""
UserForm1.TextBox9.Value = ""
UserForm1.TextBox10.Value = ""
UserForm1.TextBox11.Value = ""
UserForm1.TextBox12.Value = ""
UserForm1.ComboBox5.Value = ""
'Notificar al usuario
MsgBox "Dades afegides a la fila " & fila
End Sub
es decir, actualizo la base de datos con el valor introducido en cada textbox.
muchísimas gracias de antemano