UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

edwinjo


Estimados,
Antes que nada muchisimas gracias por su ayuda.

He encontrado un archivo el cual he adaptado a mis nececidades, pero me gustaria hacerle unos cambio, como que al dar entrada o salida en hoja formulario se sume a las entradas y salidas de la hoja tarjeta, automaticamente (sin formulas son macros), igual al hacer un factura en la hoja factura, se sume a la entrada de la hoja tarjeta (sin formula con macros) a si como se actualice el stock
Podrian ayudarme con este macro por favor
adjunto archivo
Gracias por su fina ayuda

tan17


Código:
Private Sub REGISTRAR_Click()
   
    If NOMBRE = "" Then MsgBox ("ESCRIBA EL NOMBRE DEL MATERIAL"): Exit Sub
   
    If Len(NOMBRE) < Len("0000") Then MsgBox ("EL NOMBRE DEL MATERIAL" & vbNewLine & "DEBE SER MAS DE TRES LETRAS"): Exit Sub
   
    If CANTIDAD = "" Then MsgBox ("ESCRIBA LA CANTIDAD DEL MATERIAL"): CANTIDAD.SetFocus: Exit Sub
       
    If CANTIDAD < 0 Then MsgBox ("LA CANTIDAD DEL MATERIAL NO DEBE SER MENOR DE CER0"): CANTIDAD.SetFocus: Exit Sub
   
    If Val(CANTIDAD) = Text Then MsgBox ("PONER LA CANTIDAD DEL MATERIAL EN NUMEROS"): CANTIDAD.SetFocus: Exit Sub
   
    If UNIDAD = "" Then MsgBox ("SELECCIONE LA UNIDA DEL MATERIAL"): Exit Sub
   
    RPTA = MsgBox("¿SEGURO DESEA REGISTRAR ESTE MATERIAL ?", vbYesNo + vbQuestion)
    If RPTA = vbNo Then Exit Sub
   
    Sheets("LISTADO").Select
   
    Range("B4").Select
   
    While ActiveCell <> Empty
       
        If ActiveCell = NOMBRE Then MsgBox ("ESTE MATERIAL YA EXISTE" & vbNewLine & "POR FAVOR CAMBIE DE NOMBRE" & vbNewLine & "O SI QUIERE SEGUIR AUMENTANDO MAS INGRESO" & vbNewLine & "TRABAJE CON EL FORMULARIO DE CONTROL"): Exit Sub
        ActiveCell.Offset(1, 0).Select
       
    Wend
   
    Range("B4").Select
   
    While ActiveCell <> Empty
        ActiveCell.Offset(1, 0).Select
    Wend
   
    ActiveCell = NOMBRE
    ActiveCell.Offset(0, -1) = CODIGO
    ActiveCell.Offset(0, 1) = UNIDAD
    ActiveCell.Offset(0, 2) = CANTIDAD
    ActiveCell.Offset(0, 4) = CANTIDAD
 
    Sheets("MOVIMIENTO").Select
    Range("A4").Select
   
    While ActiveCell <> Empty
        ActiveCell.Offset(1, 0).Select
    Wend
   
    ActiveCell = Now()
    ActiveCell.Offset(0, 1) = CODIGO
    ActiveCell.Offset(0, 2) = NOMBRE
    ActiveCell.Offset(0, 3) = UNIDAD
    ActiveCell.Offset(0, 6) = CANTIDAD
     
    Sheets("OPERACIONES").Select
    Application.ScreenUpdating = True
    Range("A1").Select
   
    NOMBRE = ""
    CODIGO = ""
    CANTIDAD = ""
    UNIDAD = ""
   
End Sub

Private Sub SALIR_Click()
   
    Sheets("UNIDAD").Visible = True
    Sheets("UNIDAD").Visible = False
   
    Sheets("OPERACIONES").Select
    Application.ScreenUpdating = True
    Range("A1").Select

    Unload Me
   
End Sub

Private Sub UserForm_Terminate()
   
    Sheets("UNIDAD").Visible = True
    Sheets("UNIDAD").Visible = False
   
    Sheets("OPERACIONES").Select
    Application.ScreenUpdating = True
    Range("A1").Select

    Unload Me

End Sub

Trata de aplicar estos en tus codigos ,no subiste archivo.

tan17


Este archivo no recuerdo de donde lo baje ,pero es lo que ocupas.
Archivos
ENTRADAS Y SALIDAS.zip
No tienes los permisos para descargar los archivos.
(123 KB)

4RESUELTO muy bueno el 23/02/15, 08:17 pm

edwinjo


muy bueno, pero no puedo adaptarlo

anexo ejemplo, he tratado de subir el archivo y no ha sido posible, lo envio ahora
en la hoja movimiento le doy entrada o salida a un maximo de 10 articulos en la hoja historial se registran los movimientos y en la hoja stock, se actualizan las entradas, salidas y stock
gracias

no puedo anexarlo podria enviarlo vi email
joachin.edwin@gmail.com

5RESUELTO archivo el 23/02/15, 11:37 pm

edwinjo


intento de nuevo subirlo
Archivos
inventario.zip
No tienes los permisos para descargar los archivos.
(5 KB)

Igtelo


Hola Edwin / Tan17.

Edwin, por qué quieres macros?
Acabo de bajar tu archivo y como que no se justifica hacerlas.

Te sugiero analices éste aporte de Nolberto para que des una estructura adecuado a tus datos. Podrás ver que con fórmulas lo haces.

http://www.universoexcelforo.com/t616-base-de-datos-en-excel-por-nolberto

7RESUELTO es parte el 26/02/15, 04:43 pm

edwinjo


Esque esto solo es parte del archivo, de hecho lo tengo conn formulas, pero por error aveces las formulas se borran y he confirmado que es mejor con macro, es por esta razon

Igtelo


Hola Edwin.

No me convence tu argumento, pero aquí te va.
Ve éste enlace para que entiendas las instrucciones de la macro.

http://www.universoexcelforo.com/t1181-como-trabaja-una-macro-y-la-hoja-de-calculo-simultaneamente-videotutorial

Al ver como se desarrolla una macro ya te será fácil modificar, te lo digo porque lo tendrás que adaptar a tu archivo original, lo que subiste es sólo un ejemplo; así que interpreta las instrucciones y ya podrás hacerlo.
Archivos
Edwinjo-inventario.xls
No tienes los permisos para descargar los archivos.
(72 KB)

9RESUELTO gracias el 27/02/15, 12:48 pm

edwinjo


Te agradezco, vere el tutorial, muy amable
gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.