Datos ingresados en formulario se escriben en el registro anterior
publicado
Hola!
Espero puedan ayudarme,
estoy utilizando un userform para ingresar datos, he logrado que los datos ingresados aparazcan en las celdas correspondientes sin embargo, cuando se ingresa un nuevo registro se copia en la celda anterior modificando el ingreso. no puedo lograr que el nuevo ingreso aparezca en la siguiente fila.
Esto es lo que he utilizado:
Private Sub CommandButton1_Click()
Dim Referencia As String ' variable para almacenar referencia del control
Dim Control As String ' variable para almacenar el control
Dim Actividad As String ' variable para almacenar descripcion del control
Dim Responsable As String ' variable para almacenar el responsable
Dim Clasificacion As String ' variable para almacenar clasificacion del control
Dim Frecuencia As String ' variable para almacenar la frecuencia
Dim subprocedimiento As String ' variable para almacenar subprocedimiento
Dim nivel As String ' variable para almacenar el nivel
Dim Riesgo As String ' variable para almacenar el nivel
Dim Proposito As String ' variable para almacenar proposito
Dim Alternativa As String ' variable para almacenar el nivel
Dim Ultima As Double ' variable para almacenar ultima fila
Referencia = TextBox21.Value
Control = TextBox22.Value
Actividad = TextBox3.Value
Responsable = TextBox4.Value
Clasificacion = ComboBox1.Value
Frecuencia = ComboBox2.Value
subprocedimiento = ComboBox3.Value
nivel = ComboBox4.Value
Riesgo = TextBox23.Value
Proposito = TextBox24.Value
Alternativa = ComboBox5.Value
Ultima = ActiveSheet.UsedRange.Row - 32 + ActiveSheet.UsedRange.Rows.Count
Cells(Ultima + 1, 1) = Referencia
Cells(Ultima + 1, 2) = Control
Cells(Ultima + 1, 3) = Actividad
Cells(Ultima + 1, 4) = Responsable
Cells(Ultima + 1, 5) = Clasificacion
Cells(Ultima + 1, 6) = Frecuencia
Cells(Ultima + 1, 7) = subprocedimiento
Cells(Ultima + 1, 8) = nivel
Cells(Ultima + 1, 9) = Riesgo
Cells(Ultima + 1, 10) = Proposito
Cells(Ultima + 1, 11) = Alternativa
TextBox21.Value = ""
TextBox22.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
TextBox23.Value = ""
TextBox24.Value = ""
ComboBox5.Value = ""
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola!
Espero puedan ayudarme,
estoy utilizando un userform para ingresar datos, he logrado que los datos ingresados aparazcan en las celdas correspondientes sin embargo, cuando se ingresa un nuevo registro se copia en la celda anterior modificando el ingreso. no puedo lograr que el nuevo ingreso aparezca en la siguiente fila.
Esto es lo que he utilizado:
Private Sub CommandButton1_Click()
Dim Referencia As String ' variable para almacenar referencia del control
Dim Control As String ' variable para almacenar el control
Dim Actividad As String ' variable para almacenar descripcion del control
Dim Responsable As String ' variable para almacenar el responsable
Dim Clasificacion As String ' variable para almacenar clasificacion del control
Dim Frecuencia As String ' variable para almacenar la frecuencia
Dim subprocedimiento As String ' variable para almacenar subprocedimiento
Dim nivel As String ' variable para almacenar el nivel
Dim Riesgo As String ' variable para almacenar el nivel
Dim Proposito As String ' variable para almacenar proposito
Dim Alternativa As String ' variable para almacenar el nivel
Dim Ultima As Double ' variable para almacenar ultima fila
Referencia = TextBox21.Value
Control = TextBox22.Value
Actividad = TextBox3.Value
Responsable = TextBox4.Value
Clasificacion = ComboBox1.Value
Frecuencia = ComboBox2.Value
subprocedimiento = ComboBox3.Value
nivel = ComboBox4.Value
Riesgo = TextBox23.Value
Proposito = TextBox24.Value
Alternativa = ComboBox5.Value
Ultima = ActiveSheet.UsedRange.Row - 32 + ActiveSheet.UsedRange.Rows.Count
Cells(Ultima + 1, 1) = Referencia
Cells(Ultima + 1, 2) = Control
Cells(Ultima + 1, 3) = Actividad
Cells(Ultima + 1, 4) = Responsable
Cells(Ultima + 1, 5) = Clasificacion
Cells(Ultima + 1, 6) = Frecuencia
Cells(Ultima + 1, 7) = subprocedimiento
Cells(Ultima + 1, 8) = nivel
Cells(Ultima + 1, 9) = Riesgo
Cells(Ultima + 1, 10) = Proposito
Cells(Ultima + 1, 11) = Alternativa
TextBox21.Value = ""
TextBox22.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
TextBox23.Value = ""
TextBox24.Value = ""
ComboBox5.Value = ""
End Sub