Jump to content
nane

Modificacion de campos

Recommended Posts

Buenas,

Necesito de sus ayuda.

Adjunto hay un archivo donde tiene 2 hojas y ya tiene el primer macro donde en el ComboBox1 muestra la lista de la hoja1 columna 1 y en el Texbox1 muestra la información relacionada al dato seleccionado, en el Combobox2 muestra la información de la hoja2, cuando le dan en aceptar sale al Userform2 que arroja el cuadro de confirmación para guardar los cambios.

las modificaciones que requiero es que, al confirmar el cambio que la información

Reemplazar la información de la Hoja1 con los datos de

1. Hoja1 (POSID con los Datos Textbox4)

Reemplazo la Información Hoja2

1. Hoja2 (POSID con los Datos de TextBox2), Fecha de retiro (Textbox7)

espero haber sido clara.

POS ID Control 1.xlsm

Share this post


Link to post
Share on other sites
Hace 2 horas, nane dijo:

espero haber sido clara.

Si todo el código que ya tienes lo has hecho tú, esto debería haberte resultado fácil de resolver...:rolleyes:. Utiliza el siguiente código en el botón del UserForm2


 

Private Sub CommandButton1_Click()
Dim posidO$, posidD$
Dim cO As Range, cD As Range
Dim fech As Date
Dim uFA&, uFD&

posidO = UserForm1.TextBox2
posidD = UserForm1.TextBox4
fech = CDate(UserForm1.TextBox7)

uFA = Range("A" & Rows.Count).End(xlUp).Row
Set cO = Range("B2:B" & uFA).Find(posidO, lookat:=xlWhole)
cO = posidD

With Sheets("POS ID Disponibles")
    uFD = .Range("B" & Rows.Count).End(xlUp).Row
    Set cD = .Range("B2:B" & uFD).Find(posidD, lookat:=xlWhole)
    cD = posidO
    cD.Offset(, 1) = fech
End With

UserForm2.Hide

End Sub

 

POS ID Control 1.xlsm

Edited by Haplox

Share this post


Link to post
Share on other sites
Hace 3 horas, Haplox dijo:

Si todo el código que ya tienes lo has hecho tú, esto debería haberte resultado fácil de resolver...:rolleyes:. Utiliza el siguiente código en el botón del UserForm2


 


Private Sub CommandButton1_Click()
Dim posidO$, posidD$
Dim cO As Range, cD As Range
Dim fech As Date
Dim uFA&, uFD&

posidO = UserForm1.TextBox2
posidD = UserForm1.TextBox4
fech = CDate(UserForm1.TextBox7)

uFA = Range("A" & Rows.Count).End(xlUp).Row
Set cO = Range("B2:B" & uFA).Find(posidO, lookat:=xlWhole)
cO = posidD

With Sheets("POS ID Disponibles")
    uFD = .Range("B" & Rows.Count).End(xlUp).Row
    Set cD = .Range("B2:B" & uFD).Find(posidD, lookat:=xlWhole)
    cD = posidO
    cD.Offset(, 1) = fech
End With

UserForm2.Hide

End Sub

 

POS ID Control 1.xlsm 33 kB · 0 downloads

Muchas Gracias, Funciona como lo esperaba.

los códigos previos los reutilice de otro archivo que me ayudaron previamente.

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy