Vbaeditor

Hai un problema con Excel?

Nuova discussione

Vbaeditor
di Sbwnco (utente non iscritto) data: 13/09/2010
Ciao, vorrei sapere quale potrebbe essere un metodo per risolvere il mio problema:
-sull'editor di visualbasic di excel ho creato un form che permette di inserire il titolo, l'anno, il regista, la valutazione e il genere di un film in una riga di excel, così da creare una sorta di database dei film che ho visto. voglio anche creare un'opzione che mi permetta di modificare o eliminare tali film e i rispettivi altri parametri annessi a ciascun film...come posso risolvere il problema? grazie :d
Sorry
di Sbwnco (utente non iscritto) data: 13/09/2010
Si, non ho specificato il problema: voglio che eliminando il titolo di un film vengano automaticamente eliminati tutti gli altri parametri annessi!
di Enzo (utente non iscritto) data: 14/09/2010
Puoi come spunto iniziare ad inserire nella userform una combobox(finestra con tendina" dove richiami il valore della cella che vuoi eliminare e una volta trovata la cella con il valore dare istruzione per eliminare la riga

di Enzo (utente non iscritto) data: 14/09/2010
Per entrare piu' nello specifico
inserisci nella tua userform una combobox e un pulsante (commandbutton)
nella combobox inserisci nella propieta' enter la prima istruzione che trovi qui sotto mentre nel commandbutton inserisci l'altra
lui si comporta cosi'
ipotizzando che i titoli dei film siano nella colonna a da a2 in poi premettendo che in a1 tu abbia la descizione della colonna es. "titoli"
cliccando sul combobox ti dovrebbero apparire tutti i titoli, tu scegli quello che ti interessa e successivamente cliccando sul commandbutton dovrebbe trovarti il titolo che hai scelto e cancellarti la riga relativa
presumo che vada bene
devi adattarla allle tue esigenze
prova e fa sapere

Private Sub ComboBox1_Enter()
Range("A2").Select
X = Range("A2").Address
Y = Range("A2").End(xlDown).Address
ComboBox1.RowSource = "" & X & ":" & Y & ""
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
Range("A1").Select
Do
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Value = ComboBox1.Value
End If
Selection.EntireRow.Delete
End Sub

di Enzo (utente non iscritto) data: 14/09/2010
Mi sono accorto di un errore nella istruzione del commandbutton
quella esatta e' questa

If UserForm1.ComboBox1.Text <> "" Then
Range("A1").Select
Do
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Value = ComboBox1.Value
Selection.EntireRow.Delete
End If

di Sbwnco (utente non iscritto) data: 14/09/2010
Si, li ho scritti e funziona! davvero molte grazie! il fatto è che delle istruzioni che mi hai scritto non ho capito alcune cose, se puoi spiegarmele:
-la sintassi con x e y è specifica dei combobox o sono variabili (ipotesi che non facevo dato che non sono dichiarate)?
-combobox1.rowsource cosa fa esattamente?
:d

Vuoi Approfondire?