Maledetto modulo vba

Hai un problema con Excel?

Nuova discussione

Maledetto modulo vba...
di Icaro (utente non iscritto) data: 22/04/2012
Salve.
per poter accelerare la compilazione delle righe di questo file, ho cercato di creare un modulo che, nel momento che immetto una targa nella colonna c, automaticamente mi restituisca la data/ora (che non si deve aggiornare giorno dopo giorno, ma restare congelata) nella colonna b.
ho fatto così:
alt+f11

nuovo modulo
function dataoggi(cella as range)
dataoggi = now
end function

e poi, in b2

=se(c2<>"";dataoggi(b2);"")

solo che così, nel foglio2, tutti i riferimenti e i collegamenti che erano stati creati cn il foglio1, sono saltati.
cioè, se vado sul foglio2 mi escono solo zeri e non più i valori corrispondenti prelevati dal foglio1.
dove sbaglio?
grazie a chi vorrà aiutarmi!
allego file

di Xxx (utente non iscritto) data: 23/04/2012
Ciao

non puoi usare una udf per fare questo lavoro perche'

function dataoggi(cella as range)
dataoggi = now
end function

cosi' e come scrivere la funzione adesso() il problema che si aggiorna sempre quindi ogni momento avrai la data e l'ora aggiornata,
devi inserire nel foglio1 la seguente macro posta sotto, la quale se tu cambi la cella in c se in b e vuota inserisce la data e l'ora o se annulli in c annulla anche in b.

altra cosa nel foglio2 come fai a prendere i dati senza un riferimento?? di ricerca
per mio conto servirebbe una macro per questo tipo di lavoro!! damani ci penso e lavorero' sul tuo file se riesco a capire il tutto

ciao

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Dim Riga
Riga = Target.Row
 If Target = "" Then
   Cells(Riga, "B") = ""
 Else
   If Cells(Riga, "B") = "" Then Cells(Riga, "B") = Now
 End If
End Sub

di Icaro (utente non iscritto) data: 23/04/2012
Sono commosso...
grazie, anche solo della tua attenzione.
di Xxx (utente non iscritto) data: 23/04/2012
Ciao

dai un'occhiata se puo' andare

ciao
di Icaro (utente non iscritto) data: 23/04/2012
Mostruoso!
addirittura anche il prezzo al litro e i litri!
quello che avrebbero dovuto scrivere a penna, volta per volta, gli operatori incaricati del rifornimento!
gli ho dato una scorsa veloce ed ansiosa.
ora me lo studio meglio e ti fò sapere.
un grazie grande grande.
grande!
di Icaro (utente non iscritto) data: 23/04/2012
Carissimo xxx,
il tuo file mi ha aperto un mondo che prima non potevo vedere. o meglio, ora lo vedo, ma non sono capace di arrivarci.
ho provato a capire il tuo lavoro, ma mi arrendo... siamo su livelli totalmente diversi, mannaggia.
la genialata tua sta nel riportare anche, in automatico, prezzo al litro e litri erogati.
in verità, quello lo scrivono gli addetti al rifornimento al momento. dove abito io, variano il prezzo del carburante con una facilità estrema. mi son dimenticato di dirti che quei campi verrebbero compilati a penna. non mi è possibile pre-compilarli in quanto non conosco il prezzo al l. di ogni giorno.
avevo pensato di inserire solo successivamente, una volta riavuta la ricevuta del buono che stamperei nel foglio2, il prezzo euro al litro ed i km al momento del rilevamento (ho aggiunto un campo roso nel foglio2).
ed in automatico, tutti gli altri dati si dovrebbero auto-compilare.
tu mostruosamente me li hai già riempiti quei campi!
ma non è stato un lavoro inutile.
ti chiedo, è possibile riportare quei dati su un altro foglio di lavoro(ti allego il file) in maniera tale da ottenere, più o meno, il consumo in litri-consumo in euro-km percorsi annui di ogni singola auto in un anno (ma aggiornato, rifornimento dopo rifornimento)?
ogni foglio lo chiamerei, ta01, ta02 etc.
xxx, tu sei già stato infinito a fornirmi la dote del tuo intelletto; se ritenessi di non dare seguito a questo invito, ti comprenderei e ti ringrazio comunque di quello che hai fatto fino ad ora. che non è stato affatto poco.
grazie, xxx.
di Xxx (utente non iscritto) data: 24/04/2012
Ciao

