label indicizzata

Hai un problema con Excel?

Nuova discussione

label indicizzata
di Agio80 (utente non iscritto) data: 13/09/2013 23:30:23
Buonasera a tutti

Sono nuovo del forum e nuovo anche nell'utilizzo di vba, quindi vi prego di perdonarmi per le mie domande sicuramente banali.
Vengo al dunque... Io vorrei indicizzare le label (ne ho circa 15), nel senso all'evento click di un cmdbutton, io vorrei assegnare alle label di un form, cio' che è scritto nelle celle di "foglio1". di seguito il codice da me elaborato:
Sheets("Foglio1").Select
Range("$AA$1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Range("A2").Select
ActiveSheet.Paste
Inserimento.Caption = "Inserisci dati"
For i = 1 To 15
Userform1.Controls("Label" & (i)) = Cells(2,i).value
next i
Mi dice impossibile trovare l'oggetto specificato e mi evidenzia questa riga:
Userform1.Controls("Label" & (i)) = Cells(2,i).value
Dove sbaglio? Mi date qualche dritta?

Grazie di tutto
di Agio80 (utente non iscritto) data: 14/09/2013 08:33:38
nessuno mi aiuta??????? :(
di Vecchio Frac data: 14/09/2013 09:09:28
Hai iniziato ieri sera tardi, hai riscritto poco fa alle 8.30, un po' di pazienza ^_^
Verifica che:
1) esista sul form una label che si chiama "Inserimento"
2) sul form esistano tutte le altre etichette specificate dal ciclo For
3) tutte abbiano un nome che comincia con "Label" seguito dai numeri da 1 a 15

Infine:
4) semplifica tutto quel giramento di select, cut e paste ^_^
di Agio80 (utente non iscritto) data: 14/09/2013 09:39:54
Hai ragione vecchio frac, scusa la mia impazienza....

Grazie al tuo consiglio ho risolto.... l' inghippo era sui nomi delle label, non avevano i nomi da 1 a 15, tuo suggerimento nr 3.

Ora se posso approfittare della tua disponibilta' volevo capire come semplificare il giramento select,cut e paste..... scusami ma e' solo da un mesetto che mi sono avvicinato a vba.

Grazie ancora
di Vecchio Frac data: 14/09/2013 10:08:43
Come regola generale, per le operazioni sulle celle non è necessario pre-selezionarle, puoi agire su di esse semplicemente con un riferimento. A meno che tu non voglia proprio evidenziare una certa cella. E questo accelera anche un po' le operazioni.
Tutto il codice che hai scritto prima di "Inserimento.Caption" si può condensare in un'unica riga.
Sheets("Foglio1").Range(Range("$AA$1"), Range("$AA$1").End(xlToRight)).Cut Range("A2")
di Grograman (utente non iscritto) data: 15/09/2013 00:58:02
Come regola specifica invece; quando si parla di userform e controlli allegare un file di esempio sempre e comunque aiuta per una più rapida soluzione
di Agio80 (utente non iscritto) data: 15/09/2013 08:39:27
Grazie vecchio frac..... risolto.
Per Grogram per le prossime seguirò il tuo consiglio

Vuoi Approfondire?