Ingr datos en userform y guardarlos en otro libro

Tengo este código que copie de alguna pregunta la cual me resulta muy útil, sin embargo, quisiera que al capturar los datos desde el libro donde abro el userform los guarde en otro libro. Esto lo uso para una lista de clientes.
Saludos cordiales.
-Código-
Private Sub CommandButton1_Click()
Sheets("hoja1").Select 'selecciona la hoja "datos"
Range("B242").Select 'selecciona el rango (en este caso la celda) "A1"
Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
ActiveCell.Offset(1, 0).Select 'en la ultima celda con datos, muevete una fila abajo
Loop 'bucle
ActiveCell = TextBox1 'copia el contenido del textbox1 a la celda activa
ActiveCell.Offset(0, 2).Select 'muevete en la misma fila, una columna a la derecha
ActiveCell = TextBox2 'copia el contenido del textbox2 a la celda activa
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 2).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 2).Select
ActiveCell = TextBox7
ActiveCell.Offset(0, 1).Select
TextBox1 = Empty 'textbox1, dejar en blanco
TextBox2 = Empty 'etc
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
MsgBox "Datos guardados" 'mostrar el mensaje "Datos guardados"
End Sub

2 respuestas

Respuesta
1
Aca tienes una informacion util de otro experto
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/840310/cargar-datos-de-un-userform-a-otro-archivo
Je je.. si ya había visto ese pero no sabría como integrar o como funcionaria este código, soy nuevo en esto y si quisiera su ayuda.
Gracias.
Workbooks("OtroLibro.xls").Sheets("Hoja2").Range("A20") = TextBox2
Prueba esto. Se supone que en en la unidad DE hay un archivo llamado libro3.xlsx que contiene una hoja1
Private Sub CommandButton1_Click()
Dim File As Workbook
Set File = Application.Workbooks.Open("D:\libro3.xlsx")
Sheets("hoja1").Select 'selecciona la hoja "datos"
Range("A1").Select 'selecciona el rango (en este caso la celda) "A1"
Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
ActiveCell.Offset(1, 0).Select 'en la ultima celda con datos, muevete una fila abajo
Loop 'bucle
ActiveCell = TextBox1 'copia el contenido del textbox1 a la celda activa
ActiveCell.Offset(0, 2).Select 'muevete en la misma fila, una columna a la derecha
ActiveCell = TextBox2 'copia el contenido del textbox2 a la celda activa
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 2).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 2).Select
ActiveCell = TextBox7
ActiveCell.Offset(0, 1).Select
TextBox1 = Empty 'textbox1, dejar en blanco
TextBox2 = Empty 'etc
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
MsgBox "Datos guardados" 'mostrar el mensaje "Datos guardados"
End Sub
Perfecto!
Bueno casi... por que al abrir el libro una vez si quiero seguir capturando ya me sale un error por que el libro esta abierto, no hay alguna forma de que no se abra el libro o que al cerrar el userform se cierre juntamente con el libro.
Saludos.
Puedes colocar esto antes de el MsgBox. Esto guarda y cierra el libro
ActiveWorkbook.Close Savechanges:=False
Set File = Nothing
Sino lo colocas en el Query Close del formulario
ActiveWorkbook.Close Savechanges:=False
Y listo
Respuesta

Me gusto mucho la forma de ingresar datos a un libro y funciona, la duda que tengo es que mi formulario de userform cuenta con:

6 textbox y 4 combobox, use tu ejemplo y reemplace al textbox por combobox, para ingresar todos mis datos a otra hoja, alguien puede ayudarme.

Hola, me gusto mucho la forma de ingresar datos a un libro y funciona, la duda que tengo es que mi formulario de userform cuenta con:

6 textbox y 4 combobox, use tu ejemplo y reemplace y complete mis textbox y combobox, para ingresar todos mis datos a otra hoja, alguien puede ayudarme.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Encontrar dato y modificar "fila" mediante Userform

De todoexpertos, tengo un problema que aun no le he podido dar solución, bien les explicare tengo una hoja donde esta la base de datos de alumnos(que esta oculta) que tengo (nombre, apellido, asistencia, 1 examen, 2 examen, 3 examen, Estado), y he...
1 respuesta

Userform para ingresar datos a una base EXCEL.

Cree unas USERFORM pero no se como darle comandos para activarlas, la finalidad es para ingresar productos a una planilla BASE. Los datos que ingrese en las userform se deben insertar en la hoja base de excel con un botón que dise grabar nota... Ya...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta

Hacer que un textbox reciba los datos de un listbox luego de dar click en un botón, pero siempre y cuando el textbox este vació

Tengo la siguiente macro Private Sub CommandButton2_Click() Application.ScreenUpdating = False If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Then MsgBox "Faltan...
1 respuesta

Dierentes textbox con diferentes formatos...

Tengo el siguiente código que al poner datos en textbox este me los inserta en una hoja aparte Que este código: Private Sub ComboBox2_Change()Dim var2 As StringIf ComboBox2 = "" ThenElseCommandButton1.Locked = FalseSheets("proveedores").ActivateIf...
1 respuesta

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Adecuar datos en textbox para que se coloquen en un hoja y celda especifica

Tengo 2 hojas la primera es : clientes y la segunda FACTURAS Recién realice este código: Private Sub CommandButton3_Click()Sheets("FACTURAS POR HACER").ActivateSelection.EntireRow.InsertIf TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 =...
1 respuesta

Como mirar la información de una celdaen un textbox

Soy yo de nuevo La situación es la siguiente: estoy trabajando en un formulario "Userform1", tengo un textbox llamado "textbox7_Change()" y una hoja llamada "VENTA", en la hoja hay una celda "c9" que tiene una fórmula. Deseo que el al momento de...
1 respuesta

Código para que aparezca automáticamente en una columna un texto en especifico

Tengo la columna QUE la cual tengo puedo incidencias y en la columna R la clave... Entonces quisiera sustituir esta fórmula por un código: =SI.ERROR(BUSCARV(R2,W2:X2,2),"FACTURADO") Al poner en la columna R el numero 1 me aparezca en automático...
1 respuesta

Introducir datos a celdas mediante formularios

Estaba viendo tu página y tengo la siguiente duda, tengo archivo excel con columnas ya definidas con encabezados, quiero introducir datos mediante un formularios, hice un macro introduce los datos en cada celda pero le doy grabar y da inserta un fila...
1 respuesta