ti ho creato una macro, la quale aggiunge dati in ogni singola e specifica scheda
da come vedrai, io ho creato 3 schede col nome delle targhe dei veicoli,dato che questi dati sono univoci e quindi mi e' venuto piu' semplice ricavarli dalla scheda di stampa,visto che partono con delle sigle e dopo uno spazio hai inserito il numero di targa,questi deve essere sempre fatto in questo modo, pero' ricordati che per ogni veicolo che gestirai dovrai creare la sua scheda con le intestazioni in riga1 e 2 uguali, vedi le mie,

per i calcoli di statistica ho lasciato a te il divertimento di inserirli, come sai fatto una scheda le hai fatte tutte

ciao
di Xxx (utente non iscritto) data: 24/04/2012
Ps
mi sono dimenticato di dirti che il listino carburante lo puoi aggiornare giorno x giorno in scheda dati alla colonna t cuesto l'avevo gia' incluso dato che un mio amico fa il benzinaio e queste cose me le ha dette sui prezzi che variano giornalmente

ciao
di Icaro (utente non iscritto) data: 24/04/2012
è superfluo dirti che ti sono grato per il tuo interessamento.
hai la capacità di tramutare in codici quello che ti viene richiesto.
se quello che ti viene richiesto ti fosse spiegato a modino.
il problema più grosso da risolvere sono io, eh eh eh
già dal mattino alle ore 7,00, gli addetti che vengono a ritirare i veicoli chiedono, se necessario, un buono carburante.
il mattino, io non so a quale prezzo/litro hanno deciso di vendere il loro carburante i nostri fornitori.
a complicare il tutto, i fornitori di carburante sono diversi, ed ognuno vende al proprio prezzo.
per questo motivo, avrei bisogno che, al momento del ritiro del buono carburante da parte dei nostri addetti, io possa stampare immediatamente la scheda che tu hai nominato s_buoni, ma con i campi:rilev.km--prezzo al l.--litri erogati vuoti.
ci penserà l'addetto a compilarli a penna, secondo il fornitore da cui farà rifornimento ed in quel momento.
nel frattempo, tutti i dati presenti nella scheda stampata, tranne quelli che ti ho elencato prima che ancora non conosco, dovrebbero andare a compilare una corrispondente riga nel foglio relativo del veicolo ta01, ta02 etc.
che sono quelle che tu hai nominato per targa; le targhe non sono tutte sequenziali ed a noi verrebbe più comodo ta01, ta02, etc, che sono i codici ai quali corrispondono le vetture relative.
la riga creata nel foglio relativo al veicolo, conterrà quindi, per il momento, solo i dati relativi a: codice bc (ora, nel tuo file, risulta la targa e non il codice)--data rilascio bc--€ rifornimento; tutti dati che ha preso già in automatico nel momento della compilazione/ rilascio/stampa del buon carb..
e tale riga dovrebbe restare in stand-by, insieme a tutte le altre che, di seguito, dovessi sfornare in mattinata per ogni foglio/auto, fino a che non ritorno successivamente ad inserirci i dati scritti a penna dai nostri addetti una volta che gli stessi mi restituiranno il buon c. compilato con: prezzo al litro (ed automaticamente dovrebbe darmi i litri erogati), e rilevam. km al momento del rifornimento (ed automaticamente dovrebbe darmi: km totali annui)
euro totali di spesa carburante annui dovrebbe essermi restituita dalla somma della colonna c: euro/rifornimento.
oppure, dovrei avere la possibilità di richiamare la scheda incompleta lasciata in s_buoni con quei campi vuoti per finire di compilarla successivamente, per poter utilizzare la macro conferma inserimento dati in memoria che tu hai creato.
tenuto conto che, nel corso della mattinata, dovrò comunque continuare a stampare altri buoni carburanti nella medesima maniera.
quindi anche qui occorrerebbe una funzione di richiamo.

mi rendo conto che le richieste sono complicate, tante e forse anche spiegate male; e che hai altro a cui dedicare il tuo tempo.
ed io non so se posso chiederti altro...
ti saluto caramente.
francesco
di Xxx (utente non iscritto) data: 24/04/2012
Ciao

adesso puoi richiamare tramite la cella g3 una scheda gia' stampata in precedenza e salvare i suoi dati

ora il prezzo va inserito manualmente scheda per scheda e il relativo km

per salvare i dati in ogni scheda relativa all'automezzo devi inserire obbligatoriamente il prezzo del carburante e i km percorsi altrimenti non salva i dati, questi si possono salvare solamente una volta
ps in s_buoni potrai scivere solo dove le celle sono gialle, fai delle prove

