Pasar datos de un Userform Excel

Cualquier otro tipo de consultas sobre la Hoja de Cálculos Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Pasar datos de un Userform Excel

Notapor ivan_10 » 20 Ago 2007 18:05

Hola amigos necesito de vuestra valiosa ayuda nuevamente. Necesito capturar datos en userfrom y luego grabalos o modificarlos en una hoja de excel.
Esto lo pude hacer hace un tiempo atras, pero ahora llevo dos dí­as enteros dandole vuelta y no he podido y se me viene el plazo limite.

Agradezco de antemano a quien me pueda ayudar.

Gracias
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor Bachiller_Onuba » 21 Ago 2007 09:09

En primer lugar, deberí­as completar el desarrollo del Combo del Responsable de la Labor. Actualmente pasa a la celda A1 el valor que tenga éste en el Formulario.
Private Sub ComboBox1_Change()
Range("A1").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub

Para el tema de ingresar los datos en la hoja Base, te dejo aquí­ una idea de cómo yo lo harí­a. Desarrolla tú como te interese el resto.
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Base").Activate
ActiveSheet.Range("A2").Select
If IsEmpty(ActiveCell) Then
'
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.TextBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm1.ComboBox1.Value
If OptionButton1 = True Then
ActiveCell.Offset(0, 2).Value = "Diaria"
End If
If OptionButton2 = True Then
ActiveCell.Offset(0, 2).Value = "Semanal"
End If
If OptionButton3 = True Then
ActiveCell.Offset(0, 2).Value = "Mensual"
End If
ActiveCell.Offset(0, 3).Value = UserForm1.TextBox2.Value
ActiveSheet.Range("A2").Select
End Sub

Si necesitas más, dí­melo y trataré de sacar tiempo para desarrollar lo que te falte.
Un saludo, compañero.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Bachiller_Onuba
Miembro Frecuente
Miembro Frecuente
 
Registrado: 31 Ene 2005 09:39
Ubicación: GRANADA (Espaí±a)

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 21 Ago 2007 13:39

Estimado Bachiller gracias por tu tiempo, te comento que modifique el error de la primera celda que se llenaba con el usuario.
Copie tu codigo y me funciona para completar las celdas de la hoja excel, pero solo una vez, luego se me da un error y se a la ultima fila de la hoja. :(
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 21 Ago 2007 18:26

Le hice unos cambios y me funciona. Sólo me quedan un par de dudas respecto a como editar el registro y modificarlo.

Ademas si alguien sabe donde o omo obtener los "botones con imagen" :shock:
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 22 Ago 2007 13:23

Amigos alguna ayuda por favor con este tema... se que tal vez sea basico, pero la verdad no lo he podido hacer, tengo otros archivos donde los hice, pero con este realmente no puedo. No se por qué, pero realmente no he podido y estoy contra el tiempo :cry:

Les agradezco cualquier sugerencia.
Gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor Adrian » 23 Ago 2007 11:16

Hola!
Pongo un adjunto donde puedes extraer código.
Atte.

PD: fue realizado hace tiempo y tiene que ser mejorado.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Pasar datos de un Userform Excel

Notapor tooper666 » 23 Ago 2007 20:41

Saludos Ivan_10

A ver si con esto te ayudo un poquito.

Suerte
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
tooper666
Miembro Frecuente
Miembro Frecuente
 
Registrado: 07 Mar 2005 19:56

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 23 Ago 2007 22:03

Estimados muchas, pero muchas gracias a ambos.

Topper: Me hiciste la "pega" (como decimos en Chile al trabajo) y me salvaste de un serio problema. Realmente muy agradecido :D . Ahora procedo a revisarlo y te comento.

Adrian: Estoy "tratando" de absorver todo lo que puedo de tu archivo, esta super bien explicado, imaginate que un neofito como yo lo esta estendiendo. :lol:
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 23 Ago 2007 22:34

Topper tengo dudas con esta instrucción:

Private Sub CommandButton2_Click()
Worksheets("BaseDatos").Activate
Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 0 - 1) = ActiveCell.Offset(0 - 1, 0 - 1) + 1
ActiveCell.Offset(0, 0) = Label8.Caption
ActiveCell.Offset(0, 1) = Label9
ActiveCell.Offset(0, 2) = Label10
ActiveCell.Offset(0, 3) = Label11

Unload UserForm3
UserForm2.Show
End
End Sub

Si borro todo el contenido de la hoja desde A6 hacia bajo (una hoja nueva) no efectua la "foliación" y no permite ingresar datos.
¿Se puede efectuar un "control" que no permita ingresar datos vacios, es decir, si simulo ingresar datos hasta "CARGAR", genera el "folio" pero todo vacio.

Nuevamente gracias por tu ayuda.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor Bachiller_Onuba » 24 Ago 2007 02:51

A ver, Iván. Prueba con el adjunto, a ver qué te parece.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Bachiller_Onuba
Miembro Frecuente
Miembro Frecuente
 
Registrado: 31 Ene 2005 09:39
Ubicación: GRANADA (Espaí±a)

Re: Pasar datos de un Userform Excel

Notapor ivan_10 » 24 Ago 2007 11:01

Gracias por tu atención.... Probé rapido y me dio un error en la siguiente situación: cree cinco registros y luego solicite eliminar el primero (1) lo elimino pero mando un error... asumo que debe ser por los folios,,, lo reviso a ver que entiendo y te cuento... nuevamente muchas gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
ivan_10
Miembro Frecuente
Miembro Frecuente
 
Registrado: 13 Oct 2005 09:29
Ubicación: CHILE

Re: Pasar datos de un Userform Excel

Notapor Bachiller_Onuba » 29 Ago 2007 08:44

Revisa este adjunto.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Bachiller_Onuba
Miembro Frecuente
Miembro Frecuente
 
Registrado: 31 Ene 2005 09:39
Ubicación: GRANADA (Espaí±a)


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Otras Consultas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado