Modificar los datos de una hoja en especifico, VBA, Excel, Listbox, TextBox.
Quisiera saber cómo puedo hacer que se modifique dos datos de una hoja en especifico por medio de unos TextBox.
Con este código modifico datos, pero lo hace dentro de la hoja en que ejecute la macro. Lo que quiero es que me haga las modificaciones en otras hojas, y que no necesite ejecutar la macro en esa hoja para modificarlo.
Código con el que trabajo:
Private Sub Aceptar_Click()
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "NO HA LLENADO LOS CAMPOS", vbExclamation, "Alerta"
Exit Sub
End If
If Us_Buscar.OpcionIngreso.Value = True And TextBox1 <> "" Then
For i = 1 To 2
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
Next i
End If
End SubCon este código, como digo arriba, me cambia los datos de la hoja enq ue ejecuto la macro, es decir si estoy en la hoja 1 me cambia los datos de la hoja 1, pero yo quiero es que me modifique los datos de otra hoja, y que sean de columnas especificas, en este caso "C" y "D".
Con la primera línea activas la hoja donde quieres que se ejecute tu procedimiento, espero te sirva.
Private Sub Aceptar_Click()
' Se Activa la Hoja2 del libro donde ejecutas la macro
Worksheets("Hoja2"). Activate
' Se Activa la celda C1 de la Hoja2
Range("C1"). Activate
'Y se ejecuta tu código en la Hoja2 cel C1
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "NO HA LLENADO LOS CAMPOS", vbExclamation, "Alerta"
Exit Sub
End If
If Us_Buscar.OpcionIngreso.Value = True And TextBox1 <> "" Then
For i = 1 To 2
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
Next i
End If
End Sub
Hola, gracias por responder.
Mi pregunta es, si quiero hacerlo pero en el rango de C a D, sin contar C1 y D1 (ya que hay un encabezado) cómo podría hacerlo.
Gracias !
Cambia la segunda línea Range("C1"). Activate por Range("C2"). Activate para que el cursor se posicione en la celda C2 y comience a ingresar ahí tu información.
Comenta si funciono.