per il resto lascio a te il divertimento dei calcoli dato che non ci sono ancora inseriti dati per sviluppare le formule

ciao
di Icaro (utente non iscritto) data: 25/04/2012
Ora ho capito chi sei!
giù la maschera, mandrake!
è esattissimamente quello che volevo.
no comment...
ora devo "semplicemente" copiare, ad. es, il foglio ta01, ri-nominarlo ta04, ta05, etc fino a ta50 per tutti i 50 veicoli dell'autoparco, e nel modulo vba di ta01 dovrei operare delle modifiche, rispettivamente, su...?
ho provato a fare mille prove, ma va in debug...
grazie ancora
di Icaro (utente non iscritto) data: 08/05/2012
@xxx
mi sono applicato, le ho provate tutte.
ma ogni volta esce un problema sul tuo ottimo foglio di excel.
ho bisogno del tuo aiuto, xxx.
hai fatto un ottimo lavoro, e non sono capace di completarlo.
sono disposto a ringraziarti, e non solo a parole.
la mia mail: inesfra1963@gmail.com
grazie
di Xxx (utente non iscritto) data: 08/05/2012
Ciao icaro

prova a dare uno sguardo al file allegato se fino a questo punto puo' andar bene

ciao

fai sapere
per la meil ci sentiamo
di Icaro (utente non iscritto) data: 08/05/2012
Grazie xxx per avermi risposto!
ora sto uscendo,domani lo testo.
ma conoscendoti, presumo vada già bene.
la mia mail la hai.
domani ti faccio sapere.
di Icaro (utente non iscritto) data: 09/05/2012
A parte qualche insignificante particolare di cui non posso accennare in quanto riguarda alcuni dati sensibili, il programma fa esattamente quel che volevo.
contattami, che provo a dare un senso al tuo impegno.
mi pare il minimo.
grazie, soprattutto, per avermi già offerto la soluzione da subito.
di Icaro (utente non iscritto) data: 11/05/2012
Il programmino è completo.
il capo ha "elargito" il suo "ok".
da lunedì inizia in ufficio la fase di sperimentazione in parallelo con la procedura obsoleta solita.
i colleghi mi ringraziano; ed altrettanto avrei avuto piacere di fare con con chi, senza il quale, questo programma sarebbe ancora impantanato in (a me) inaccessibili grovigli di formule.
grazie forum.
e, soprattutto, grazie, anonimo geniale programmatore.
grazie xxx.
francesco
di Xxx (utente non iscritto) data: 12/05/2012
Ciao francesco

sono contento di essere stato utile, e che l'aiuto sia stato una cosa valida
sinceramente ti dico che io mi diverto quando ci sono da fare queste cose utili, che servono per il lavoro, in quanto, ridendoci sopra, da parte mia sono nato stanco e tutto quello che serve per lavorare meno ma essere piu' veloci ad esequire un qualc'osa in meno tempo lo sviluppo volentieri.

comunque il programmino per mio conto manca ancora di molti particolari,se dovessi usarlo io, per esempio, non so se questo tu lo abbia gia' incluso dato che bisogna farlo avendo a disposizione dati gia' caricati,lo scarico automatico dei buoni benzina dati a quel veicolo quando tu confermi la stampa del cedolino l'avvenuta eliminazione di quel numero, e altro ancora,
si intende che queste cose vengono fatte in ambito di un programma o foglio professionale dove il tutto deve essere automatizzato e l'intervento dell'operatore deve essere fatto su pochi parametri

ciao da xxx

