Jump to content

Archivo Almacén


Severiano

Recommended Posts

Buenas tardes,

Soy nuevo en el foro, por lo que de primero saludar a todos los usuarios, espero que me podáis ayudar y por otra parte aportar. Gracias.

Tengo una excel en la que voy cargando los materiales recibidos en una de las pestañas con el nombre "Almacén", resulta que la macro del archivo adjunto no carga los materiales cuando dicho material me entra en el sistema en el mismo día pero de unidad en unidad. Como ejemplo he marcado en un cuadrado rojo el material en la pestaña sistema para que se pueda ver que si ejecuto la macro pulsando en los botones "dar entrada a la línea seleccionada" o "pasar todas las no pasadas" solo carga 1 unidad de dicho material


¿Qué variación se pueda hacer sobre la macro para solventar este problema?

Saludos,

Servan

Archivo Almacén.xlsm

Link to comment
Share on other sites

No sé muy bien cómo funciona tu macro, pro para que haga lo mismo con todos los valores iguales, puedes usar el siguiente tipo de código:

Dim Fila as integer
Dim Articulo as String

Articulo = ActiveCell.Value
Fila = 2
Do While Trim(Range("B" & Fila).Value) <> Empty
    If Range("B" & Fila).Value = Articulo Then
 Range("B" & Fila).Select
 fm = ActiveCell.Row
 cm = Range("iMATERIAL").Column
      Set MAT = Cells(fm, cm)
      MTR = MAT
      QAN = MAT.Offset(, 1)
      FEC = MAT.Offset(, 2)
           
    End If
    Fila = Fila + 1
Loop

Seleccionarías la celda del artículo (ActiveCell.Value) y antes del fin del "End If" metes todo el código que necesites

Link to comment
Share on other sites

  • Silvia locked this topic

Archived

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

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy