Jump to content

Archived

This topic is now archived and is closed to further replies.

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.

 

Link to post
Share on other sites

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)

 

Saludos

JOSE.xlsm

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

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

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 !!! 

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,

 

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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Ya casi lo tengo, pero no será hasta mañana, que aquí donde estoy ya es hora de cenar. 😉
    • Buenos días. He preparado una plantilla para organizar los turnos de trabajo con una duración mensual. Me gustaría saber si es posible que a la hora de imprimirlo, se imprimiese por semanas, manteniendo las tres primeras columnas, donde apararecen los distintos turnos y lugares de trabajo, y si, por ejemplo, la primera semana del mes empieza en miercoles, el rango empiece en dicho dia hasta el domingo. Gracias de antemano por vuestra ayuda. Saludos, Ignacio Modelo2.xlsm
    • Hola Alexander, He encontrado una solución que creo que me va. ¿Seras tan amable de revisar y decirme si esta correcto lo que he aplicado? Tambien quiero que me digas si voy de buen camino y si puedo utilizar la misma función para otras celdas - Range("D5").Offset(, 0).Value = LCase(Target) Saludos,
    • hola wess   (y Christian) De tu explicación entiendo una cosa, entiendo que Christian se basó en eso para resolver tu tema.  Pero de tu ejemplo, no entiendo nada.. por ejemplo, en Resultado Esperado, de donde sale el productob en Marzo 61 y de Enero a Diciembre 437 si en tu tabla de Datos el productob tiene un único movimiento en Marzo y es 437, entonces, de donde sale 61?? y del resto ya mejor ni digo nada.. 😵   saludos Silvia
    • Un gusto @Sergio, sinceramente no sabría recomendarte alguna pagina o vídeo en concreto, la cinta que vez arriba la hice con una recopilación de paginas y un poco de prueba y error. Pero te aseguro que no es tan complicado como parece, seguro que con leer un poco  de la documentación del programa le agarras el tiro https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm Saludos.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy