funzione minimo con variabili

Hai un problema con Excel?

Nuova discussione

funzione minimo con variabili
di chris (utente non iscritto) data: 18/01/2016 22:11:06
Ciao a tutti,

ho un altro quesito da porvi riguardo alla sintassi del codice sotto.

Ho sviluppato un codice per far calcolare il minimo di una delle sette colonne che ho definito (K->Q) e metterlo nella casella S1. Con l'input box decido in quale colonna vorrei trovare il minimo. Dopo però non riesco a scrivere la sintassi giusta per inserire una formula Min nel range di variabili che ho creato. Mi sa che mi incasino con le virgolette, che sinceramente non ho ancora bene compreso come usare...

Mi potete pf dare un colpo di mano?

Grazie mille!

Sub minimo_s_d_es()
lr = Sheets("n_b").Range("A" & Rows.Count).End(xlUp).Row
lr1 = lr + 1
cm = InputBox("Per quale colonna desideri trovare il minimo?", "COLONNA DA ANALIZZARE", "K=1     L=2     M=3     N=4     O=5     P=6     Q=7")
Sheets("s_d_es").Range("S1") = Application.WorksheetFunction.Min(Range(cm "& 4":cm & lr1))
End Sub

funzione minimo con variabili
di chris (utente non iscritto) data: 18/01/2016 22:13:01
Ciao a tutti,

ho un altro quesito da porvi riguardo alla sintassi del codice sotto.

Ho sviluppato un codice per far calcolare il minimo di una delle sette colonne che ho definito (K->Q) e metterlo nella casella S1. Con l'input box decido in quale colonna vorrei trovare il minimo. Dopo però non riesco a scrivere la sintassi giusta per inserire una formula Min nel range di variabili che ho creato. Mi sa che mi incasino con le virgolette, che sinceramente non ho ancora bene compreso come usare...

Mi potete pf dare un colpo di mano?

Grazie mille!

Sub minimo_s_d_es()
lr = Sheets("n_b").Range("A" & Rows.Count).End(xlUp).Row
lr1 = lr + 1
cm = InputBox("Per quale colonna desideri trovare il minimo?", "COLONNA DA ANALIZZARE", "K=1     L=2     M=3     N=4     O=5     P=6     Q=7")
Sheets("s_d_es").Range("S1") = Application.WorksheetFunction.Min(Range(cm "& 4":cm & lr1))
End Sub

di Mister_x (utente non iscritto) data: 19/01/2016 00:22:25
ciao

utilizzare Option Explicit
indicizzare le variabili

in questo modo riceverai subito dove e' l'errore in una formula

ciao

Option Explicit
Sub minimo_s_d_es()
Dim lr As Long, lr1 As Long
Dim cm As Variant
lr = Sheets("n_b").Range("A" & Rows.Count).End(xlUp).Row
lr1 = lr + 1
cm = InputBox("Per quale colonna desideri trovare il minimo?", "COLONNA DA ANALIZZARE", "K=1     L=2     M=3     N=4     O=5     P=6     Q=7")
Sheets("s_d_es").Range("S1") = Application.WorksheetFunction.Min(Range(cm & "4:" & cm & lr1))
End Sub

di Chris (utente non iscritto) data: 19/01/2016 06:53:22
Grazie mille Mister_x per la correzione e le informazioni... Mi restano i dubbi riguardo all'uso delle virgolette che non ho ancora capito. Ho cercato velocemente spiegazioni nei tutorial ma non sono riuscito a trovarle...

Grazie comunque e ottima giornata,

Christian

Vuoi Approfondire?