Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserimento costi fornitori database

Ultimo Aggiornamento: 20/04/2019 11:09
Post: 22
Registrato il: 29/03/2012
Città: LADISPOLI
Età: 50
Utente Junior
2016
OFFLINE
20/04/2019 03:53

Salve a tutti, avrei un problema che personalmente non riesco a risolvere, arrivo subito al dunque, sto creando un foglio di excel per la gestione spese della mia attività, nel foglio materias primas ho già creato una tabella dove verranno inseriti i vari fornitori, ho già creato una piccola macro per inserire i nuovi fornitori all'interno della tabella, il problema a cui non riesco a trovare una soluzione è il seguente: come potete vedere nel foglio ho creato una piccola tabellina con fornitore, mese, spesa, spesa attuale e totale, a questo punto vorrei creare una macro (o una formula) dove spingendo un pulsante ogni volta mi aggiorna la spesa di quel determinato fornitore in maniera che ogni volta che mi arriva una fattura scegliendo il fornitore, il mese ed inserendo il valore della fattura mi aggiorna la spesa all'interno della tabella.
Ho già provato varie formule ma sinceramnete non riesco a venirne a capo.
Ringrazio sin da subito tutti coloro che mi daranno una mano.
Buona Pasqua a tutti.
Post: 2.194
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
20/04/2019 10:01

ciao


Per l'inserimento dell'importo potresti utilizzare un pulsante a parte (ovviamente dopo aver inserito il fornitore):
Sub inserisciImporto()
    Fornitore = Range("A2")
    mese = Range("E2")
    importo = Range("F2")
    colonna = Cells(9, 1).EntireRow.Find(What:=mese, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Column
    ur = Range("A" & Rows.Count).End(xlUp).Row
    With Range("A10:A" & ur)
        Set c = .Find(Fornitore, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            Cells(c.Row, colonna) = importo
        Else
            MsgBox "Fornitore inesistente"
        End If
    End With
End Sub



saluti


[Modificato da dodo47 20/04/2019 10:46]
Domenico
Win 10 - Excel 2016
Post: 22
Registrato il: 29/03/2012
Città: LADISPOLI
Età: 50
Utente Junior
2016
OFFLINE
20/04/2019 11:09

Dodo 47, grazie infinite mi hai risolto il problema, ho usato la seconda modificando alcuni parametri ma funziona alla perfezione, vedo che sei di Roma, anche io lo sono ma vivo in Brasile.
Se un giorno capiti da queste parti fammi sapere 😋😋, grazie di nuovo e salutami Roma.
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 12:50. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com