Newsgroup: it.comp.os.win.software
Titolo: aiuto macro excel!

Salve! Sarei grato a chiunque sapra' darmi informazioni riguardo
questa macro (che riporto interamente) la quale si appoggia su un
userform. Il problema sta nel fatto che quando la avvio clicco sul
bottone e appare l'userform con le sue belle combobox ma dopo aver
selezionato gli argomenti che mi interessano all'interno di
quest'ultime non mi vengono riportati i record sul foglio. Dove sta il
problema? non capisco.
Vi ringrazio in anticipo,
Daniele Bergamini
-------------------------------------------------------
Private Sub ComboBox1_Click()
For VOCE = 4 To 100
If Range("A" & VOCE) = " " Then
Range("A" & VOCE) = ComboBox1.Text
ComboBox1.Text = "Data"
Exit For
End If
Next
End Sub
Private Sub ComboBox2_Click()
For VOCE = 4 To 100
If Range("B" & VOCE) = " " Then
Range("B" & VOCE) = ComboBox2.Text
ComboBox2.Text = "Operatore"
Exit For
End If
Next
End Sub
Private Sub ComboBox3_Click()
For VOCE = 4 To 100
If Range("C" & VOCE) = " " Then
Range("C" & VOCE) = ComboBox3.Text
ComboBox3.Text = "Ditta"
Exit For
End If
Next
End Sub
Private Sub ComboBox4_Click()
For VOCE = 4 To 100
If Range("D" & VOCE) = " " Then
Range("D" & VOCE) = ComboBox.Text
ComboBox.Text = "Lavoro"
Exit For
End If
Next
End Sub
Private Sub UserForm_Activate()
ComboBox1.Text = "Data"
ComboBox2.Text = "Operatore"
ComboBox3.Text = "Ditta"
ComboBox4.Text = "Lavoro"
ComboBox1.AddItem "data1"
ComboBox1.AddItem "data2"
ComboBox1.AddItem "data3"
ComboBox1.AddItem "data4"
ComboBox2.AddItem "ALESSIO"
ComboBox2.AddItem "CRISTINA1"
ComboBox2.AddItem "CRISTINA2"
ComboBox2.AddItem "GABRIELE"
ComboBox3.AddItem "BERGAMINI"
ComboBox3.AddItem "POLPLASTIC"
ComboBox3.AddItem "ACME SPA"
ComboBox3.AddItem "POLETTO"
ComboBox4.AddItem "PAGHE"
ComboBox4.AddItem "CONTABILITA'"
ComboBox4.AddItem "CONTI1"
ComboBox4.AddItem "CONTI2"
End Sub

Ti ho sistemato il codice.
Mi hanno sempre detto che per imparare più in fretta le cose bisogna
arrivarci da soli; prova a controllare il codice e confrontarlo con il tuo,
ti accorgerai che ti stavi perdento su un bicchier d'acqua.
In caso di problemi fammi un fischio OK?
Private Sub ComboBox1_Click()
For Voce = 4 To 100
If Range("A" & Voce).Text = "" Then
Range("A" & Voce).Value = ComboBox1.Text
ComboBox1.Text = "Data"
Exit For
End If
Next
End Sub
Private Sub ComboBox2_Click()
For Voce = 4 To 100
If Range("B" & Voce).Text = "" Then
Range("B" & Voce).Value = ComboBox2.Text
ComboBox2.Text = "Operatore"
Exit For
End If
Next
End Sub
Private Sub ComboBox3_Click()
For Voce = 4 To 100
If Range("C" & Voce).Text = "" Then
Range("C" & Voce).Value = ComboBox3.Text
ComboBox3.Text = "Ditta"
Exit For
End If
Next
End Sub
Private Sub ComboBox4_Click()
For Voce = 4 To 100
If Range("D" & Voce).Text = "" Then
Range("D" & Voce).Value = ComboBox4.Text
ComboBox4.Text = "Lavoro"


In caso di problemi fammi un fischio OK?
Mammamia dove mi ero perso!
Ti ringrazio moltissimo! e' che sono uno "studente" di vba alle
primissime armi, e mi baso sul "Laboratorio di Vba" della apogeo per
avere gia' qualcosa di concreto in mano... quindi non conosco a dovere
il codice ed ecco che razza di errori si fanno! 
Ho corretto tutto, ora il programma fila bene, anche se ho visto che
funziona sia con il .text o .value abbinati ai range sia senza. E sul
testo era senza... e' indifferente la cosa o cambia effettivamente
qualche parametro alla fin fine?
Credo approfittero' della tua gentilezza (e della tua competenza!)
ancora qualche volta magari in futuro, visto che il codice non e'
ancora pronto e io sono un po' sbadato  :-)
ti ringrazio ancora e ti saluto
daniele

 ha scritto nel messaggio
news:b5hb4ucpj2b19e4gg...@4ax.com...
