Guardar datos de userform en otro libro en hojas distintas según dato del textbox
En esta ocasión tengo una consulta.
Resulta que tengo un userform el cual necesito capturo algunos datos estos actualmente se guardan en una hoja de este mismo libro. Ahora bien necesito que se que se guarden de igual manera en un libro diferente el cual se llama "BDCCOSTOS" adentro de este libro tiene varias hojas cuyos nombres están constituidos de la siguiente manera "55.01.01" "55.01.02" "55.02.01" etc.
En mi formulario tengo 3 combobox ligados los cuales me sirven para seleccionar categorías el ultimo combobox esta ligado a un textbox este arroja el nombre por decir de todas las categorías el cual queda como los nombres de las hojas ejemplo "55.01.01"
Necesito que según la categoría del texto me guarde los datos en el libro "DBDCOSTOS" Y En la hoja que corresponda según la categoría del textbox.
Espero me aya explicado saludos. Y muchas gracias
1 respuesta
H o la: Te anexo el código para guardar en la hoja del otro libro.
El libro BDCCOSTOS.xlsx deberá estar abierto.
El código tiene un ejemplo, deberás adaptar mi ejemplo a tus datos, por ejemplo, yo puse TextBox1 con el nombre de la hoja. También puse un ejemplo para guardar el textbox2 después de la última fila con datos de la columna A.
Private Sub CommandButton1_Click()
'---
' Por.Dante Amor
'---
Set l2 = Workbooks("BDCCOSTOS.xlsx")
nombre_hoja = TextBox1.Value
If nombre_hoja = "" Then
MsgBox "Captura un nombre de hoja"
Exit Sub
End If
'
existe = False
For Each h In l2.Sheets
If LCase(h.Name) = LCase(nombre_hoja) Then
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "La hoja no existe en el libro : " & l2.Name
Exit Sub
End If
'
'guardar datos
Set h2 = l2.Sheets(nombre_hoja)
'ejemplo para guardar datos en la hoja del otro libro
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "A") = TextBox2.Value
'agregar los demás datos
'
MsgBox "Datos guardados"
End SubAvísame cualquier duda
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
