Textbox en formulario que agregue datos
Hola y gracias de antemano:
el tema es el siguiente quiero crear un formulario con la intención de agregar datos en una hoja la cual su función es controlar cuantas veces ha sido sancionada determinada persona, es decir: en la columna A figura el código de ID, en la B,C,D, etc. Los número de fecha correspondientes al torneo en el que participa. Mi intención es que a través de un formulario pueda yo introducir el número de fecha con un combobox o textbox y botón, (que seleccione la columna) y luego en un textbox introducir el nº de id y al presionar un botón se ingrese el valor "1" de manera automática en la fila del nº de id correspondiente y en la columna que le había indicado antes, espero haber sido medianamente claro, actualmente tengo esta formula en un formulario la cual es complicada porque debo ingresarlo manualmente en cada Textbox que está relacionado a cada columna, espero se pueda hacer y agradecería un ejemplo para tratar de adaptarlo a mi necesidad, a la espera de una respuesta y nuevamente gracias por el tiempo y buena predisposición.
Private Sub ComboBox1_AfterUpdate()
Workbooks("prueba.xls").Worksheets("SANCIONES").Activate
Sheets("SANCIONES").Select
filalibre = Range("B5").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. De la primer celda vacía.
control = 0
dato = ComboBox1
rango = "B5:B" & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox1.Value = Range(ubica).Offset(0, -1).Value
TextBox2.Value = Range(ubica).Offset(0, 4).Value
TextBox3.Value = Range(ubica).Offset(0, 3).Value
'
'ESTADO TORNEO
TextBox4.Value = Range(ubica).Offset(0, 11).Value
TextBox5.Value = Range(ubica).Offset(0, 13).Value
'
'SANCIONADOS TORNEO OFICIAL
TextBox6.Value = Range(ubica).Offset(0, 15).Value
TextBox7.Value = Range(ubica).Offset(0, 16).Value
TextBox8.Value = Range(ubica).Offset(0, 17).Value
TextBox9.Value = Range(ubica).Offset(0, 18).Value
'
control = 1
End If
Set midato = Nothing
End Sub
Private Sub cmdAceptar_Click()
Sheets("SANCIONES").Select
If control > 0 Then
Range(ubica).Offset(0, 15).Value = TextBox6.Text
Range(ubica).Offset(0, 16).Value = TextBox7.Text
Range(ubica).Offset(0, 17).Value = TextBox8.Text
Range(ubica).Offset(0, 18).Value = TextBox9.Text
control = 0
Else
Cells(filalibre, 16).Value = TextBox6.Text
Cells(filalibre, 17).Value = TextBox7.Text
Cells(filalibre, 18).Value = TextBox8.Text
Cells(filalibre, 19).Value = TextBox9.Text
control = 0
End If
ComboBox1.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
control = 0
End Sub