ps se hai problemi fai sapere
di Icaro (utente non iscritto) data: 13/05/2012
Nato stanco lo sono anche io, ih ih ih
ma tu aspettati una vertenza sindacale dal tuo cervellino per gravosi e vessatori carichi lavorativi...
di professionale il fogliettino excel c'ha giusto le cose che hai aggiunto tu...
quello fatto da me è da primo livello "base".
provo a procedere con la sperimentazione, che ho voluto razionalmente effettuare prima di ogni utilizzo continuativo e consolidato. per, come giustamente dici, verificarne le lacune o criticità.
spero di non doverti più scocciare, anche perchè, adesso, il file è stato caricato con tutta una serie di dati sensibili che, per ragioni a te note, non potrò più postare sul forum.
ma sapere che ci sei, mi conforta non poco.
oh, non ci (mi) abbandonare, eh eh eh eh
di Icaro (utente non iscritto) data: 15/05/2012
Come ho fatto a dimenticarlo.
attualmente, almeno una 10-15 buoni carburanti non rientrano per sbadataggine degli addetti. si è rivelato efficacissimo affiggere in bacheca l'elenco di quelli non rientrati, con tanto di nome conducente e dati vari per la univoca individuazione.
a mano era facile: si vedeva dove mancava la firma di riconsegna degli addetti, foglio a4/pennarello, ed il gioco era presto fatto.
nel programma sto cercando di fare una cosa simile: colorare le celle delle colonne a (codice bc) e b(data rilascio bc) del foglio dati di, chessò, verde se sono state caricate/riconsegnate; e lasciare le stesse rosse fino a quando non risultino "caricate/riconsegnate".
in più, creare un foglio a parte che possa essere immediatamente stampato ed affisso recanti i buoni c. mancanti con i relativi dati di individuazione.
il primo tentativo lo ho fatto con i flags, ma mi sto perdendo...
di Xxx (utente non iscritto) data: 15/05/2012
Ciao francesco

guarda la modifica che ho fatto nel foglio dati dove ho aggiunto una colonna, e la modifica alla macro di salvataggio dati dopo che ti hanno riportato i buoni con il km e il costo del carburante
fai una prova e vedrai che quando tu emetti dei buoni la cella di riscontro e' rossa, quando ti ritornano e tu li salvi nei rispettivi fogli si colora di verde, avvenuta riconsegne cedolino,
guarda la formattazione di quelle celle

ciao da xxx
di Icaro (utente non iscritto) data: 15/05/2012
Nella mia città stanno giusto espletando un concorso per un erigendo monumento in una piazza del centro.
se mi dici che materiale preferisci, magari vi partecipo...
è perfetto!
mille grazie!
di Xxx (utente non iscritto) data: 15/05/2012
Ciao francesco

guarda il secondo file che ti ho allegato dove ho aggiunto la stampa del carburante e con l'eliminazione dei buoni utilizzati

ciao da xxx
di Icaro (utente non iscritto) data: 16/05/2012
Ti rispondo. da cellulare.
azzius... mi sa ke mi devo procurare un blocco di titanio da scolpire...
ma una onlus nn ce l'hai ke ti verso il mio 5per1000? appena vado a casa cerco di capire ke diavoleria hai combinato e cerco di trasporlo nel mio foglio.
grazie
di Icaro (utente non iscritto) data: 16/05/2012
Deve essermi sfuggito qualcosa.
ho provato a studiarmi il tuo file ed a trasferire le nuove funzionalità nella parte del file che sto utilizzando in ufficio.
dove sbaglio?
ti allego il file, se hai il tempo di guardarmelo.
in ogni caso, grazie.
di Icaro (utente non iscritto) data: 16/05/2012
Mannaggia, sto provando e riprovando ad allegare parte del file, ma nonostante l'epurazione dei dati non necessari, risulta sempre troppo grosso.
di Icaro (utente non iscritto) data: 16/05/2012
Che fatica, ma alla fine pare che funzioni.
grazie dell'aggiornamento.
'na fig@ta!
se ti venisse qualche altra idea, bhe, io sono qui.

grazie xxx
di Xxx (utente non iscritto) data: 17/05/2012
Ciao francesco
sono appena rientrato da una gara di scopa dassi organizzata al bar, dove con il mio amico mi e' toccato vincere la batteria come al solito,
comunque ho visto il tuo intervento che sei riuscito a capire il funzionamento delle macro e le celle collegate
se ce da fare ancora qualche altra aggiunta che ti passa per il cervello, fallo sapere che vediamo di attuarla,
per i calcoli penso che tu abbia gia' provveduto con le funzioni di excel essendo questi molto semplici da attuare quando si ha a disposizione un po' di dati caricati
ps devi fare solo una piccola modifica in una macro, roba semplice, perche' ho messo un and al posto di un or, vedi sotto
con and e' abbastanza che tu metti il prezzo o i km che conferma il carico
con or devono essere per forza inseriti tutti e due
mia svista

