ACTUALIZACION DE DATOS.

2 envíos / 0 nuevos
Último envío
Jhony Hernandez
Imagen de Jhony Hernandez
Offline
última acción: Hace 2 semanas 5 días
alta: 27/10/2017 - 16:14
Puntos: 60
ACTUALIZACION DE DATOS.

Muy buenas.

Estimados solicito de su ayuda ya he topado no se como hacer para que el formulario actualice los datos de la fila; les platico como esta la cosa estoy trabajando en dos hojas la primera se llama "MODULOS" en esta tengo un boton que despliega un formulario#1 de captura de datos los cuales al guardar almacena los datos en la hoda dos o "BASE DE DATOS" la cual esta protegida; ahora bien en la hoja "BASE DE DATOS", en cada fila he dejado una celda en la cual se invoca un formulario#2 el cual permite actualizar algunos registros pero no he logrado hacerlo por tal pido de su ayuda, no se como hacerlo. hice esto pero no me funsiono; por favor ayuda paso a paso aun soy muy pero muy novato en esto de VBA... De antemano Muchas Gracias.

Private Sub CommandButton1_Click()

If TextBox1 = "" Or TextBox10 = "" Or TextBox3 = "" Or TextBox11 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Then

MsgBox "FALTA POR LLENAR CUADROS DE INFROMACION", vbInformation, "ERROR DE CAPTURA DE DATOS"

Else

Dim rango As Long

Sheets("BASE DE DATOS").Unprotect "contraseña"

Worksheets("BASE DE DATOS").Activate

Range("A" & ActiveCell.Row).Select

ActiveCell.Value = TextBox1.Value

ActiveCell.Value = TextBox3.Value

ActiveCell.Value = TextBox4.Value

ActiveCell.Value = TextBox5.Value

ActiveCell.Value = TextBox6.Value

ActiveCell.Value = TextBox7.Value

ActiveCell.Value = TextBox8.Value

ActiveCell.Value = TextBox9.Value

ActiveCell.Value = TextBox10.Value

ActiveCell.Value = TextBox11.Value

MsgBox "REGISTRO EXITOSO", vbOKOnly, "REGISTRO"

ActiveWorkbook.Save

ActiveSheet.Protect "contraseña", True, True

UserForm2.TextBox1.Value = ""

UserForm2.TextBox3.Value = ""

UserForm2.TextBox4.Value = ""

UserForm2.TextBox5.Value = ""

UserForm2.TextBox6.Value = ""

UserForm2.TextBox7.Value = ""

UserForm2.TextBox8.Value = ""

UserForm2.TextBox9.Value = ""

UserForm2.TextBox10.Value = ""

UserForm2.TextBox11.Value = ""

MsgBox "DATOS INGRESADOS EN LA FILA " & fila

End If

End Sub

Cron
Imagen de Cron
Offline
última acción: Hace 14 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8870
HolaLo que veo aquí es que

Hola

Lo que veo aquí es que estás poniendo todos los valores en la misma celda, que es la celda activa. Esa celda será la celda A5, si la celda activa anterior estaba en la fila 5, por ejemplo.

Personalmente prefiero utilizar CELLS(fila,columna), pues es más sencillo de manejar en VBA. Así, si quieres ir rellenando los datos en la misma fila solo tienes que ir aumentando el índice de la columna. Esta notación es muy útil para hacer bucles.

Si prefieres seguir con range, deberás cambiar de celda cada vez que añadas un valor (no cambias a la siguiente como cuando manualmente pulsas Intro). Esto se hará con la orden Activecell.offset(fila,columna)

Un saludo