Como invocar movimientos de todos los artículos de una planilla inventario hecho en excel vba con rango de fechas

Quería consultarte como puedo reportar todos los artículos que tengo en una planilla excel o sea tengo mi base de datos de movimientos en excel lo que quisiera reportar es por ejemplo si quiero reportar todas las entradas, salidas, devoluciones, etc de todos los artículos que tengo invetariado por rango de fechas tildando una casilla de verificación que diga "todos los artículos" y que el texto "todos los artículos" se traspase en una hoja de reporte en excel, si me podrías asesorar por favor con algún userform o combobox.

1 respuesta

Respuesta
1

Envíame un correo nuevo con el archivo y en la hoja Resumen, me pones un ejemplo de cómo quieres ver la consulta de todos los artículos. R ecuerda poner tu nombre en el asunto.

Te anexo las macros

Private Sub CheckBox1_Click()
'Por.Dante Amor
    TextBox1.Enabled = True
    TextBox2.Enabled = True
    If CheckBox1 Then
        TextBox1.Enabled = False
        TextBox2.Enabled = False
    End If
End Sub
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
    Set h1 = Sheets("RESUMEN")
    Set h2 = Sheets("INVENT")
    '
    'limpiar hoja
    h1.Range("A9:G" & Rows.Count).ClearContents
    If CheckBox1 = False Then
        Call UnArticulo(h1, h2)
    Else
        Call Todos(h1, h2)
    End If
End Sub
'
Sub Todos(h1, h2)
'Por.Dante Amor
    If TextBox3 = "" Then
        fechas = ""
    Else
        fechas = "1"
        If Not IsDate(TextBox3) Then
            MsgBox "La fecha inicial no es correcta"
            Exit Sub
        End If
        If Not IsDate(TextBox4) Then
            MsgBox "La fecha final no es correcta"
            Exit Sub
        End If
        fecini = CDate(TextBox3)
        fecfin = CDate(TextBox4)
    End If
    '
    Application.ScreenUpdating = False
    '
    'Poner datos:
    h1.[B3] = "Todos"
    h1.[D3] = "Todos"
    h1.[B5] = fecini
    h1.[D5] = fecfin
    '
    fila = 9
    For Each h3 In Sheets
        If h3.[B13] = "FECHA" Then
            u3 = h3.Range("B" & Rows.Count).End(xlUp).Row
            If u3 > 13 Then
                h1.Cells(fila, "A") = h3.Cells(14, "L")
                h1.Cells(fila, "F") = h3.Cells(u3, "M")
                nombre = h3.Name
                For i = 15 To u3
                    If fechas = "" Then
                        fecini = h3.Cells(i, "B")
                        fecfin = h3.Cells(i, "B")
                    End If
                    If h3.Cells(i, "B") >= fecini And h3.Cells(i, "B") <= fecfin Then
                        Select Case LCase(Left(h3.Cells(i, "C"), 3))
                            Case "com"
                                cantidad = h3.Cells(i, "F")
                                h1.Cells(fila, "B") = h1.Cells(fila, "B") + cantidad
                            Case "ven"
                                cantidad = h3.Cells(i, "I")
                                h1.Cells(fila, "C") = h1.Cells(fila, "C") + cantidad
                            Case "dev"
                                cantidad = h3.Cells(i, "F") * -1
                                h1.Cells(fila, "D") = h1.Cells(fila, "D") + cantidad
                        End Select
                        h1.Cells(fila, "E").FormulaR1C1 = "=RC[-4]+RC[-3]-RC[-2]-RC[-1]"
                        h1.Cells(fila, "G").FormulaR1C1 = "=RC[-1]*RC[-2]"
                    End If
                Next
                fila = fila + 1
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub
'
Sub UnArticulo(h1, h2)
'Por.Dante Amor
    If TextBox1 = "" And TextBox2 = "" Then
        MsgBox "Entra un Código o un Artículo"
        Exit Sub
    End If
    '
    If TextBox1 <> "" Then
        cve = TextBox1
        col = "B"
    Else
        cve = TextBox2
        col = "C"
    End If
    If IsNumeric(cve) Then cve = Val(cve)
    '
    Set b = h2.Columns(col).Find(cve, lookat:=xlWhole, LookIn:=xlValues)
    If b Is Nothing Then
        MsgBox "No existe el dato : " & cve
        Exit Sub
    End If
    '
    cod = h2.Cells(b.Row, "B")
    art = h2.Cells(b.Row, "C")
    '
    existe = False
    For Each h In Sheets
        If LCase(h.Name) = LCase(cod) Then
            existe = True
            Exit For
        End If
    Next
    If existe = False Then
        MsgBox "No existe la hoja: " & cod
        Exit Sub
    End If
    '
    If TextBox3 = "" Then
        fechas = ""
    Else
        fechas = "1"
        If Not IsDate(TextBox3) Then
            MsgBox "La fecha inicial no es correcta"
            Exit Sub
        End If
        If Not IsDate(TextBox4) Then
            MsgBox "La fecha final no es correcta"
            Exit Sub
        End If
        fecini = CDate(TextBox3)
        fecfin = CDate(TextBox4)
    End If
    '
    Application.ScreenUpdating = False
    '
    Set h3 = Sheets("" & cod)
    'Poner datos:
    h1.[B3] = cod
    h1.[D3] = art
    h1.[B5] = fecini
    h1.[D5] = fecfin
    '
    fila = 9
    h1.Cells(fila, "A") = h3.Cells(14, "L")
    u3 = h3.Range("B" & Rows.Count).End(xlUp).Row
    h1.Cells(fila, "F") = h3.Cells(u3, "M")
    For i = 15 To u3
        If fechas = "" Then
            fecini = h3.Cells(i, "B")
            fecfin = h3.Cells(i, "B")
        End If
        If h3.Cells(i, "B") >= fecini And h3.Cells(i, "B") <= fecfin Then
            Select Case LCase(Left(h3.Cells(i, "C"), 3))
                Case "com"
                    cantidad = h3.Cells(i, "F")
                    h1.Cells(fila, "B") = h1.Cells(fila, "B") + cantidad
                Case "ven"
                    cantidad = h3.Cells(i, "I")
                    h1.Cells(fila, "C") = h1.Cells(fila, "C") + cantidad
                Case "dev"
                    cantidad = h3.Cells(i, "F") * -1
                    h1.Cells(fila, "D") = h1.Cells(fila, "D") + cantidad
            End Select
            h1.Cells(fila, "E").FormulaR1C1 = "=RC[-4]+RC[-3]-RC[-2]-RC[-1]"
            h1.Cells(fila, "G").FormulaR1C1 = "=RC[-1]*RC[-2]"
        End If
    Next
    '
    Application.ScreenUpdating = True
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Optimizar macro para combinar filas

Tengo una macro que acumula valores de filas determinados según columnas similares, funciona bien con una tabla de datos intermedia en cuanto a su tiempo de ejecución, lo que quiero es optimizar esta macro o mejorarla ya que tengo tablas de hasta...
3 respuestas

Ordenar listado en excel por numero de tienda

Tengo un listado de productos en excel y en la misma celda viene el numero de la tienda y los totales de cada tienda, pero si tengo más de 100 tiendas quiero agregar una columna donde me diga que tienda es y así poder ordenar mi listado por el número...
1 respuesta

Hacer un nuevo archivo copiando la hoja2 y hoja3 de una lista de nombres que están en la hoja1.

En la hoja1 tengo una lista de nombres y quiero copiar la hoja=evaluación y hoja=metas a un nuevo libro con el nombre de la lista de la hoja1 las dos hojas en el mismo nuevo libro.
1 respuesta

Tengo una macro , que necesita que de una lista de alumnos

Imprime un informe de un alumno en particular, necesito que el usuario digite un numero y luego siga con los pasos siguientes, es decir que imprima el usuario seleccionado . ¿Cómo puedo pausar una macro?
2 respuestas

Convertir Texto a Número con Decimales

Tengo mis TextBox donde guardo información pero esta la guarda como texto y deseo convertirlos a Números con Decimales ya utilice Val pero me los convierte en Enteros es al momento de guardar el dato y al momento de modificar el dato. Abocándome a...
4 respuestas

Fórmula Excel para sumar columnas con fechas

Estoy tratando de buscar alguna fórmula que me pueda ayudar a sumar diferentes columnas con fechas; indicándole el rango de fechas y el criterio a considerar. Es decir que tome en cuenta lo siguiente: Fecha de Inicio, Fecha de Termino, Producto....
3 respuestas

Agrupar por nombre y sumar cantidades con ese nombre

Tengo una columna con NIF de proveedores y en la celda adyacente, la cantidad pagada a ese proveedor. En esa columna es posible que un mismo NIF se repita varias veces, ya que se pueden haber emitido varias cantidades a un mismo proveedor. Sería...
2 respuestas

Fórmula o macro para que una celda con fecha se modifique si en el documento hubo cambios

Tengo una planilla en donde la celda b1 tiene la fecha Los datos de esa planilla van desde a3:g54 (hasta ahora, puede aumentar el numero de filas) Lo que busco es que cada vez que se haga alguna modificación en ese rango en cualquiera de las filas o...
2 respuestas

Como hacer una lista dependiente en Excel

Tengo un archivo de Excel donde requiero tener listas dependientes Estado es lista principal Municipio dependiente de Estado Proveedor dependiente de municipio si pudiera ser con rango dinámico también ( aquí se repiten varios proveedores en varios...
2 respuestas

Tengo una base de datos en excel

En la cual sumo tres datos a1 b1 c1 suma 12 3 5 20 Necesito sumar los tres valores, los cuales varían pero la suma no debe ser mayor que 20, y si pasa de 20, que aparezca un mensaje de advertencia que diga valor no permitido y no deje avanzar ¿Cómo...
1 respuesta