Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Macro Gestione Magazzino Opzioni
musico78
Inviato: Tuesday, November 26, 2013 9:31:08 AM
Rank: AiutAmico

Iscritto dal : 11/15/2012
Posts: 33
Ciao a tutti
ho creato un excel " Gestione Magazzino"
Molto semplice.

una cella contiene il nome del prodotto (B)
una cella la quantità(C)
una cella il carico(D)
una cella lo scarico(E)

ho creato questa macro

Sub carico()
Range("c5") = Range("d5") - Range("e5") + Range("c5")
Range("D5").ClearContents
Range("e5").ClearContents
End Sub

C5= mi riporta la quantità
D5= il carico
E5= Lo scarico.
Poi mi cancella il contenuto inserito nella cella carico e scarico.

I miei problemi :
Vorrei che la macro funzionasse ad ogni inserimento nella cella carico o scarico.
Cosi invece devo farlo manualmente ogni volta o dovrei creare un pulsante.
La macro mi occorrerebbe per tutte le colonne di carico e scarico
dato che sono diversi prodotti.

Grazie sempre per l'aiuto.

Sponsor
Inviato: Tuesday, November 26, 2013 9:31:08 AM

 
a10n11
Inviato: Tuesday, November 26, 2013 12:56:37 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
ipotizzando che la tua tabella dati inizi da riga 4
B=descrizione
C= quantità
D=Carico
E=scarico


prova questa macro da copiare nel modulo del foglio in uso:

Private Sub Worksheet_Change(ByVal Target As Range)
Ur = Range("B4").End(xlDown).Row
Set Rng = Range(Cells(4, 4), Cells(Ur, 4))
Set Rng2 = Range(Cells(4, 5), Cells(Ur, 5))
Application.EnableEvents = False
If Not Intersect(Target, Rng) Is Nothing Then
Target.Offset(, -1).Value = Target.Value + Target.Offset(, -1).Value
Target.Value = ""
ElseIf Not Intersect(Target, Rng2) Is Nothing Then
Target.Offset(, -2).Value = Target.Offset(, -2).Value - Target.Value
Target.Value = ""
End If
Application.EnableEvents = True
Set Rng = Nothing
Set Rng2 = Nothing
End Sub


saluti
Giap

musico78
Inviato: Tuesday, November 26, 2013 1:21:27 PM
Rank: AiutAmico

Iscritto dal : 11/15/2012
Posts: 33
Grazie.
Funziona Benissimo.
Alla prossima.
:)
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.