ciao da xxx
da cosi If [B18] = "" And [E14] = "" Then MsgBox "Prezzo Carburante o Km MANCANTI" a cosi If [B18] = "" Or [E14] = "" Then MsgBox "Prezzo Carburante o Km MANCANTI"
di Icaro (utente non iscritto) data: 17/05/2012
Ke macro usi x vincere a scopa?
quando torno a casa t rispondo.
di Icaro (utente non iscritto) data: 17/05/2012
Non mi è sempre facile comprendere tutti i tuoi contorsionismi formularici.
il tuo livello di programmazione è da outsider.
ma come diavolo fai!
c'ho messo parecchio ieri a prendere i tuoi codici e trasferirli nel mio programma.
grazie mille per le formule di calcolo.
in queste, sino ad ora, sono riuscito a cavarmela benino, e forse sono la parte del programma che più lo appesantiscono.
per la modifica, grazie ma avevo già provveduto. mi ero reso subito conto che c'era qualcosa che non quadrava(se vedi passare un naso lungo lungo dalle tue parti, non temere, è il mio!).
sinceramente non me ne ero proprio accorto!
-sotto il pulsante "stampa buono carburante", c'è un numero. è una diavoleria nascosta necessaria al programma, o posso tranquillamente cancellarlo? vorrei spostare la posizione del pulsante.
- per non fare casini, dove devo andare a cancellare la "x" che esce su sfondo verde nella colonna k del foglio dati quando si inseriscono tutti i dati della scheda?
è troppo bello vedere il semplice flag rosso o verde.
- è troppo incasinato da implementare in un ulteriore foglio "bacheca" l'elenco delle schede che sono rimaste rosse perchè non consegnate?
così, all'occorrenza le stampo e le metto, appunto, in bacheca.
se è facile da implementare dal tuo esempio che eventualmente (bontà tua!) posteresti, al mio programma, allora va benissimo.
se, invece, il trasferimento comporta un livello di conoscenza non attualmente per me arrivabile, non fa nulla.
il programma va già ottimamente così.

grazie infinite.

ps
se abitassi a me vicino, ti ospiterei a cena.
ma mi sa che siamo alquanto distanti. credo di esserti quasi agli antipodi...
di Xxx (utente non iscritto) data: 17/05/2012
Ciao

quel dato in k10 devessere uno sporco che mie' rimasto di qualche prova,

per non vedere la x va in formattazione condizionale della cella e metti il carattere allo stesso colore della cella, quando la cella e' verde metti il carattere anche lui verde e viceversa
e' un po come sul nero che il carattere e' gia' nero e non vedi la x

ciao da xxx

per il resto vedo quando mi viane la poesia
di Icaro (utente non iscritto) data: 17/05/2012
Fatto!
ero a casa ed ho apportato le modifiche.
denghiù!
di Xxx (utente non iscritto) data: 17/05/2012
Ciao

anche questa sera il fattore c ha funzionato abbiamo vinto ancora

ti ho messo la modifica per stampa bacheca
inserita scheda bacheca

vedi se ti va bene
ciao da xxx

io sono al nord a due passi dal confine svizzero la benzina vado li a farla e i prezzi sono diversi
di Xxx (utente non iscritto) data: 17/05/2012
Ciao

anche questa sera il fattore c ha funzionato abbiamo vinto ancora

ti ho messo la modifica per stampa bacheca
inserita scheda bacheca

vedi se ti va bene
ciao da xxx

io sono al nord a due passi dal confine svizzero la benzina vado li a farla e i prezzi sono diversi
di Icaro (utente non iscritto) data: 18/05/2012
Non ce la fai proprio a tenere la mente a riposo, eh eh eh
chissà se vinceresti anche con me?
me la cavicchio, ma mi sa che io ti trascinerei nel baratro...
allora, credo di aver fatto tutto, ma non mi funziona.
se puoi, e quando puoi, vedi per favore dove sbaglio.
- in bacheca tuo, visualizza codice, ho copiato il contenuto del tuo foglio 3(codice)e lo ho ricopiato nel mio foglio di lavoro bacheca nel foglio 3(codice) che a me era ovviamente vuoto.
- ho copiato il tuo "button" controllo buoni non riconsegnati, lo ho copiato nel mio foglio bacheca e gli ho assegnato come macro proprio il nuovo foglio3(codice) appena creato.
ma non mi funge, che pippa che sono.
se potrai, grazie infinite.

