UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Bases de datos en excel 2007 el 08/11/13, 09:53 am

angel45


Tengo una base de datos con los que gestiono datos de producción de una seccion de la empresa en que trabajo. He creado un formulario sobre hoja, donde puedo visualizar los datos tal cual fueron cargados en el, pero no puedo generar el código necesario parar guardar modificaciones. 

es el codigo que me permite ver en el mismo formulario de ingreso los datos. Como hago para grabar posibles modificaciones, gracias

Private Sub ComboBox2_Click()

fila = ComboBox2.ListIndex

Sheets("form").Range("C5").Value = ComboBox2.List(fila, 1)
Sheets("form").Range("D5").Value = ComboBox2.List(fila, 3)
Sheets("form").Range("F2").Value = ComboBox2.List(fila, 4)
Sheets("form").Range("G3").Value = ComboBox2.List(fila, 13)
Sheets("form").Range("G4").Value = ComboBox2.List(fila, 15)
Sheets("form").Range("G6").Value = ComboBox2.List(fila, 2)
Sheets("form").Range("B7").Value = ComboBox2.List(fila, 17)
Sheets("form").Range("C7").Value = ComboBox2.List(fila, 18)
Sheets("form").Range("B8").Value = ComboBox2.List(fila, 20)
Sheets("form").Range("C8").Value = ComboBox2.List(fila, 21)
Sheets("form").Range("B9").Value = ComboBox2.List(fila, 23)
Sheets("form").Range("C9").Value = ComboBox2.List(fila, 24)
Sheets("form").Range("B10").Value = ComboBox2.List(fila, 26)
Sheets("form").Range("C10").Value = ComboBox2.List(fila, 27)
Sheets("form").Range("B11").Value = ComboBox2.List(fila, 29)
Sheets("form").Range("C11").Value = ComboBox2.List(fila, 30)
Sheets("form").Range("B12").Value = ComboBox2.List(fila, 32)
Sheets("form").Range("C12").Value = ComboBox2.List(fila, 33)
Sheets("form").Range("B13").Value = ComboBox2.List(fila, 35)
Sheets("form").Range("C13").Value = ComboBox2.List(fila, 36)
Sheets("form").Range("B14").Value = ComboBox2.List(fila, 38)
Sheets("form").Range("C14").Value = ComboBox2.List(fila, 39)
Sheets("form").Range("B15").Value = ComboBox2.List(fila, 41)
Sheets("form").Range("C15").Value = ComboBox2.List(fila, 42)
Sheets("form").Range("B16").Value = ComboBox2.List(fila, 44)
Sheets("form").Range("C16").Value = ComboBox2.List(fila, 45)
Sheets("form").Range("B17").Value = ComboBox2.List(fila, 47)
Sheets("form").Range("C17").Value = ComboBox2.List(fila, 48)
Sheets("form").Range("B18").Value = ComboBox2.List(fila, 50)
Sheets("form").Range("C18").Value = ComboBox2.List(fila, 51)
Sheets("form").Range("B19").Value = ComboBox2.List(fila, 53)
Sheets("form").Range("C19").Value = ComboBox2.List(fila, 54)
Sheets("form").Range("B20").Value = ComboBox2.List(fila, 56)
Sheets("form").Range("C20").Value = ComboBox2.List(fila, 57)
Sheets("form").Range("B21").Value = ComboBox2.List(fila, 59)
Sheets("form").Range("C21").Value = ComboBox2.List(fila, 60)
Sheets("form").Range("B22").Value = ComboBox2.List(fila, 62)
Sheets("form").Range("C22").Value = ComboBox2.List(fila, 63)
Sheets("form").Range("B23").Value = ComboBox2.List(fila, 65)
Sheets("form").Range("C23").Value = ComboBox2.List(fila, 66)
Sheets("form").Range("B24").Value = ComboBox2.List(fila, 68)
Sheets("form").Range("C24").Value = ComboBox2.List(fila, 69)
Sheets("form").Range("B25").Value = ComboBox2.List(fila, 71)
Sheets("form").Range("C25").Value = ComboBox2.List(fila, 72)
Sheets("form").Range("B26").Value = ComboBox2.List(fila, 74)
Sheets("form").Range("C26").Value = ComboBox2.List(fila, 75)
Sheets("form").Range("B27").Value = ComboBox2.List(fila, 77)
Sheets("form").Range("C27").Value = ComboBox2.List(fila, 78)
Sheets("form").Range("B28").Value = ComboBox2.List(fila, 80)
Sheets("form").Range("C28").Value = ComboBox2.List(fila, 81)
Sheets("form").Range("B29").Value = ComboBox2.List(fila, 83)
Sheets("form").Range("C29").Value = ComboBox2.List(fila, 84)
Sheets("form").Range("B30").Value = ComboBox2.List(fila, 86)
Sheets("form").Range("C30").Value = ComboBox2.List(fila, 87)
Sheets("form").Range("B31").Value = ComboBox2.List(fila, 89)
Sheets("form").Range("C31").Value = ComboBox2.List(fila, 90)
Sheets("form").Range("B32").Value = ComboBox2.List(fila, 92)
Sheets("form").Range("C32").Value = ComboBox2.List(fila, 93)
Sheets("form").Range("B33").Value = ComboBox2.List(fila, 95)
Sheets("form").Range("C33").Value = ComboBox2.List(fila, 96)
Sheets("form").Range("B34").Value = ComboBox2.List(fila, 98)
Sheets("form").Range("C34").Value = ComboBox2.List(fila, 99)
Sheets("form").Range("B35").Value = ComboBox2.List(fila, 101)
Sheets("form").Range("C35").Value = ComboBox2.List(fila, 102)
Sheets("form").Range("B36").Value = ComboBox2.List(fila, 104)
Sheets("form").Range("C36").Value = ComboBox2.List(fila, 105)
Sheets("form").Range("B86").Value = ComboBox2.List(fila, 107)
Sheets("form").Range("C86").Value = ComboBox2.List(fila, 108)
Sheets("form").Range("B87").Value = ComboBox2.List(fila, 110)
Sheets("form").Range("C87").Value = ComboBox2.List(fila, 111)
Sheets("form").Range("B88").Value = ComboBox2.List(fila, 113)
Sheets("form").Range("C88").Value = ComboBox2.List(fila, 114)
Sheets("form").Range("B89").Value = ComboBox2.List(fila, 116)
Sheets("form").Range("C89").Value = ComboBox2.List(fila, 117)
Sheets("form").Range("G44").Value = ComboBox2.List(fila, 5)
Sheets("form").Range("G46").Value = ComboBox2.List(fila, 6)
Sheets("form").Range("G122").Value = ComboBox2.List(fila, 11)
Sheets("form").Range("G124").Value = ComboBox2.List(fila, 13)
Sheets("form").Range("B84").Value = ComboBox2.List(fila, 0)
Sheets("form").Range("C84").Value = ComboBox2.List(fila, 1)
Sheets("form").Range("D84").Value = ComboBox2.List(fila, 3)
Sheets("form").Range("F81").Value = ComboBox2.List(fila, 4)
Sheets("form").Range("G82").Value = ComboBox2.List(fila, 13)
Sheets("form").Range("G83").Value = ComboBox2.List(fila, 15)
Sheets("form").Range("G85").Value = ComboBox2.List(fila, 2)
Sheets("form").Range("F83").Value = ComboBox2.List(fila, 14)
Sheets("form").Range("F85").Value = ComboBox2.List(fila, 16)

