Macro para actualizar stock después de haber eliminado producto de ListBox

[jose lopez contreras]

Nuevamente por acá amigos, les platico sigo realizando una aplicación donde se realizara la salida de productos. Con la ayuda de varias personas del foro y lo que eh investigado ya esta un poco avanzado.

Les platico como funciona en lo general:

1. De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox.
2. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox.
3. En caso de ingresar un producto no deseado, se puede eliminar seleccionando en el ListBox y después pulsar el botón "Eliminar datos".

Hasta ahí todo bien, aquí viene la pregunta como puedo adaptar una macro al botón "Eliminar datos" para que me devuelva la "cantidad" del o los producto eliminados del ListBox ala base de datos llamada "Inventario".

Anexo archivo para su análisis y posible ayuda. Gracias

Salidas.xls

[jose lopez contreras]

En 1/11/2018 at 8:27 , jose lopez contreras dijo:

Nuevamente por acá amigos, les platico sigo realizando una aplicación donde se realizara la salida de productos. Con la ayuda de varias personas del foro y lo que eh investigado ya esta un poco avanzado.

Les platico como funciona en lo general:

1. De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox.
2. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox.
3. En caso de ingresar un producto no deseado, se puede eliminar seleccionando en el ListBox y después pulsar el botón "Eliminar datos".

Hasta ahí todo bien, aquí viene la pregunta como puedo adaptar una macro al botón "Eliminar datos" para que me devuelva la "cantidad" del o los producto eliminados del ListBox ala base de datos llamada "Inventario".

Anexo archivo para su análisis y posible ayuda. Gracias

Salidas.xls

 

[Invitado Cacho R]

Hola! José. Tu descripción, José, sugiere un error conceptual "de base". O sea:

- El userform debes utilizarlo como una herramienta "intermedia".

- Si las hojas Salidas e Inventario son "lo que parece que son", entonces y si necesitas guardar temporalmente info en alguna hoja, esa hoja NO debe ser ninguna de las aludidas sino una auxiliar.

- Lo que sea que agregues, modifiques o elimines en tu userform sólo debe afectar esa al userform y a esa hoja Auxiliar.

- Y cuando des por válida tu información y presiones tu botón Aceptar (seguro que tienes uno), recién allí es que debes pasar la info DEFINITIVA de tu userform y de la hoja auxiliar a tus hojas Salidas e Inventario.

Modifica lo que ya tengas pensando de ese modo: ¡Y nunca tendrás información "que no cuadre"!...

Saludos, Cacho R.

.

[jose lopez contreras]

@Cacho R

Muchas gracias por tu explicación, tratare de analizarla paso a paso y aplicar lo que me recomiendas. pero me facilitarías mucho el trabajo si tienes por ahí un ejemplo donde apoyarme. De todas forma seguiré trabando en lo recomendado.

[Invitado Cacho R]

Hace 3 horas, jose lopez contreras dijo:

pero me facilitarías mucho el trabajo si tienes por ahí un ejemplo

El mejor ejemplo es tu propio archivo... Claro que en lugar de guardar las cosas en un lado las debes guardar en otro temporalmente.

[jose lopez contreras]

@Cacho R

haber si te entendí, ya anexe una hoja llamada Stock ahí guardo temporalmente la información generada del listbox después de haber realizado los movimientos de artículos (sumas y restas), a su vez también la guardo en la hoja ventas para que de ahí pueda generar mis reportes. Ahora cuando mando a imprimir le doy la instrucción que la hoja temporal Stock se borre. aquí viene la pregunta como mando a mi hoja Inventario la cantidad de los artículos guardados en mi hoja temporal. Por su puesto seguiré investigando.

[Invitado Cacho R]

Hace 14 minutos , jose lopez contreras dijo:

aquí viene la pregunta como mando a mi hoja Inventario la cantidad de los artículos guardados en mi hoja temporal

Igual que como lo estabas haciendo pero tomando los datos desde tu hoja temporal: ¿Cómo lo estabas haciendo?...

 

[jose lopez contreras]

Con esto, pero como que qui ya no aplica jajaja. Podras darme una idea como pasarla

' If TextBox1 <> "" Then
'Worksheets("inventario").Visible = True
'Worksheets("inventario").Select
'If ComboBox2 <> "" Then
'ActiveCell.Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value + TextBox6
'
'Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
'        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
'        False).Activate
'ActiveCell.Offset(1, 0).Select
'TextBox1 = ActiveCell
'If TextBox1 = ActiveCell Then
   
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
    TextBox4 = Empty
    ComboBox2 = Empty
    TextBox6 = Empty
    TextBox8 = Empty
    TextBox9 = Empty
    TextBox10 = Empty
    TextBox13 = Empty
    ComboBox1 = Empty
'    ComboBox1.SetFocus
'    Worksheets("menu").Select
'    Worksheets("inventario").Visible = True
'
'End If
'End If
'End If

 

[Invitado Cacho R]

A propósito, José: ¿Ves esos "corazones" que se encuentran en la parte inferior derecha de los mensajes?

Pues se utilizan en este Foro para ir agradeciendo las ayudas que recibes: ¿Qué ocurre que no has hecho click en ninguno de ellos?...

[jose lopez contreras]

@Cacho R

Perdon pero ahi te van jajaja

 

[Invitado Cacho R]

Hace 14 horas, jose lopez contreras dijo:

Con esto, pero como que qui ya no aplica jajaja. Podras darme una idea como pasarla...

Jajjjajaja... ¡Claro que no aplica!

Y no aplica por la sencilla razón que lo que muestras -sólo- resetea los objetos de tu userform y no tiene nada que ver con eso de traspasar tu info a las dos hojas en cuestión.

¿Sabes qué?...
Te sugiero que te tomes un par de semanas (o meses) para estudiar lo que tienes y entenderlo: es importante que lo hagas puesto que -de lo contrario- siempre estarás dependiendo de que te hagamos todo en los Foros... ¡Y no es ésa una buena perspectiva!, ¿Comprendes?

Cuando sientas que tu nivel de conocimiento ha "pegado un salto de calidad real", te seguiré ayudando con mucho gusto.

[jose lopez contreras]

@Cacho R

Muchas gracias por tus consejos los tomare en cuenta, yo se que estoy en pañales pero creo que todos empezamos así pidiendo pescados en lugar de aprender a pescar, lo digo en buen plan. te agradezco a ti que me estas enseñando a pescar en lugar de darme el pescado. te prometo que cuando tenga la solución a mi aplicación te lo haré saber para que veas que eh progresado. Saludos desde Veracruz, México

 

[Invitado Cacho R]

Hace 2 horas, jose lopez contreras dijo:

te prometo que cuando tenga la solución a mi aplicación te lo haré saber

Te platico sobre una forma mejor de preguntar en los Foros y que te ayudará a aprender:

- ¿Cómo copio los datos desde una hoja a otra hoja mediante una macro? (y presentas un Excel con dos hojas y ningún userform, por lógica).

- ¿Cómo paso los datos de unos textbox a mi rango de datos? (y presentas una hoja con unos dos/tres campos de datos y un userform con sus respectivos dos/tres textbox asociados).

¿Entiendes?... O sea: planteas preguntas MUY específicas y "concentradas" para no dar la sensación que pretendes que los foristas de turno desarrollen para tí tu proyecto.

¡Espero verte progresar!... Saludos, Cacho R.

.

[jose lopez contreras]

@Cacho R

Muchas gracias por tu orientación lo tomare encuenta para la próxima duda que tenga. Saludos

[Leopoldo Blancas]

En 2/11/2018 at 11:54 , Cacho R dijo:

Y cuando des por válida tu información y presiones tu botón Aceptar (seguro que tienes uno)

@jose lopez contreras, ya te lo había recomendado y hasta yo te lo hice en tu anterior pregunta. Claro que faltaba lo de Eliminar un Item del listBox y actualizar los datos. Pero como dice Cacho R, Date un tiempo para por lo menos enternderle un poco a VBA.

Y siempre empieza por cosas sencillas como Cacho R te recomienda.

Hace 6 horas, Cacho R dijo:

Te platico sobre una forma mejor de preguntar en los Foros y que te ayudará a aprender:

- ¿Cómo copio los datos desde una hoja a otra hoja mediante una macro? (y presentas un Excel con dos hojas y ningún userform, por lógica).

- ¿Cómo paso los datos de unos textbox a mi rango de datos? (y presentas una hoja con unos dos/tres campos de datos y un userform con sus respectivos dos/tres textbox asociados).

¿Entiendes?... O sea: planteas preguntas MUY específicas y "concentradas" para no dar la sensación que pretendes que los foristas de turno desarrollen para tí tu proyecto.

¡Espero verte progresar!... Saludos, Cacho R.

Saludos.