ps
te lo avevo detto che eravamo agli antipodi...
quando lavoravo a milano, spesso con il mio amico facevamo 'sta zingarata di andare in svizzera a fare il pieno e, soprattutto, andar per monti.
lui era alpino e mi ha trasmesso l'amore per le cime; più ancora del mio più familiare mare.
abbiamo anche visitato la cioccolateria "alpenrose", mi pare si chiamasse, che abbiamo letteralmente svaligiato nella sala assaggi.
se ci vai, magari trovi ancora le nostre foto con in epigrafe wanted"...
di Icaro (utente non iscritto) data: 19/05/2012
Nello studiarmi le formule dei codici del tuo foglio, ho notato non essere più presenti il foglio "master" ed i moduli 2 e 3 (quelli che avevi creato per la stampa).
allo stesso tempo, il programma mi pare svolga ugualmente le medesime funzioni.
è qui il problema che a me "bacheca" non funzioni?
hai effettuato una "pulizia" del programma?
ciao e grazie.
di Icaro (utente non iscritto) data: 19/05/2012
Ho capito!
tardi, ma ci sono arrivato.
affermare di essere semplicemente pi@@a sarebbe riduttivo!
assegnavo la macro in un foglio che non c'entrava nulla.
ho apportato finalmente la tua preziosa modifica!!!
di Icaro (utente non iscritto) data: 19/05/2012
Ho notato che se premo il comando "conferma inserimento dati in memoria" in s_buoni, sia che dica si, sia che dica no, il flag nella colonna k del foglio dati si accende comunque di verde(come se lui lo desse già per riconsegnato, anche se io non gli ho confermato con il si).
ho fatto qualche casino io o è normale?

di Xxx (utente non iscritto) data: 19/05/2012
Ciao francesco

queste cose sono normali quando si fa un programma nuovo, per questo si dice sempre che la prima versione e' >beta<. infatti i programmatori lo fanno utilizzare per alcuni mesi prima di renderlo effettivo,facendo scrivere, intanto che inseriscono dati,a chi lo utilizza dove incontrano dei problemi e a questo punto intervengono.
il problema da te riscontrato e' semplice, tu hai messo sia i km e il costo di benzina in una scheda gia' stampata ma alle verifiche di controllo io non avevo inserito l'opzione no, diciamo che mi e' sfuggita, dato che avevo gia' messo dei flag di controllo, ma in questo caso se questi flag erano tutti a valore 0 quindi veri, se tu dicevi si o no la macro proseguiva la sua operazione, quindi mettiamo un altro flag di controllo al no sul messaggio di conferma
vedi la modifica sotto una sola riga banale

ciao da xxx
ps fino a lunedi non ci sono piu', per altri problemi che riscontrerai

tu macro attuale inizio macro Copia_dati()
''''''''''''''''''''''''''''
Conferma = MsgBox(prompt:="Confermi inserimento dati", Title:="CONFERMA DATI", Buttons:=vbYesNo + vbQuestion)
If Conferma = vbYes Then

Modifica
''''''''''''''''''''''''''''
Conferma = MsgBox(prompt:="Confermi inserimento dati", Title:="CONFERMA DATI", Buttons:=vbYesNo + vbQuestion)
If Conferma = vbNo Then Exit Sub  ''questa riga da inserire
If Conferma = vbYes Then

di Icaro (utente non iscritto) data: 20/05/2012
Grazie ancora della attenzione che mi riservi.
anche se combino un pò di cas@ni.
bisognerebbe imparare non solo a farli i programmi, ma anche ad utilizzarli correttamente; senza fare inguacchi.
hai ragione, ho riscritto una scheda già stampata e poi cancellata. e non avrei dovuto.
sto facendo mille prove, e mi capita, effettivamente, di riscrivere laddove ho proceduto a cancellare.
non sempre è il metodo migliore per testare un programma.
proverò a ri-contattarti solo se proprio necessario.
peccato non avere il piacere di conoscerti.
per capitare dalle tue parti, sto calcolando quanto zucchero e/o alcool dovrei comprare a livigno per ammortizzare la spesa del viaggio...
di Icaro (utente non iscritto) data: 23/05/2012
Stiamo continuando a utilizzare sperimentalmente il tuo programma con grande soddisfazione!
per il momento, non sono emerse criticità.
nonostante io vi abbia fatto afferire dei corollari di programma che non interferiscono, pare, col tuo progetto base.
ci tenevo veramente a fartelo sapere.
saluti!
di Icaro (utente non iscritto) data: 02/06/2012
Per evitare accidentali manomissioni da parte di altri operatori, oltre me, che immettono dati nel programma, avevo provveduto alla protezione dei vari fogli di lavoro con password.
purtroppo, questa soluzione non va perchè mi va in debug.
presumo sia normale.
devo rassegnarmi a rischiare che qualcuno possa cancellare o alterare le formule ivi contenute?
grazie dell'eventuale suggerimento.
di Icaro (utente non iscritto) data: 02/06/2012
Ovviamente ho lasciato s-protetti i campi ove è necessario inserire dei dati.

