Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 49

Discussione: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero



  1. #1
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    cioa a tutti , e giorni che cerco e ricerco ma non trovo nulla o trovo cose troppo complicate.
    il mio problema è il seguente ,ho un Db di una gestione magazzino con articoli e una cella con la quantità finale.
    Ora ,semplicemente , senza creare complesse pagine di carico - scarico articoli (che sarebbe la cosa logica..)
    vorrei legare un formula in una cella che se ho altri 5 componenti , scrivo 5 ,invio mi aumenta il totale finale 5+.quello che era in precedenza,
    e il valore dove ho messo 5 torna a zero ,cosa all'incontrario se ne prendo 5 (segno meno..)

    vi è qualche discussione simile ??
    allego il file
    File Allegati File Allegati

  2. #2
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao fabiano_74
    un formula in una cella che se ho altri 5 componenti , scrivo 5 ,invio mi aumenta il totale finale 5+.quello che era in precedenza,
    Quello che ho capito tu se in colonna I (Quantità) hai un valore =5 dovresti sommare altri 5 che ad esempio (con una formula ) si trovano in colonna K ed azzerare il valore di K?
    Inoltre lo scarico come lo fai manualmente? la colonna I come viene gestita?
    per quanto sopra penso ci voglia una macro.

  3. #3
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao Berna11 , in effetti è più facile a pensarlo che a scriverlo...si ho una quantità finale in I , esempio
    pz 2 .
    ora se devo aggiornare il mio inventario , esempio aggiungere pz 2(3, 5....100...n..), lo scrivo nella casella gialla(C) e con invio da 2 diventeranno 4...
    e per finale il 2 inserito nella casella gialla deve andare a zero (o non avere nessun numero)....penso che si posa fare anche se sottraggo(es. -2) ..
    LOVATO 11RF9015 TERMICA 0,09-0,15 Amp M201 PZ 2,0

  4. #4
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao, dunque vediamo se ci siamo in colonna K ho messo questa formula:
    =SE(Tabella4[@[Carico Scarico]]<>"";Tabella4[@[QUANTITA'']]+Tabella4[@[Carico Scarico]];Tabella4[@[QUANTITA'']])
    In pratica ti fa il calcolo tra la quantità rimanente in colonna I con i valori +/- inseriti in colonna C.
    Ora, se questo può andar bene con una macro si copia il valore di colonna K in I.

    Poi mi rispieghi quel concetto se arriva a 5.


    File Allegati File Allegati

  5. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Citazione Originariamente Scritto da fabiano_74 Visualizza Messaggio
    ....
    vorrei legare un formula in una cella che se ho altri 5 componenti , scrivo 5 ,invio mi aumenta il totale finale 5+.quello che era in precedenza,
    e il valore dove ho messo 5 torna a zero ,cosa all'incontrario se ne prendo 5 (segno meno..)

    vi è qualche discussione simile ??
    ...
    Non credo che vi sia una discussione simile!!!!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. #6
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ah grazie Ges

    mentre a risposta di Berna11..grazie ,ma non è quello che vorrei (((...nel senso che se nella colonna I (dal file che mi hai rigirato) entrano 2 uova ,ok e scrivo 2 e in giacenza finale avre 2 entrate +2 a magazzino = 4 Totali
    e come calcolo è corretto il problema è dopo se ho un altra entrata..
    Ma il due ,mi rimane nella cella I , quindi se torno a cambiare I esempio con 1 il mio totale finale dovrebbe essere 2+1 (entrate)+(taotale giacenza iniziale)2= 5 ....
    mentre come funzione su I metto 1 + totale 3 e non è esatto!!??
    Dici che servirebbe una istruzione Vba ?? che dopo che ho scritto il valore in I , e premendo invio resetti aspettando il nuovo inserimento...

    Ps gira e rigira esce sempre 5 , era un puro esempio sulla quantità )))

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Dopo quest'ultima spiegazione il mio stato confusionale è peggiorato!!!

    Berna, ciao, speriamo che tu abbia capito.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #8
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao fabiano_74
    ...quindi se torno a cambiare I ...
    ma prima avevi detto che il carico/carico lo facevi da colonna C.
    La colonna I non la devi toccare
    Cmq prova a rivedere il file con la macro che ti aggiorna le quantità.
    Questo il procedimento:
    1 -- inserisci le q.tà in colonna C se si tratta di scarico metti il segno - (meno)
    2 -- premi il pulsante "Aggiorna Giacenze" sopra colonna K.
    Sei di nuovo pronto per altro carico/scarico
    ho inserito una FC in colonna I che segnala ila Q.tà tra 1-5 pz. (si può togliere)

    @ Ciao Ges, sinceramente l'ultima spiegazione l'ho trascurata sono andato per la mia strada quella che avevo iniziato spero sia quella giusta...
    File Allegati File Allegati

  9. #9
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    scusatemi , .....tra una decina di messaggi magari mi farò capire....mmmm..vediamo
    ho un totale nella colonna I ,ho una cella in C.
    Se in C metto un valore x, questo X cambierà il totale in I sommando ll valore X.
    Una specie di Entrata (caricamento) articolo.
    Bene...
    la cella C si deve azzerarare , con un nuovo caricamento (somma )o uno scarico dal magazzino(sottrazione)
    il valore finale in I dovrà variare di conseguenza...

  10. #10
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao a tutti Fabiano, Ges, Berna
    Ma scusate il totale magazzino dov'è?
    La colonna I sono i pezzi nuovi entrati o la giacenza totale?
    Se non ho capito male credo che manchi una colonna



    P.S.
    forse ho capito :
    il tuo unico problema è che dopo aver aggiornato la colonna I si deve azzerare la colonna C

    è esatto?

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  11. #11
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    scusatemi , .....tra una decina di messaggi magari mi farò capire....mmmm..vediamo
    ho un totale nella colonna I ,ho una cella in C.
    Se in C metto un valore x, questo X cambierà il totale in I sommando ll valore X.
    Una specie di Entrata (caricamento) articolo.
    Bene...
    la cella C si deve azzerarare , con un nuovo caricamento (somma )o uno scarico dal magazzino(sottrazione)
    il valore finale in I dovrà variare di conseguenza...
    Forse "c'iò azzeccato" vedi l'ultimo file che ti ho allegato

  12. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Faccio un tentativo, prova con questo codice:
    Codice: 
    Sub CARICO()
        With Sheets(1)
        Dim uRiga As Long, y As Integer
            uRiga = .Cells(Rows.Count, 9).End(xlUp).Row
                For y = 9 To uRiga
                    .Cells(y, 9).Value = .Cells(y, 9).Value + Cells(y, 3).Value
                    If .Cells(y, 9) = 0 Then .Cells(y, 9) = ""
                Next
            .Range(.Cells(9, 3), .Cells(uRiga, 3)) = ""
        End With
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  13. #13
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    nel modulo di classe del foglio magazzino
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("Tabella4[Carico Scarico]")) Is Nothing Then
    Target.Offset(0, 6).Value = Target.Offset(0, 6).Value + Target.Value
    Target.Value = ""
    End If
    Application.EnableEvents = True
    End Sub
    saluti a tutti
    e scusate la sovrapposizione
    File Allegati File Allegati

  14. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Citazione Originariamente Scritto da Berna11 Visualizza Messaggio
    Forse "c'iò azzeccato" vedi l'ultimo file che ti ho allegato
    Ciao Berna

    esegui col pulsante "SOMMA GIACENZE" e dimmi se è quello che volevi (la macro si trova nel modulo 1)

    Codice: 
    Sub somma_quantità()
    
    Dim uriga As Long
    Dim i As Integer
    Dim wks As Worksheet
    
    
    Set wks = ThisWorkbook.Worksheets("MAGAZZINO")
    uriga = wks.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 9 To uriga
    
    
        wks.Range("I" & i).Value = wks.Range("I" & i).Value + wks.Range("C" & i).Value
        wks.Range("C" & i).Value = ""
        
    Next
    
    
    Set wks = Nothing
    
    
    End Sub
    Fammi sapere - ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    ops ho aggiornato la videata ma siete arrivati mentre scrivevo.

    Vabbè ci sono 3 soluzioni almeno una spero sia buona

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao ragazzi, evidentemente ci è venuto un barlume improvviso ... ci siamo accavallati tutti.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  17. #17
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao ragazzi, ... per fortuna che le spiegazioni non erano chiare....
    @ Baloon
    Vabbè ci sono 3 soluzioni almeno una spero sia buona
    Sono 4 Baloon, Berna, Ges, ggratis.

    almeno 1 farà al caso....

  18. #18
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Citazione Originariamente Scritto da Berna11 Visualizza Messaggio
    Ciao ragazzi, ... per fortuna che le spiegazioni non erano chiare....
    @ Baloon


    Sono 4 Baloon, Berna, Ges, ggratis.

    almeno 1 farà al caso....
    sorry non avevo visto la tua

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  19. #19
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    un piccolo miglioramento... penso che un valore negativo in magazzino non abbia senso!

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nr As Long
    Application.EnableEvents = False
    If Not Intersect(Target, Range("Tabella4[Carico Scarico]")) Is Nothing Then
        If (Target.Offset(0, 6).Value + Target.Value) >= 0 Then
            Target.Offset(0, 6).Value = Target.Offset(0, 6).Value + Target.Value
            Target.Value = ""
        Else
        MsgBox ("Disponibilità magazzino non sufficiente, immettere un nuovo valore!")
        Target.Value = ""
        End If
    End If
    Application.EnableEvents = True
    End Sub
    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("Tabella4[CODICE]").SpecialCells(xlCellTypeConstants)) Is Nothing Then
    For Each sh In Shapes
      If Left(sh.Name, 3) = "Pic" Then sh.Delete
    Next
    aleft = 610
    atop = 40
    w = 120
    h = 120
    myfolder = ThisWorkbook.Path & "\"
    myfile = myfolder & Target & ".jpg"
    If Dir(myfile) = "" Then myfile = myfolder & "Img_non_disponibile.jpg"
    Application.ActiveSheet.Shapes.AddPicture myfile, False, True, aleft, atop, w, h
    End If
    End Sub
    nella sub associata al selectionchange, mi piace di più vederla come l'ho scritta, Range("Tabella4[CODICE]").SpecialCells(xlCellTypeConstants per farla partire solo per le celle della colonna contenenti un valore

    saluti
    gg

    ps mi piace questo file-ettino!
    File Allegati File Allegati

  20. #20
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao a tutti
    EDIT Come non detto, ho frainteso con le foto EDIIT

  21. #21
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Buon giorno a tutti....è veramente un forum attivissimo ...grazie a tutti dell'aiuto ..ora li vado a provare ))).....

  22. #22
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Allora li ho provati ... e si vanno tutti benissimo ))...
    Grazie a Berna,Baloon e Ges ,il sistema con un pulsante per aggiornare il finale è una cosa molto carina....

    Grazie a GGratis , ha creato l'istruzione che cercavo...anche se direi che tenere un tasto di convalida dei dati inseriti non mi dispiacerebbe...

  23. #23
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Citazione Originariamente Scritto da fabiano_74 Visualizza Messaggio
    ...
    Grazie a GGratis , ha creato l'istruzione che cercavo...anche se direi che tenere un tasto di convalida dei dati inseriti non mi dispiacerebbe...
    grazie per il riscontro Fabiano,
    quello che non ho capito e se ti va bene il tasto per l'inserimento (e quindi hai risolto) o se inserito il valore, vorresti che ti comparisse un messaggio di allerta che ti dica "vuoi aggiornare il magazzino?" se "si" aggiorna se "no" esce ed azzera il valore inserito...

    saluti
    GG

  24. #24
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    @ggratis
    Ciao, pensavo più ad una userform, appena clicchi in colonna C, si apre (con lo sfondo della foto stessa ed una casella di testo dove digitare il numero. Nessun tasto solo la X per chiuderla casomai "avesse sbagliato"). Io non sprei come inserire la foto.
    Ps. Al codice farei un'ulteriore controllo.

    Codice: 
    If IsNumeric(Target.Value) Then
    'eseguo
    Else
    'non eseguo
    End If

  25. #25
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Ciao Ggratis , si mi piacerebbe (ora ne sto approfittando) che mi comparisse un tasto oppure che sia sempre presente come le altre soluzioni...che per aggiornare il valore finale sia mia iniziativa...

  26. #26
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    @Raffaele
    io credo che se gli serve per lavorare, non aggiungerei altro a quello che già ha e non ci metterei neppure il tasto (sono per la riduzione dei click - Rischio movimenti ripetuti - Occhipinti e Colomini ne sarebbero felici!)
    D'altra parte, per come l'ha impostato se togli o aggiungi un numero per errore, ce lo rimetti cambiato di segno ed hai fatto...
    Certo se ti scordi il numero che c'era te li devi andare a ricontare in magazzino... gg

    ps: lui ha già una foto che si aggiorna quando va sul codice dell'articolo; foto salvata nella stessa directory del file excel...

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("Tabella4[CODICE]").SpecialCells(xlCellTypeConstants)) Is Nothing Then
    For Each sh In Shapes
      If Left(sh.Name, 3) = "Pic" Then sh.Delete
    Next
    aleft = 610
    atop = 40
    w = 120
    h = 120
    myfolder = ThisWorkbook.Path & "\"
    myfile = myfolder & Target & ".jpg"
    If Dir(myfile) = "" Then myfile = myfolder & "Img_non_disponibile.jpg"
    Application.ActiveSheet.Shapes.AddPicture myfile, False, True, aleft, atop, w, h
    End If
    End Sub
    [edit]

    ecco non avevo aggiornato ! ;)

  27. #27
    L'avatar di fabiano_74
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    catanzaro
    Età
    43
    Messaggi
    23
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    1

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    In effetti hai ragione , è già bello e soprattutto funzionante così.e come dici te se per errore metto un altro valore nessun problema grave
    Riconto ...))))
    ..poi con il tempo capirò se mi trovo bene o se userò la prima soluzione.
    Quindi vi ringrazio e chiamo questa discussione per me conclusa ,ringraziando tutti.

    chiudo chiedendo un informazione
    Per impostare una casella che filtra velocemente i campi interessati ,senza dover usare il filtraggio automatico di excel...vi è qualche discussione , o il nome specifico ??da documentarmi??

  28. #28
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    @fabiano_74
    >>>una casella che filtra velocemente i campi interessati
    Non ho capito cosa richiedi, devi ricercare una parte del "prodotto" con similitudine nella descrizione esiste "LIKE" con asterisco davanti e dietro, mà dovresti fare un'esempio.

    @ggratis
    VBA. Se inserisce un carattere di testo (errore) va in "Debug" (se preme FINE, EnableEvents non si ripristina)

    Concordo con Te per i tasti, io invece lo farei.
    Tu vai in colonna C, digiti e poi premi OK = 3 passaggi
    Io vado nella colonna C (SelectionChange, si apre l'userform)
    La fotografia "inserita", mi fà vedere il prodotto...
    Se ho sbagliato cella/prodotto, premo la X dell'userform per uscire
    Se è giusto (un +1 click in più), per entrare nella casella di testo, digito, premo OK (e si chiude l'userform)

  29. #29
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    @ggratis
    VBA. Se inserisce un carattere di testo (errore) va in "Debug" (se preme FINE, EnableEvents non si ripristina)
    @Raffaele
    questo l'ho risolto...

    Citazione Originariamente Scritto da fabiano_74 Visualizza Messaggio
    chiudo chiedendo un informazione
    Per impostare una casella che filtra velocemente i campi interessati ,senza dover usare il filtraggio automatico di excel...vi è qualche discussione , o il nome specifico ??da documentarmi??
    ...te l'ho fatto in allegato! ...ho previsto anche una convalida nella colonna CODICE in modo da impedire l'inserimento di un codice ripetuto
    ed una casella di testo dove rimane memorizzato il dato dell'ultimo codice caricato/scaricato (riporta il valore precedente)

    poi ho messo anche dei pulsanti di opzione, che se è selezionato carico i numeri si aggiungono, se è selezionato scarico i numeri si sottraggono (in modo da non inserire sempre il tasto meno; immagino che il lavoro andrà per fasi!)

    questo il codice nel modulo di classe del foglio "MAGAZZINO"
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim i As Long
        Dim Valore
        
        If Not Intersect(Target, Range("Tabella4[Carico Scarico]")) Is Nothing Then
            If IsNumeric(Target.Value) Then
                    Application.EnableEvents = False
                    If (Target.Offset(0, 6).Value + Target.Value * Choose(Range("C7"), 1, -1)) >= 0 Then
                             ActiveSheet.Shapes.Range(Array("ultimo")).TextFrame2.TextRange.Characters.Text = "Ultimo articolo caricato/scaricato: " & Target.Offset(0, -1).Value & " quantità iniziale " & "->" & Target.Offset(0, 6).Value
                            Target.Offset(0, 6).Value = Target.Offset(0, 6).Value + Target.Value * Choose(Range("C7"), 1, -1)
                            Target.Value = ""
                    Else
                            MsgBox ("Disponibilità magazzino non sufficiente, immettere un nuovo valore!")
                            Target.Value = ""
                            Target.Select
                    End If
                    Application.EnableEvents = True
            Else
                MsgBox ("Il valore immesso non è numerico, immettere un nuovo valore!")
                Target.Value = ""
                Target.Select
            End If
        End If
        
        For i = 1 To 9
            If Not Intersect(Target, Range("A8").Offset(0, i - 1)) Is Nothing Then
                Valore = Range("A8").Offset(0, i - 1).Value
                If Valore = "" Then
                    ActiveSheet.ListObjects("Tabella4").Range.AutoFilter Field:=i
                    Else
                    ActiveSheet.ListObjects("Tabella4").Range.AutoFilter Field:=i, Criteria1:="*" & Valore & "*", Operator:=xlOr, Criteria2:="="
                End If
            End If
        Next i
    End Sub
    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            If Target.Count > 1 Then Exit Sub
            If Not Intersect(Target, Range("Tabella4[CODICE]").SpecialCells(xlCellTypeConstants)) Is Nothing Then
                    For Each sh In Shapes
                        If Left(sh.Name, 3) = "Pic" Then sh.Delete
                    Next
                    aleft = Range("F1").Left '610
                    atop = Range("F1").Top ' 40
                    w = Range("J7").Left - Range("F1").Left '120
                    h = Range("J7").Top - Range("F1").Top '120
                    myfolder = ThisWorkbook.Path & "\"
                    myfile = myfolder & Target & ".jpg"
                    If Dir(myfile) = "" Then myfile = myfolder & "Img_non_disponibile.jpg"
                        Application.ActiveSheet.Shapes.AddPicture myfile, False, True, aleft, atop, w, h
            End If
            If Not Intersect(Target, Range("Tabella4[carico scarico]")) Is Nothing Then
                    For Each sh In Shapes
                        If Left(sh.Name, 3) = "Pic" Then sh.Delete
                    Next
                    aleft = Range("F1").Left '610
                    atop = Range("F1").Top ' 40
                    w = Range("J7").Left - Range("F1").Left '120
                    h = Range("J7").Top - Range("F1").Top '120
                    myfolder = ThisWorkbook.Path & "\"
                    myfile = myfolder & Target.Offset(0, -1) & ".jpg"
                    If Dir(myfile) = "" Then myfile = myfolder & "Img_non_disponibile.jpg"
                        Application.ActiveSheet.Shapes.AddPicture myfile, False, True, aleft + 10, atop + 10, w - 20, h - 20
            End If
    End Sub
    saluti
    gg

    ps: ...domani la pizza la offre Fabiano ;)
    File Allegati File Allegati

  30. #30
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: vorrei ottenere un numero finale con una celle che somma o sottrae tornando a zero

    questo è decisamente meglio...
    - le immagini vanno inserire nella cartella img;
    - il file magazzino e la cartella img devono stare nella stessa cartella.
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim i As Long
        Dim Valore
        
        If Not Intersect(Target, Intersect(Range("Tabella4[Carico Scarico]"), Range(Range("Tabella4[[#Headers]]").Offset(1, 0), Range("Tabella4[[#Headers]]").End(xlDown)))) Is Nothing Then
            If IsNumeric(Target.Value) Then
                    Application.EnableEvents = False
                    If (Target.Offset(0, 6).Value + Target.Value * Choose(Range("C7"), 1, -1)) >= 0 Then
                             With ActiveSheet.Shapes.Range(Array("ultimo")).TextFrame2.TextRange.Characters
                             .Text = "Ultimo articolo caricato/scaricato: " _
                             & vbCrLf & Cells(Target.Row, 1).Value & " - " & Cells(Target.Row, 2).Value _
                             & vbCrLf & "quantità iniziale " & "->  " & Cells(Target.Row, 9).Value
                            Cells(Target.Row, 9).Value = Cells(Target.Row, 9).Value + Target.Value * Choose(Range("C7"), 1, -1)
                             .Text = .Text & vbCrLf & "quantità attuale " & "->  " & Cells(Target.Row, 9).Value
                            End With
                            Target.Value = ""
                    Else
                            MsgBox ("Disponibilità magazzino non sufficiente, immettere un nuovo valore!")
                            Target.Value = ""
                            Target.Select
                    End If
                    Application.EnableEvents = True
            Else
                MsgBox ("Il valore immesso non è numerico, immettere un nuovo valore!")
                Target.Value = ""
                Target.Select
            End If
        End If
        
        For i = 1 To 9
            If Not Intersect(Target, Range("A8").Offset(0, i - 1)) Is Nothing Then
                Valore = Range("A8").Offset(0, i - 1).Value
                If Valore = "" Then
                    ActiveSheet.ListObjects("Tabella4").Range.AutoFilter Field:=i
                    Else
                    ActiveSheet.ListObjects("Tabella4").Range.AutoFilter Field:=i, Criteria1:="*" & Valore & "*", Operator:=xlOr, Criteria2:="="
                End If
            End If
        Next i
    End Sub
    
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim test
            If Target.Count > 1 Then Exit Sub
            If Not Intersect(Target, Range(Range("Tabella4[[#Headers]]").Offset(1, 0), Range("Tabella4[[#Headers]]").End(xlDown))) Is Nothing Then
                    For Each sh In Shapes
                        If Left(sh.Name, 3) = "Pic" Then sh.Delete
                    Next
                    aleft = Range("F1").Left '610
                    atop = Range("F1").Top ' 40
                    w = Range("J7").Left - Range("F1").Left '120
                    h = Range("J7").Top - Range("F1").Top '120
                    myfolder = ThisWorkbook.Path & "\img\"
                    test = Cells(Target.Row, 2).Value
                    myfile = myfolder & Cells(Target.Row, 2).Value & ".jpg"
                    If Dir(myfile) = "" Then myfile = myfolder & "Img_non_disponibile.jpg"
                    On Error Resume Next
                    Application.ActiveSheet.Shapes.AddPicture myfile, False, True, aleft + 10, atop + 10, w - 20, h - 20
                    ActiveSheet.Shapes.Range(Array("didascalia")).TextFrame2.TextRange.Characters.Text = _
                    "Ultimo articolo selezionato: " _
                    & vbCrLf & Cells(Target.Row, 1).Value & " - " & Cells(Target.Row, 2).Value
            End If
    End Sub
    File Allegati File Allegati

  31. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. [Risolto] Ottenere il primo valore "vero" di una matrice somma prodotto
    Di Maurantz nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 08/02/17, 23:51
  2. Ottenere la somma di 2 curve
    Di nightwishdml nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 10/11/16, 10:26
  3. Numero da 19 digit viene troncato il finale
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 07/07/16, 09:59
  4. Ottenere al centro della Label o TextBox un testo o un numero
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 11/06/16, 19:40
  5. Risposte: 9
    Ultimo Messaggio: 22/04/16, 20:20

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •