Inserimento costi in Excel

[tropiale]

Buongiorno a tutti mi chiamo tropiale e sono nuovo del forum...
sto iniziando ora le prime basi di programmazione di vba con excel e ho un problema che non riesco a risolvere..
Vorrei creare un foglio in excel in cui, inserendo una certà quantità, mi faccia comparire in automatico nella casella vicino il prezzo di acqusto.

Ho realizzato questo programma ma mi viene fuori una casella che ogni volta devo riavviare. invece a me interesserebbe che rimanga scritto nella cella di excel e che possa farlo su tutte le righe...

Sub valutaNumero()
VariabileInput = InputBox("immettere il numero di pezzi")
Select Case VariabileInput
Case Is <= 100
MsgBox "il pezzo cad. è di 42€", vbInformation, _
"20€"
Case 101 To 200
MsgBox "lil pezzo cad. è di 38€", _
NomeVariabileStringa = "15€"
Case 201 To 500
MsgBox "il pezzo cad. è di 34€", _
NomeVariabileStringa = "10€"
Case 501 To 1000
MsgBox "il pezzo cad. è di 27€", _
NomeVariabileStringa = "10€"
Case 1001 To 3000
MsgBox "il pezzo cad. è di 25€", _
NomeVariabileStringa = "10€"

End Select
End Sub

vi ringrazio anticipatamente

[Boolean]

Il codice ti mostra un messaggio perchè gli dici tu di mostrarlo, visto che usi un MsgBox.

Se ti serve che il valore da mostrare nella cella cambi in funzione del valore presente in un'altra cella, devi realizzare una Function che accetti in ingresso un parametro e metterla in un Modulo di VBA.

La Function in questione, dato l'argomento in ingresso, anche con l'utilizzo della Select Case che attualmente utilizzi, potrà valorizzare una variabile contenente il prezzo, e restituirla in uscita.

A quel punto potrai utilizzarla sul Foglio di Excel come fosse una normale Formula.

Boolean

[tropiale]

e come dovrei modificare il programma a questo punto?

scusami ma ho molte difficoltà essendo proprio agli inizi

[Boolean]

Prova questa Function, inserendola in un modulo.

Public Function ValutaPrezzo(rng As Range) As Double

Dim prUnit As Double

Select Case rng.Value

    Case 0
        prUnit = 0
    
    Case 1 To 100
        prUnit = 50
    
    Case 101 To 200
        prUnit = 40
    
    Case 201 To 500
        prUnit = 30
    
    Case 501 To 1000
        prUnit = 20
    
    Case 1001 To 3000
        prUnit = 10
    
    Case Is > 3000
        prUnit = 5
        
End Select

ValutaPrezzo = prUnit

End Function

Sul tuo Foglio di Lavoro potrai utilizzare questa Function come una formula, ad esempio, nella cella B1:

=VALUTAPREZZO(A1)

Boolean

[tropiale]

Grazie davvero tanto la cosa funziona bene una cosa solo come faccio a farla rimanere in memoria...mi spiego se chiudo il file e lo riapro non mi trova più il modulo associato...

Grazie ancora tantissimo

[Boolean]

Mi sembra ovvio che il file ove risiede questa Funzione debba essere salvato, perchè la Funzione sia sempre disponibile.

Se non ho capito, rispiega meglio cosa intendi dire...

Boolean

[tropiale]

io ho salvato il file dove è presente questo modulo..ho provato a chiudere e riaprire ma qundol'ho riaperto dove c'era la funzione veniene fuori #NOME?

[tropiale]

ho notato che l'errore me lo dà se VBA è chiuso quando lo apro ricarico il file e funziona..è normale?

[Boolean]

Sinceramente non ho capito... Se una funzione è definita in un modulo relativo ad un certo file deve funzionare a prescidere dalla finestra di VBA aperta o meno.
Altro discorso è, invece, se la protezione dalle macro viene attivata impedendone la corretta esecuzione.

Boolean

[tropiale]

l'ho salvato nel file prezzi pezzi come dimostra l'imagine che ti allego ma non sò perchè quando chiudo la finestra di VBA non mi funziona più.

Scusami