di Xxx (utente non iscritto) data: 04/06/2012
Ciao francesco
ho visto questa mattina il tuo intervento in base alle password,normalmente io preferisco se e' possibile non metterle oppure inserire pass dove non serve intervenire manualmente,
comunque prendendo esempio dalle schede di registrazione delle singole autovetture, per intervenire con le pass va risolto in questo modo, vedi sotto, restando che questo e' un esempio al suo utilizzo, in quanto non sapendo come e' strutturato il tuo file non posso dirti di metterle in una o l'altra posizione, comunque da come vedrai l'accessine e spegnimento vanno in questa direzione
questo e' gia' tutto funzionante per le schede macchine

ciao da xxx

Tuo pezzo di pacro di copiatura dati
Nome_S = [G22]
  NRigC = Sheets(Nome_S).Range("A" & Rows.Count).End(xlUp).Row + 1
   Sheets(Nome_S).Cells(NRigC, "A") = Cells(5, "E")
   Sheets(Nome_S).Cells(NRigC, "B") = Cells(5, "B")
   Sheets(Nome_S).Cells(NRigC, "C") = Cells(15, "B")
   Sheets(Nome_S).Cells(NRigC, "D") = Cells(18, "B")
   Sheets(Nome_S).Cells(NRigC, "E") = Cells(18, "E")
   Sheets(Nome_S).Cells(NRigC, "F") = Cells(14, "E")
End If

Inserimento per Pass
Nome_S = [G22]
Sheets(Nome_S).Activate  ''per Password attiva il foglio
ActiveSheet.Unprotect Password:="XxX" ''per Password toglie
  NRigC = Sheets(Nome_S).Range("A" & Rows.Count).End(xlUp).Row + 1
   Sheets(Nome_S).Cells(NRigC, "A") = Cells(5, "E")
   Sheets(Nome_S).Cells(NRigC, "B") = Cells(5, "B")
   Sheets(Nome_S).Cells(NRigC, "C") = Cells(15, "B")
   Sheets(Nome_S).Cells(NRigC, "D") = Cells(18, "B")
   Sheets(Nome_S).Cells(NRigC, "E") = Cells(18, "E")
   Sheets(Nome_S).Cells(NRigC, "F") = Cells(14, "E")
  ActiveSheet.Protect Password:="XxX" ''per Password rimette
Sheets("S_BUONI").Select  ''per Password ritorna al foglio
End If

di Icaro (utente non iscritto) data: 05/06/2012
Grande!
provo a trasporre il tuo codice nel mio programma per vedere se anche io riesco a farlo funzionare.
eterna gratitudine.
ti faccio sapere gli esiti.
ieri sera si è presentato un problema nuovo; per fortuna è capitato a me che ho saputo aggirarlo molto semplicemente. ma se capitasse ad altri operatori, credo si potrebbero impappinare molto facilmente.
normalmente ritiriamo circa 5mila euro in buoni da 10 euro l'uno.
prima o poi, questi buoni finiscono, e, quando andiamo a ritirare gli altri ovviamente la sequenza numerica non è esattamente progressiva perchè i buoni carburante vengono forniti anche ad altri settori della amministrazione.
ad es., se termino gli ultimi buoni con il numero di serie 1234567800, i successivi potrebbero essere a partire da, ad es., 32586000.
insomma, potrebbero avere tutta un'altra numerazione.
ieri, nello specifico, è accaduto che dovessi fornire 40 euro di carburante. solo che c'erano solo gli ultimi due buoni della serie vecchia;per seguire l'esempio di prima, era come se avessi il buono carburante 1234567799 ed il 1234567800. dopodichè iniziava la nuova serie con tutt'altra numerazione.
sono certo che se non mi fossi trovato io, i colleghi meno avvezzi avrebbero emesso i buoni: 1234567799, 1234567800, 1234567801,1234567802. gli ultimi due, ovviamente inesistenti!
incominciano a venire fuori gli errori miei di progettazione della idea di contabilità che volevo realizzare.
forse è stata poco felice l'idea di utilizzare il "trascinamento" orizzontale per far apparire a video in modo rapido i numeri dei buoni carburante.
spero di essere stato chiaro nella esposizione del problema; più che altro, confido nella tua non comune predisposizione a comprendermi...
fatto salvo che non ti chiedo di rimetterti a lavorarci su per riparare i miei palesi errori di progettazione, come credi potrei risolvere, magari con qualche "indolore" stratagemma, questo problemino?
se c'è da fare troppe modifiche, non credo che sarei capace di estrarle dal tuo esempio per inocularle nel mio programma...
magari si potrebbe facendo apparire nel menu a tendina della scelta buoni carburante di diverso colore ed in grassetto i numeri dei buoni delle due diverse serie?
chessò, di rosso-grassetto quella 1234567800 e di
verde-grassetto quella nuova 32586000, sempre per rimanere con l'esempio di prima.
almeno così sarebbe evidente la fine di una serie e l'imminente inizio della nuova.
ho provato a fare queste modifiche, ma nel menù a tendina non vedo variazioni nel colore e /o nel formato.
so che sono soluzioni all'arrangio, ma sono le uniche che mi vengono in mente.
o hai una idea diversa?
senza impegno alcuno, ovviamente.
grazie xxx!!!
di Xxx (utente non iscritto) data: 05/06/2012
Ciao francesco

>>magari si potrebbe facendo apparire nel menu a tendina della scelta buoni carburante di diverso colore ed in grassetto i numeri dei buoni delle due diverse serie?
chessò, di rosso-grassetto quella 1234567800 e di
verde-grassetto quella nuova 32586000, sempre per rimanere con l'esempio di prima. <<

questo da quanto mi risulta su una convalida dati non viene riportato il valore di formattazione condizionale che si potrebbe inserire nella colonna di immissione dei buoni in quanto la convalida e determinata da un elenco,come se fosse un file esterno al programma, quindi con una sua struttura,
questo argomento l'avevamo gia' trattato un po' di tempo fa in un altro forum non giungendo a nessuna soluzione valida, quindi non saprei come fare a risolvere attualmente questo lavoro, a meno che mi si accenda qualche lampadina, o contattando alcuni miei amici nei forum mi sappiano dare qualche dritta per ovviare all'inconveniente.
restando che appena so qualche cosa a riguardo te lo comunico

ciao xxx
di Icaro (utente non iscritto) data: 05/06/2012
Ma si può avere la fortuna di incocciare una persona così seria, disponibile e competente che si mette a disposizione senza nemmeno sapere che faccia tu abbia?
e senza mai chiedere null'altro in cambio?
si, di tanto in tanto, raramente, ma accade.
che dirti di più, non saprei...
spero riesca a trasmettere almeno il 30% del mio apprezzamento per il tuo essermi vicino.
non ci posso credere! è una criticità che era già venuta a galla ad altri programmatori?
"altri" è in riferimento a te, ovviamente, e non a me, ih ih ih ih
vabbuò, incrocio le dita e spero che questo "bug" accada il meno possibile.
cercherò di ritirare una maggiore quantità di buoni, così riduco la ridondanza dell'evento.
sono fiducioso: so bene che, se ne saprai di più, me lo farai sapere.
te ne rendo grazie!
di Xxx (utente non iscritto) data: 06/06/2012
Ciao francesco

ho parlato con alcuni miei amici dei forum tramite mail, ma anche loro sono rimasti al dunque che si era presentato allora e la cosa non e' stata piu' portata avanti, comunque rimaniamo che se ricevo un aiuto da parte loro,dato che ho riaperto la questione, o mi viene in mente una soluzione te la faccio sapere
con questo vedro di aggiornarmi martedi dato che parto per il mare alcuni giorni,
ps queste sono le mie vacanze

ciao da xxx
di Icaro (utente non iscritto) data: 06/06/2012
Se vuoi del mare che sia degno di questo nome, dovresti "allungarti" dalle mie parti di soli 1200-1300 km...
si vedono ancora fondali e pesci...
buone vacanze e divertiti.
io preferisco, se i colleghi me lo concedono, ritardarle un pò più in là; se no poi finiscono presto e mi viene il magone a tornare a lavorare.
pensa che se vado in vacanza, normalmente i 1200-1300 km me li faccio io per portare la famiglia in alto adige!a loro piace ed io impazzisco per le montagne.
serene vacanze e mille mille mille ed ancora mille grazie per "sbatterti" in giro per forum per mio conto!!!
sarà una sciocchezza, ma la cosa mi fa star bene.
salutoni!

Vuoi Approfondire?