Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

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