End Sub

2 Re: Bases de datos en excel 2007 el 08/11/13, 10:33 am

tyno


Hola Angel.
Si estas trabajando con un formulario (UserForm) seria necesario que subas un archivo con el mismo para agregarle un código que te permita modificar algún registro que selecciones. En el archivo no es necesario que subas datos privados pero si se necesita que contenga datos similares a los que utilizas realmente así mismo dispuestos en las columnas y filas también como estarìa en tu archivo original. El archivo no debe pesar mas de 195kb o si no comprimirlo como ZIP no como RAR. Saludos



Última edición por tyno el 08/11/13, 11:16 am, editado 1 vez

3 Re: Bases de datos en excel 2007 el 08/11/13, 11:09 am

angel45


Muchas gracias por contestar tan ràpido Tyno. Subo el archivo comprimido. El formulario lo cree en una hoja común no use formulario. Lo subo completo, me suscribi para aprender, gracias desde ya.

4 Re: Bases de datos en excel 2007 el 08/11/13, 11:39 am

angel45


Por ahora no he podido comprimir el archivo. No se si se puede, pero se podrá como mensaje privado o mail?? no me da el tamaño solicitado, por más que lo comprima

5 Re: Bases de datos en excel 2007 el 08/11/13, 11:58 am

tyno


Te paso mi correo: tonyb_d@outlook.com

Recorda pasarme el archivo, a parte de los datos y el diseño tambien con la macro que estas usando actualmente explicando como deberia funcionar. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.