Calcolo automatico per combinazione ingredienti

Hai un problema con Excel?

Nuova discussione

Calcolo automatico per combinazione ingredienti
di Ame (utente non iscritto) data: 03/04/2014 11:10:55
Ho bisogno di un aiuto per velocizzare il lavoro in azienda .. Cosa faccio?produco colori. cosa devo fare?mettere tutte le formule dei colori su excel .. come vorrei che venisse ? es. devo fare l' ARANCIO R e mi servono 50 kg di colore, vorrei un programma che in automatico mi vada a calcolare che per far 50kg di quel colore mi servono 3kg di una cosa 8kg di un'altra e così via ... A che punto sono? in tutto di colori ne ho circa 200 e sono gia tutti su excel con le loro formule. ma come faccio a far un programma del genere? Grazie mille , spero di esser stato esauriente!

Selezione combinata ComboBox ListBox
di garziagiuseppe data: 03/04/2014 11:13:40
Ciao a tutti,
volevo chiedervi la seguente soluzione, in una form popolo dallo stesso foglio d'appoggio una ComboBox e una ListBox. La ComboBox mi serve per eseguire la ricerca manuale di un determinato articolo. All'evento Change della Combobox, popolo delle text Box, vorrei poter interagire con la list box, andando ad evidenziare su questa la riga che si riferisce alla ricerca eseguita con la ComboBox. Sotto inserisco il codice con cui popolo i 2 controlli.

Grazie

Option Explicit

Private Sub ComboBox1_Click()
Dim riga As String
Dim testo As String
Sheets("inventario").Select
Range("A1").Select
riga = ComboBox1.ListIndex + 5
Cells(riga, 1).Select
testo = ComboBox1.Text
If testo <> "" Then
TextBox1 = Worksheets("inventario").Range("a" & riga)
TextBox2 = Worksheets("inventario").Range("b" & riga)
TextBox3 = Worksheets("inventario").Range("c" & riga)
TextBox4 = Worksheets("inventario").Range("D" & riga)
TextBox5 = Worksheets("inventario").Range("e" & riga)
TextBox6 = Worksheets("inventario").Range("f" & riga)
TextBox7 = Worksheets("inventario").Range("g" & riga)
TextBox9 = Worksheets("inventario").Range("h" & riga)
End If
End Sub


Private Sub ListBox1_Click()
Dim foglio As String
Dim riga As Variant
Dim testo As Variant

If ActiveSheet.Name = ("inventario") Then
riga = ListBox1.ListIndex + 8
Cells(riga, 1).Activate
testo = ListBox1
End If

On Error Resume Next

riga = ListBox1.ListIndex + 5
Cells(riga, 1).Activate
testo = ListBox1
If testo <> "" Then
TextBox1.Text = ActiveSheet.Range("A" & riga)
TextBox2.Text = ActiveSheet.Range("B" & riga)
TextBox3.Text = ActiveSheet.Range("C" & riga)
ComboBox1.Text = ActiveSheet.Range("C" & riga)
TextBox4.Text = ActiveSheet.Range("D" & riga)
TextBox5.Text = ActiveSheet.Range("E" & riga)
TextBox6.Text = ActiveSheet.Range("F" & riga)
TextBox7.Text = ActiveSheet.Range("G" & riga)
TextBox8.Text = ActiveSheet.Range("H" & riga)
TextBox9.Text = ActiveSheet.Range("I" & riga)
End If
End Sub


Private Sub UserForm_Initialize()
Dim x
Dim y
Dim area
x = Range("B4").CurrentRegion.Rows.Count + 5
y = Range("B4").CurrentRegion.Columns.Count
area = Range(Cells(5, 1), Cells(x, y)).Address
ListBox1.RowSource = area
ComboBox1.RowSource = "inventario!C5:C2000"
End Sub

di totygno71 (utente non iscritto) data: 03/04/2014 11:32:43
Ad Ame... devi essere più preciso
possibilmente dovresti allegare il file di esempio altrimenti la vedo dura.

@garziagiuseppe i dovresti aprire una nuova discussione e non continuare una gia aperta.
di Lucas87 data: 03/04/2014 11:40:10
@Ame
Con la formula CERCA.VERT dovresti risolvere
Immaginando che al momento il tuo foglio sia strutturato:
COLORE DA OTTENERE | COLORE 1 | COLORE 2 | COLORE 3
da A3 a A203 e che in A1 tu vada a inserire il colore che vuoi ottenere
diventa
=cerca.vert(A1;A3:D203;2;falso) in B1
=cerca.vert(A1;A3:D203;3;falso) in C1
=cerca.vert(A1;A3:D203;4;falso) in D1

In alternativa devi allegare un file
di Vecchio Frac data: 03/04/2014 13:52:13
@Ame
Il titolo di questa discussione era assolutamente inadatto e contrario alle nostre regole di utilizzo del forum.
Provvedo a modificarlo (era "Aiuto per programma Excel").
di Lucas87 data: 03/04/2014 14:59:48
Ciao
Forse ripensandoci il tuo problema è più complesso e un cerca.vert non è adatto.
Ho allegato un file di esempio
Nella tabella vanno inseriti:
-in riga 7 i colori che vuoi ottenere (o anche il codice)
-in colonna A i colori che andranno miscelati
-i valori sono le percentuali per le varie tonalità (se non hai le percentuali si può adattare)

Una volta inseriti colore e quantità si preme il pulsante e vengono riportati i colori da miscelare in riga 4 con la relativa quantità in base a quanto richiesto in riga 5
di Zer0Kelvin data: 03/04/2014 23:04:53
Ciao.
In realtà si può risolvere anche con cerca.vert.
Vedi esempio allegato, file "Colore Z0k.xls"

Vuoi Approfondire?