Userform : automatizzare l'inserimento dati in ordine cronologico
Lukas
2010! :)
Inizio l' anno purtroppo con già un problema e cerco di spiegarmi
meglio che posso:
Ho un file di excel nel quale ho praticamente sulla prima colonna il
mese (gennaio , febbraio ecc) nella seconda colonna il giorno e nella
terza colonna gli appuntamenti.
Ora .. ho creato una semplice Userform con due combobox (per il mese e
il giorno) e una casella di testo per la descrizione dell'
appuntamento. La mia intenzione sarebbe:
- a seconda del mese che seleziono nella prima combobox individua già
il range di righe dove inserire il nuovo appuntamento
- a seconda del giorno che seleziono nella prima combobox individua
esattamente in che posizione cronologica inserire il nuovo
appuntamento
Ho provato inutilmente a inserire delle semplici IF nelle combobox ma
appena scrivo anche una singola riga di codice in uno degli elementi
della Userform non mi scrive piu nulla nel foglio .. nemmeno lo scrive
in una riga casuale o nella prima ... niente non mi scrive proprio
nulla .. potete aiutarmi ?
Scossa
> Ciao a tutti e approfitto dell' occasione per augurare un Buon Anno
> 2010! :)
Buon anno anche a te!
> Ho provato inutilmente a inserire delle semplici IF nelle combobox ma
> appena scrivo anche una singola riga di codice in uno degli elementi
> della Userform non mi scrive piu nulla nel foglio .. nemmeno lo scrive
> in una riga casuale o nella prima ... niente non mi scrive proprio
> nulla .. potete aiutarmi ?
Vedere codice, potere (forse) aiutare :-)
Bye!
Scossa
Mauro Gamberini
il giorno) e una casella di testo per la descrizione dell'
appuntamento. La mia intenzione sarebbe:
- a seconda del mese che seleziono nella prima combobox individua gi�
il range di righe dove inserire il nuovo appuntamento
- a seconda del giorno che seleziono nella prima combobox individua
esattamente in che posizione cronologica inserire il nuovo
appuntamento
*******************************************
Sembra un lavoro inutile.
Inserisci nella prima riga vuota
e poi riordina per le due colonne.
--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/excelit/threads/
Mauro Gamberini
Comunque, UserFor con due ComboBox,
una TextBox ed un pulsante di conferma
(come da tuo esempio).
Foglio1 del file con tre colonne con
intestazione(A1/B1/C1 nome campi).
Questo il codice della UserForm:
Private Sub CommandButton1_Click()
'dichiaro le variabili
Dim wk As Workbook
Dim sh As Worksheet
Dim lNuovaRiga As Long
'metto un riferimento al Workbook
'che contiene la macro
Set wk = ThisWorkbook
With wk
'metto un riferimento al Foglio1
'(in questo caso specifico � sul
'Foglio1 che eseguo le operazioni)
Set sh = .Worksheets("Foglio1")
End With
With sh
'passo i valori alla tabella
lNuovaRiga = .Range("A" & _
Rows.Count).End(xlUp).Row + 1
.Cells(lNuovaRiga, 1).Value = _
Me.ComboBox1.Text
.Cells(lNuovaRiga, 2).Value = _
Me.ComboBox2.Text
.Cells(lNuovaRiga, 3).Value = _
Me.TextBox1.Text
End With
'chiamo la routine per il riordino
Call mOrdina(sh)
'Set a Nothing delle variabili oggetto
Set sh = Nothing
Set wk = Nothing
End Sub
Private Sub mOrdina(ByRef sh As Worksheet)
With sh
.Range(.Range("A1").CurrentRegion.Address).Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlYes
End With
End Sub
Il file utilizzato per l'esempio lo trovi pi� tardi qui:
http://www.maurogsc.eu/esemping10/inserisciordina.zip
Mauro Gamberini
<cut>
Ho aggiunto il caricamento delle due
ComboBox(anche nel file sul sito):
'evento scatenato all'avvio della UserForm
Private Sub UserForm_Initialize()
'dichiaro una variabile
Dim lng As Long
'popolo la ComboBox1 con i mesi
For lng = 1 To 12
Me.ComboBox1.AddItem lng
Next
End Sub
'evento scatenato quando seleziono
'un mese e carico i numeri di giorni
'corrispondenti al mese
Private Sub ComboBox1_Click()
'dichiaro una variabile
Dim lng As Long
'pulisco la ComboBox2
Me.ComboBox2.Clear
Select Case Me.ComboBox1.Value
'se ho selezionato uno dei
'seguenti mesi
Case 1, 3, 5, 7, 8, 10, 12
'carico 31 giorni nella
'ComboBox2
For lng = 1 To 31
Me.ComboBox2.AddItem lng
Next
'se ho selezionato uno dei
'seguenti mesi
Case 4, 6, 9, 11
'carico 30 giorni nella
'ComboBox2
For lng = 1 To 31
Me.ComboBox2.AddItem lng
Next
'se ho selezionato il 2(febbaio)
'controllo se � o meno bisestile
'per avere 28 o 29 giorni; qui
'l'anno lo passo alla funzione
'da codice ma potrebbe essere
'in una cella o estratto dall'anno
'corrente
Case 2
For lng = 1 To fBisestile(2010)
Me.ComboBox2.AddItem lng
Next
End Select
End Sub
'passo l'anno alla funzione
'che mi restituisce i giorni
'di febbraio
Public Function fBisestile( _
ByVal v As Variant) _
As Long
On Error GoTo RigaErrore
Dim dFeb29 As Date
fBisestile = 29
v = "29/02/" & v
dFeb29 = v
Exit Function
RigaErrore:
fBisestile = 28
End Function
Private Sub CommandButton1_Click()
End Sub
'ordino la tabella per le prime
'due colonne, prima per A, poi per B e
'le colonne hanno un' intestazione a riga 1
.Range(.Range("A1").CurrentRegion.Address).Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlYes
End With
End Sub
--
Mauro Gamberini
> Case 4, 6, 9, 11
> 'carico 30 giorni nella
> 'ComboBox2
> Me.ComboBox2.AddItem lng
> Next
con:
Case 4, 6, 9, 11
'carico 30 giorni nella
'ComboBox2
For lng = 1 To 30 '<<<=====
Me.ComboBox2.AddItem lng
Next
Sorry.
Lukas
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> <cut>
Ostreghetta..il codice che avevo allora era giusto ma sbagliavo
proprio la parte che riporta i valori delle celle riordinandole !
FANTASTICO ! Come sempre fantastico !
Per la cronaca..a me non era inutile nel senso che volevo
automatizzare la cosa rendendola piu semplice perchè finchè aggiungo
io e dati ok.. ma se ci lavora poi un' altra persona viene su un
macello .. così era a prova di novello :)
Grazie mille come sempre perfetto, preciso e velocissimo!
Grazie ancora e Buon Lavoro a tutti !
Grazie anche a te Scossa la prossima volta provvedo a inserire prima
l' intero codice! :)
Luca
Mauro Gamberini
> Grazie ancora e Buon Lavoro a tutti !
>
Grazie a te per il gentilissimo riscontro.
Buon lavoro a te.
Lukas
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> <cut>
Solo un' ultima cosa se possibile .. quando inserisce la riga la
inserisce dove trova la prima riga vuota ..
.. ma posso impostare il range all' interno del quale dovrà essere
inserita la riga? :)
Grazie mille ancora!
Luca
Mauro Gamberini
inserisce dove trova la prima riga vuota ..
inserita la riga? :)
********************************************
S�.
Puoi essere pi� preciso con un esempio?
Grazie.
Lukas
Ho un foglio di excel dove ho due righe di intestazione che sono fisse
(chiamiamola barra dei menù dove c'è scritto il tipo di dati della
colonna, come Mese, Giorno , Appuntamento ecc) e dove dispongo
successivamente 50 righe compilabili per ogni mese.
Quindi selezionando il mese nella ComboBox1
Private Sub UserForm_Initialize()
'dichiaro una variabile
Dim lng As Long
'popolo la ComboBox1 con i mesi
For lng = 1 To 1
Me.ComboBox1.AddItem "Gennaio"
Me.ComboBox1.AddItem "Febbraio"
Me.ComboBox1.AddItem "Marzo"
Me.ComboBox1.AddItem "Aprile"
Me.ComboBox1.AddItem "Maggio"
Me.ComboBox1.AddItem "Giugno"
Me.ComboBox1.AddItem "Luglio"
Me.ComboBox1.AddItem "Agosto"
Me.ComboBox1.AddItem "Settembre"
Me.ComboBox1.AddItem "Ottobre"
Me.ComboBox1.AddItem "Novembre"
Me.ComboBox1.AddItem "Dicembre"
Next
End Sub
dovrei gia individuare in quale range di 50 righe il mio appuntamento
si andrà ad inserire o meglio ancora semplicemente compilare senza
inserimenti.
Così poi con la ComboBox2 nella quale seleziono i giorni del mese
Select Case Me.ComboBox1.Value
Case "Gennaio", "Marzo", "Maggio", "Luglio", "Agosto",
"Ottobre", "Dicembre"
For lng = 1 To 31
Me.ComboBox2.AddItem lng
Next
Case "Aprile", "Giugno", "Settembre", "Novembre"
For lng = 1 To 30
Me.ComboBox2.AddItem lng
Next
Case "Febbraio"
For lng = 1 To fBisestile(2010)
Me.ComboBox2.AddItem lng
Next
End Select
andrò a riordinare cronologicamente solo il mese in questione
Private Sub riordina(ByRef sh As Worksheet)
With sh
.Range(.Range("B1:B20").CurrentRegion.Address).Sort _
Key1:=Range("B1:B20"), Order1:=xlAscending, _
Header:=xlYes
End With
End Sub
L'inserimento di riga puo essere sostituito in egual modo da un
semplice inserimento di dati (compilazione) nella prima riga libera
del mese selezionato quindi?
Perchè se io inserisco questo codice :
lNuovaRiga = .Range("A" & _
Rows.Count).End(xlUp).Row + 1
.Cells(lNuovaRiga, 1).Value = _
Me.ComboBox1.Text
.Cells(lNuovaRiga, 2).Value = _
Me.ComboBox2.Text
.Cells(lNuovaRiga, 3).Value = _
Me.TextBox1.Text
ovvio che mi va a compilare sotto l' ultima cella scritta della
colonna A ..
Grazie mille ancora per l' attenzione! :)
Luca
Mauro Gamberini
>
Forse ti faccio perdere tempo, ma...
...mi viene spontanea una domanda.
Ma perch� non utilizzi una data e basta?
Se in colonna 1 ho la data, posso rappresentarla
come: gg/mm/aaaa gggg.
A questo punto se riordino la colonna sono a posto.
Per inserire una data in colonna 1, potrei utilizzare
il Controllo Calendario(legato alla versione di Excel)
o una TextBox da validare
(Roberto e le *sue* RegularExpression)
oppure una serie di ComboBox.
Inoltre, scusa la domanda, ma come lo hai impostato
tu lavora solo sul singolo anno, no?
L'inserimento che chiedi tu implica una ricerca nella
tabella e, se ho capito bene, � limitata a 50 immissioni
e comunque ho 50 righe occupate con o senza dati.
Non mi sembra il massimo. Quello che ti propongo
� dinamico, non � legato a n eventi o all'anno
specifico(anno che non vedo mai riportato nel
tuo esempio).
Sto cercando di ragionare. Vedi anche tu,
prima di continuare il tuo lavoro, se non
� il caso di ripensarlo.
Altrimenti proviamo quanto hai chiesto.
Ma forse davvero non ho capito.
Dai anche un'occhiatina qui:
http://www.riolab.org/index.php?option=com_content&view=article&id=182:calendario-planning-in-excel&catid=47:excel&Itemid=68
e non ricordo se nel sito di Fernando:
http://www.prodomosua.eu/ppage02.html
c'era qualcosa a riguardo
Giusto per avere qualche idea in pi�.
Lukas
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> > Cerco di essere il pi chiaro che posso :
> cut <
Ciao Mauro,
ho capito cosa vuoi dire :D
..allora uppo questo file di prova così forse riesco a far capire le
mie intenzioni ..
http://www.megaupload.com/?d=7XJKOY5P
qui trovi il file .. come vedi il mio problema è che tramite l'
userform .. non riesco a dirgli che in base alla selezione del mese la
riga va compilata da A6 ad A10 oppure da A19 ad A23
..anzi direi proprio che non riesco a dare alla compilazione nessun
tipo di range.
Questa versione semplificata direi che rende l' idea diciamo del mio
piccolo problema :)
Lascia stare la sub ordina che andrebbe impostata su ogni mese ma per
l' esempio va bene così :D
Se poi sta nell' inserire una data in formato "data" no problem
naturalmente .. o se è il caso di riformare la struttura del foglio
magari hai qualche consiglio che mi puo aiutare ..
Grazie mille ancora della tua attenzione
Luca
Lukas
Ciao a tutti ,
niente da fare , ho provato tramite la modifica di questo codice
lNuovaRiga = .Range("A" & _
Rows.Count).End(xlUp).Row + 1
.Cells(lNuovaRiga, 1).Value = _
Me.ComboBox1.Text
.Cells(lNuovaRiga, 2).Value = _
Me.ComboBox2.Text
.Cells(lNuovaRiga, 3).Value = _
Me.TextBox1.Text
a dare un range diverso, ma se pur tenendo la colonna A modifico le
rows non mi va piu alla prima riga vuota ma alla riga che scrivo.. :
(
me tapino .. forse chiedo troppo a excel ? :)
Luca
Mauro Gamberini
> rows non mi va piu alla prima riga vuota ma alla riga che scrivo.. :
> (
> me tapino .. forse chiedo troppo a excel ? :)
>
Forse chiedi troppo a Lukas... ;-)
Vedi qui:
http://www.maurogsc/prove/copia.zip
Il codice aggiunto � commentato.
Fai sapere se va bene, grazie.
--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
Mauro Gamberini
> http://www.maurogsc/prove/copia.zip
>
Opsss, manca un pezzo di indirizzo:
Vedi qui:
http://www.maurogsc.eu/prove/copia.zip
Lukas
Oddio..ma..come..qual è il tuo segreto? ma come cavolo .. ma ..
.. guarda è perfetto .. ora me lo studio per bene perchè stavolta non
ho mica ben capito come cavolo hai fatto :)
Davvero fantastico..non hai bisogno di allievi o volenterosi
apprendisti vero ? :D :D
..perfetto Mauro davvero OTTIMO !
guarda se passo per Cento dato che sono a due passi ti offro un
caffè! :D
Grazie Mille a presto !
Luca
Mauro Gamberini
Contentissimo che tu abbia risolto!
Se ci sono problemi sempre con lo stesso
file, chiedi sempre in questo thread.
Grazie per il riscontro e buon lavoro.
Lukas
Ciao a tutti ,
..mauro dirai *ma ancora???* :D
...in effetti un problema l'avrei .. quando gli do giustamente
l'ordine crescente dei numeri dei giorni ... lui mi mette ovviamente
1
10
11
12
20
21
22
3
ovviamente ... ma non riesco a fargli mettere lo 0 davanti ai numeri
sotto la decina ... :(
scusate ancora e grazie per l'ennesima attenzione :)
Luca
Mauro Gamberini
> ...in effetti un problema l'avrei .. quando gli do giustamente
> l'ordine crescente dei numeri dei giorni ... lui mi mette ovviamente
>
> 1
> 10
> 11
> 12
> 20
> 21
> 22
> 3
>
> ovviamente ... ma non riesco a fargli mettere lo 0 davanti ai numeri
> sotto la decina ... :(
> scusate ancora e grazie per l'ennesima attenzione :)
>
Perch� li legge come testo e non come numeri.
Formatta adeguatamente le celle.
Mauro Gamberini
Partito un colpo....
Se lo stai facendo da codice,
questo formatta il testo contenuto
nella cella con uno 0 davati per i numeri
da 1 a 9.
(Utilizzo ActiveCell a solo scopo dimostrativo
sulla cella attiva per l'esempio. Tu modificherai
per il/i Range interessato/i)
Public Sub m()
ActiveCell.NumberFormat = "0#"
End Sub
La cosa non suusisterebbe se i numeri
fossero tali e non testo.
Lukas
<cut>
ehm .. con le guance rosse la coda fra le gambre e il capo chino ..
chiedo scusa per la domanda indecorosa la ritiro e ti lascio al tuo
lavoro :)
Scusa di nuovo grazie mille per la pazienza stavolta :D
Luca
Lukas
> <cut>
Ciao :))
imperterrito continuo a rompere le scatole :D
..c è un modo per applicare piu filtri allo stesso foglio?
perchè se io scrivo :
Sub Macro3()
ActiveSheet.Range("$F$9:$F$58").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F67:$F$106").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$115:$F$164").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$173:$F$222").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$231:$F$280").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$289:$F$338").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$347:$F$396").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$405:$F$454").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$463:$F$512").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$521:$F$560").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$569:$F$618").AutoFilter Field:=1,
Criteria1:="<>"
ActiveSheet.Range("$F$627:$F$676").AutoFilter Field:=1,
Criteria1:="<>"
End Sub
lui applica un solo filtro..il primo ..
e poi guarda tanto che ci sono...
..se metto una combobox dove ci sono i numeri da 1 a 1000
corrisponderanno poi alla riga che andrò a ripulire .. come imposto
che il risultato della combobox sarà il numero della riga da
ripulire ?
E tanto che ci sono :D
la stessa selezione della combobox come la posso mettere come criterio
di filtro? :D
poi direi che non rompo piu nessuno dai :)
Grazie mille ancora :)))
Luca
Mauro Gamberini
>
Prima o poi passo in moto da Formiggine,
e vedr� di farlo all'ora di pranzo...;-)
..c � un modo per applicare piu filtri allo stesso foglio?
perch� se io scrivo :
****************************************
Contemporaneamente, no.
Puoi per�, nelle versioni pi� *nuove* di Excel,
utilizzare le Tabelle.
Esempio per Excel 2007.
Seleziona il primo Range
Ribbon(tab/scheda/linguetta): Inserisci
Click su: Tabella
Seleziona il secondo Range
Click su: Tabella
ecc.
In pratica ho trasformato i Range via via selezionati
in un oggetto ListObject(in pratica un oggetto tabella).
Se volessi filtrare due tabelle adesso
scriverei questo codice:
Public Sub ()
With ActiveSheet
.ListObjects("Tabella1").Range.AutoFilter Field:=1, Criteria1:=
"Pippo"
.ListObjects("Tabella2").Range.AutoFilter Field:=1, Criteria1:=
"Pluto"
End Wirh
End Sub
(tieni sempre presente che utilizzo ActiveSheet
per semplificare il codice per *questo* esempio)
Mauro Gamberini
Aggiungo.
Puoi anche creare da codice le tabelle.
Devi ovviamente gestire i nomi controllando
non siano gi� presenti:
Public Sub m()
With ActiveSheet
.ListObjects.Add(xlSrcRange, Range("A1:C6"), _
, xlYes).Name = "miaTabella"
End With
End Sub
Questo crea una tabella chiamata miaTabella per
il Range A1:C6(anche qui solito discorso
per ActiveSheet, usato nell'esempio *solo*
per comodit�).
L'ho fatto in Excel2003. Non mi ricordo se
ExcelXP(2002) lo supporta.
Lukas
> cut <
Ciao Mauro !
ok ok capito perfetto con le tabelle va benissimo anzi puo andare
davvero perfettamente .. e tranquillo ActiveQuiQuoQua cerco di usarlo
il meno possibile :D
per le altre domande invece provo intanto ad arrangiarmi ma
evidentemente mi sfugge una parte di codice perchè non fa proprio
proprio ciò che vorrei io :D
formiggine ? ma non lavori a cento ? :D
Intanto Grazie mille problema risolto per il filtro :) se ti vengono
in mente idee sulle altre domande .. beh io sono qui .. e intanto
proseguo in questa Opera Omnia :D :D
Luca
Mauro Gamberini
per le altre "semplici" domande invece provo intanto ad arrangiarmi
piu che posso ma evidentemente c' � una parte del codice che proprio
mi sfugge perch� non fa proprio proprio ci� che vorrei io :D
a formiggine? credevo lavorassi a cento :D
Beh grazie mille per ora, continuo intanto questa opera Omnia :D :D
*****************************************************
Siamo (quasi)sempre qui.
Resta nello stesso thread cos� si
capisce di cosa stiamo discutendo.
Grazie.
Mauro Gamberini
in mente idee sulle altre domande .. beh io sono qui .. e intanto
proseguo in questa Opera Omnia :D :D
Opsss, quali?
Scusa ma non ricordo e vorrei
non rileggere il *romanzo* di tutti
i post in questione. Grazie
--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
Lukas
e poi guarda tanto che ci sono...
..se metto una combobox dove ci sono i numeri da 1 a 1000
corrisponderanno poi alla riga che andrò a ripulire .. come imposto
che il risultato della combobox sarà il numero della riga da
ripulire ?
E tanto che ci sono :D
la stessa selezione della combobox come la posso mettere come criterio
di filtro? :D
o come posso dire che la scritta di una textbox è un collegamento
ipertestuale (internet o magari anke locale)
:D :D
Mauro Gamberini
..se metto una combobox dove ci sono i numeri da 1 a 1000
che il risultato della combobox sar� il numero della riga da
ripulire ?
******************************************
Questo pulisce tutta la riga passata con la ComboBox
(intendo il numero di riga):
NomeDelFoglio.Rows(Clng(Me.ComboBox1.Text)).ClearContents
E tanto che ci sono :D
la stessa selezione della combobox come la posso mettere come criterio
di filtro? :D
****************************************
........... Criteria:= Me.ComboBox2.Text
Se intendi passare come criterio la voce selezionata
nella ComboBox.
Lukas
o come posso dire che la scritta di una textbox è un collegamento
ipertestuale (internet o magari anke locale)
:D :D
Questa domanda forse te l' eri persa :P
guarda poi tanto che ci sono guarda che domanda che ti aggiungo..
UserForm per Inserire a sua volta ulteriori oggetti in un'altra
combobox? :))
Grazie mille !!
Luca
Lukas
Ok il collegamento in locale non mi serve piu ho risolto
diversamente .. almeno :))
e per quanto riguarda internet non ho proprio molta spinta a usare
Office SharePoint ..
Vabbè ..
Luca