Excel e gli applicativi Microsoft Office Somma della cella stessa

LoginRegistrati
Stai vedendo 15 articoli - dal 1 a 15 (di 15 totali)
  • Autore
    Articoli
  • #16085 Risposta

    Stella

      Salve a tutti. Sono 5 anni che non uso pi√Ļ excel e ora che mi ritrovo a doverlo utilizzare mi ritrovo ferma su quella che apparentemente mi sembra un'operazione semplicissima.

      Vorrei fare in modo che quando in una cella (ex. A2) dove ho messo una funzione appare VERO, in quella affianco (ex.A1) venga eseguita la somma della cella stessa (A1) + 1.
      Qualcuno sa aiutarmi?
      grazie a chiunque risponda ūüôā

      #16086 Risposta
      patel
      patel
      Moderatore
        30 pts

        Non ho capito allega un file di esempio corredato di spiegazioni

        #16087 Risposta

        mandoz
        Partecipante

          Se puoi fare la somma in un'altra cella la cosa, come dici tu,  è molto semplice. Ti serve una formuletta.

          Se devi obbligatoriamente sommare "a1" in "a1" lo è molto di meno. Non sono un esperto ma in questo caso necessiti di vba.

          Cosa ti serve?

           

          ciao

          #16094 Risposta

          Stella

            Si esatto per la seconda opzione @mandoz. Ho provato anche a farlo con VBA ma davvero non ricordo pi√Ļ nulla della sintassi e contino a fare errori... Il fatto √® che dovrei fare un programma per le scorte di un magazzino. A ogni oggetto ho associato un codice a barre (che ho generato con un programma) che non √® costituito da una serie di numeri ma esattamente dallo stesso nome dell'oggetto. La mia idea era quella di creare un file excel in cui mettere una colonna con i nomi degli oggetti e una con il residuale delle scorte, e fare in modo che ogni qual volta io prendo qualcosa dal magazzino e lo scannerizzo con il lettore dei codici a barre, nel foglio excel direttamente mi diminuisce di uno la scorta di quel preciso oggetto...

            Allego una foto perchè non riesco a caricare il file, e chiedo scusa se sono poco chiarafoglio excel

            #16095 Risposta
            albatros54
            albatros54
            Moderatore
            • Sfida #2
              35 pts

              Ciao, per allegare il file ti devi registrare ,se alleghi il file invece dell'immagine renderai  la vita piu semplice a chi ti vorra aiutare  

               

              Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
              Sempre il mare, uomo libero, amerai!
              ( Charles Baudelaire )
              #16096 Risposta

              Stella

                P.S. mi serviva sapere come fare la somma dentro la stessa cella perchè avevo in mente di creare altre due colonne con in e out, in cui IN= scorte originarie, OUT= somma del numero di oggetti di volta in volta sottratti.

                Poi avrei fatto IN-OUT per ottenere le SCORTE EFFETTIVE. Solo che non riuscivo ad incrementare di 1 la cella degli out ogni volta che scannerizzavo un oggetto... per questo ho deciso di semplificare il tutto al programmino che ho riportato sopra...

                #16097 Risposta

                Stella
                Partecipante

                  ok mi sono registrata, ecco il file

                  Allegati:
                  You must be logged in to view attached files.
                  #16103 Risposta
                  albatros54
                  albatros54
                  Moderatore
                  • Sfida #2
                    35 pts

                    incolla queste poche righe di codice nel foglio1 del file che hai allegato, modifica il valore della cella"f2" e vedi il risultato, devi cancellare tutte le formule del foglio

                    Option Explicit
                    
                    Private Sub Worksheet_Change(ByVal Target As Range)
                    Dim rgFound As Range
                    If Not Intersect(Target, Range("f2")) Is Nothing Then   
                        Set rgFound = Range("A2:A8").Find(Target)
                        rgFound.Select
                       
                        If ActiveCell.Offset(0, 2) = "" Then
                            ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 1) - 1
                        Else
                            ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) - 1
                        End If
                        End If
                    End Sub
                    
                    

                     

                    Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
                    Sempre il mare, uomo libero, amerai!
                    ( Charles Baudelaire )
                    #16106 Risposta

                    Stella
                    Partecipante

                      Ok Albatros54, il programma funziona, l'unica cosa,vedo che anche se inserisco un nome non completo mi sottrae comunque dalla scorta: non si può fare in modo che sottragga solo se la cella del codice a barre è esattamente identica a quella dell'oggetto?
                      Comunque grazie mille, sei stato gentilissimo!!!

                      #16107 Risposta

                      mandoz
                      Partecipante

                        un'altra soluzione. molto meno professionale di quella di alb54 

                        ciao

                        Allegati:
                        You must be logged in to view attached files.
                        #16109 Risposta

                        gianca53
                        Partecipante

                          Albatros , non me ne voglia Stella se mi intrometto,    ma vorrei capire il tuo costrutto, ti spiacerebbe aggiungere due righe di commento . grazie 

                          Private Sub Worksheet_Change(ByVal Target As Range)
                          Dim rgFound As Range
                          If Not Intersect(Target, Range("f2")) Is Nothing Then    'target è il range f2
                              Set rgFound = Range("A2:A8").Find(Target)  ' se trovi in a2:a8 il target lo chiami rgFound
                              rgFound.Select   ' e lo selezioni
                             
                              If ActiveCell.Offset(0, 2) = "" Then  
                           ' se la cella attiva che presumo sia quella selezionata ( rgFound) mi sposto di due colonne e se  = "" 
                          
                                  ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 1) - 1   ???
                              Else
                                  ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) - 1   ???
                              End If
                              End If
                          End Sub
                          #16118 Risposta
                          albatros54
                          albatros54
                          Moderatore
                          • Sfida #2
                            35 pts

                            Stella ha scritto:

                            non si può fare in modo che sottragga solo se la cella del codice a barre è esattamente identica a quella dell'oggetto?

                            modifica la riga di codice cosi

                            Set rgFound = Range("A2:A8").Find(Target,Lookat:=xlWhole)

                            If rgFound Is Nothing Then
                            MsgBox "Non Trovata"
                            Exit Sub
                            End If

                            gianca53 ha scritto:

                            If ActiveCell.Offset(0, 2) = "" Then ' se la cella attiva che presumo sia quella selezionata ( rgFound) mi sposto di due colonne e se = "" ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 1) - 1 ??? Else ActiveCell.Offset(0, 2) = ActiveCell.Offset(0, 2) - 1 ??? End If End If

                            in linguaggio umano:

                            SE la cella che si trova sulla stessa riga ma due colonne a Dx della cella attiva("C2") è vuota , allora introduci in questa cella, la differenza tra il valore della cella che si trova sulla stessa riga ma spostata di una colonna("b2")meno uno, altrimenti metti nella cella("c2") il valore della sottrazione tra la cella ("c2")e uno.  

                             

                             

                            Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
                            Sempre il mare, uomo libero, amerai!
                            ( Charles Baudelaire )
                            #16119 Risposta

                            gianca53
                            Partecipante

                              @ albatros 54 ,    grazie 

                              #16120 Risposta

                              gianca53
                              Partecipante

                                @ albatros 54 ,   

                                grazie 

                                #16125 Risposta

                                Stella
                                Partecipante

                                  @ albatros 54 grazie mille, funziona perfettamente! Ho aggiunto in fondo anche la scritta

                                  ActiveSheet.Range("f2").Select

                                  così che ogni volta che uso la pistola del codice a barre non ci sia poi necessità di ritornare con il mouse su f2 per scannerizzare un altro prodotto.

                                  Grazie anche a @mandoz ūüėČ

                                   

                                LoginRegistrati
                                Stai vedendo 15 articoli - dal 1 a 15 (di 15 totali)
                                Rispondi a: Somma della cella stessa
                                Gli allegati sono permessi solo ad utenti REGISTRATI
                                Le tue informazioni:



                                vecchio frac - 1993 risposte

                                albatros54
                                albatros54 - 640 risposte

                                patel
                                patel - 499 risposte

                                Marius44
                                Marius44 - 402 risposte

                                Luca73
                                Luca73 - 365 risposte