Jump to content
nachopobleteneculqueo

(macro) ingreso a 2 hojas a la vez

Recommended Posts

Hola Necesito ayuda con una macro.

Yo soy nuevo en el tema, y quiero juntar dos módulos de macros en 1,

lo que quiero hacer es que cuando ingrese un producto , este producto quede ingresado en dos hojas diferentes, he tratado de diferentes manera pero no me deja, recurro a su ayuda

Ejemplo.

la base de ingreso es la hoja 1, y esta información quiero traspasarla a la hoja 2 y la hoja 3, pero de la manera que lo tengo, solo me traspasa la información a solo una hoja.

 

Share this post


Link to post
Share on other sites
Hace 9 horas, nickmartinez dijo:

como no se a cuantas hojas vas a pasar la informacion hice un codigo para pasarlo a 2 hojas,si tienes definido hasta que hojas se van a ingresar los datos seria conveniente un bucle for next que recorra todas las hojas y deposite la informacion en el sitio deseado

Libro1.xlsm

 hola nickmartinez 

trate de hacerlo pero no pude, mira deje un mensaje con el archivo con el archivo y que es lo que necesito hacer.

 

Saludos

Share this post


Link to post
Share on other sites
Hace 12 horas, Enigma25 dijo:

hola @nachopobleteneculqueo

Por favor adjunta aun archivo y con el ejemplo de los que esperas.

Saludos cordiales.

Hola enigma

Adjunto archivo, mira en el modulo 2 quiero ingresar los datos del modulo 3  y 4 y que estos estén vinculados al botón guardar que se encuentra en la pestaña ingreso de datos

modulo 3 (datos que se ingresaran a la pestaña biblia)

modulo 4 (datos que se ingresaran a la pestaña stock)

JOSE.xlsm

Share this post


Link to post
Share on other sites

Hola @nachopobleteneculqueo,

Revise un poco tu Macro y encontré un error en la escritura del código 

Set STOCK = ThisWorbook.Sheets("STOCK PRODUCTOS") "Falta la K"
Set STOCK = ThisWorkbook.Sheets("STOCK PRODUCTOS")

Por Favor verifica tu código y vuelve a corre la Macro, posiblemente esto era el problema

Mucha Suerte

Saludos !!! 

Share this post


Link to post
Share on other sites

Hola

Has lo siguiente:

Quita todos los módulos que tengas y crea un nuevo modulo con el Nombre "Variables" y en dicho modulo declara una variable publica de tipo String. Ejemplo :

Public Uf As String

Luego crea un nuevo modulo y nombralo como "Procesos" y pega lo siguientes procedimientos :

Option Explicit
Sub Procesar()

    With Hoja1
    
       If .Range("I9").Text = "ENTRADA" Then
            Call Entrada
        ElseIf .Range("I9").Text = "SALIDA" Then
            Call Salida
        End If
        
    End With

End Sub
Sub Salida()

With Hoja5

    Uf = .Range("B" & Rows.Count).End(xlUp).Row + 1
    
        .Range("B" & Uf) = CDate(Hoja1.Range("D5")) 'Fecha
        .Range("C" & Uf) = Hoja1.Range("D7") 'Numero de serie
        .Range("D" & Uf) = Hoja1.Range("D9") 'Descripcion
        .Range("E" & Uf) = Hoja1.Range("D11") 'Calibre
        .Range("F" & Uf) = Hoja1.Range("D13") 'Tension
        .Range("G" & Uf) = Hoja1.Range("D15") 'Color
        .Range("H" & Uf) = Hoja1.Range("D17") 'Proveedor
        .Range("I" & Uf) = Hoja1.Range("D19") 'Precio
        .Range("J" & Uf) = Hoja1.Range("D21") 'Documento

        .Range("L" & Uf) = Hoja1.Range("I7") 'Cantidad

End With

End Sub
Sub Entrada()

With Hoja5

    Uf = .Range("B" & Rows.Count).End(xlUp).Row + 1
    
        .Range("B" & Uf) = CDate(Hoja1.Range("D5")) 'Fecha
        .Range("C" & Uf) = Hoja1.Range("D7") 'Numero de serie
        .Range("D" & Uf) = Hoja1.Range("D9") 'Descripcion
        .Range("E" & Uf) = Hoja1.Range("D11") 'Calibre
        .Range("F" & Uf) = Hoja1.Range("D13") 'Tension
        .Range("G" & Uf) = Hoja1.Range("D15") 'Color
        .Range("H" & Uf) = Hoja1.Range("D17") 'Proveedor
        .Range("I" & Uf) = CDbl(Hoja1.Range("D19")) 'Precio
        .Range("J" & Uf) = Hoja1.Range("D21") 'Documento

        .Range("K" & Uf) = Hoja1.Range("I7") 'Cantidad

End With

End Sub

Luego me indicas si la Hoja Stock de productos solo se afecta las columnas de salidas y entradas+ el stock.

Lo cual presumo que es así ya que es la base de datos del producto, cierto?

Por favor e avisas y cualquier cosa, estaré agregando las lienas que faltan.

Mi respetos,

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png