Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Trovare ultimo valore evidenziato

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Trovare ultimo valore evidenziato

Postdi patemana » 27/02/15 18:25

Salve a tutti, sono da poco a cimentarmi con VBA excel 2010, e non riesco ad uscirne fuori, da una semplice macro o quant'altro, come segue:
in un foglio1 ho una colonna da y4 a y1000, con valori numerici, che da y4 a y50 ho colorato di fondo giallo per evidenziare il periodo controllato (consolidato). Quindi avrei bisogno di riportare in un altro campo "x" il valore ultimo del range evidenziato in giallo da y4 a y1000 (che in pratica al momento l'ultimo valore evidenziato di giallo è in y50, ma che successivamente potrebbe aumentare da me manualmente progressivamente in y51, y52 ecc fino a y1000. Ringrazio in anticipo, un saluto Patemana.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Sponsor
 

Re: Trovare ultimo valore evidenziato

Postdi alfrimpa » 27/02/15 19:38

Ciao

La macro che ti riporto funziona nel presupposto che la zona colorata in giallo non abbia "buchi" ed inserisce l'ultimo valore colorato in giallo in cella C1 (da poi modificare con i tuoi riferimenti)

Ad esempio se le righe gialle vanno da Y4 a Y50 la macro inserirà il valore di y50 in C1 (o dove vuoi tu)

Codice: Seleziona tutto
Sub trova_col()
Dim cl As Range
Dim zona As Range
Dim val As Long
Set zona = Range("Y41:Y1000")
For Each cl In zona
    If cl.Interior.ColorIndex = 6 Then
        cl.Offset(1, 0).Activate
    End If
Next cl
Range("c1").Value = ActiveCell.Offset(-1, 0).Value     <----- Da modificare C1 secondo le tue esigenze
End Sub


Fai delle prove e verifica che funzioni bene.

Spero sia utile

Alfredo

P.S. Un consiglio: la prossima volta non usare un titolo tipo "Aiuto", "Problema", "Help" o simili ma cerca di descrivere in breve il tuo quesito

EDIT Flash: modificato titolo del topic
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Trovare ultimo valore evidenziato

Postdi alfrimpa » 27/02/15 20:08

Ciao

Se ti è più comoda uan Function eccola

Codice: Seleziona tutto
Function trovacol(miazona As Range) As Long
Dim cl As Range
Dim conta As Long
For Each cl In miazona
    If cl.Interior.ColorIndex = 6 Then
        conta = conta  + 1
        cl.Offset(1, 0).Activate
    End If
Next cl
trovacol = Range("Y" & conta).Value
End Function


Quindi sul foglio di lavoro basterà scrivere:

=trovacol(Y4:Y1000) e restituirà il valore dell'ultima cella colorata in giallo.

Alfredo
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Trovare ultimo valore evidenziato

Postdi patemana » 27/02/15 20:50

Grazie, scusatemi per l'oggetto, Vi ringrazio, vado a provare... Ciao.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Re: Trovare ultimo valore evidenziato

Postdi patemana » 27/02/15 21:24

La macro funziona benissimo, mentre la Function considera la colonna da y1 a y1000 e non da y4 a y1000 che ha il colore giallo. Comunque ringrazio di nuovo siete stati di grande aiuto. Sono nuovo del forum, cercherò di seguirvi per imparare il più possibile. Ciao.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Re: Trovare ultimo valore evidenziato

Postdi patemana » 27/02/15 21:56

Sarebbe possibile far aggiornare in automatico il valore in "C1" al riempimento in manuale del fondo giallo in colonna "Y" in base ai vari consolidamenti. Ciao.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Re: Trovare ultimo valore evidenziato

Postdi Anthony47 » 28/02/15 00:09

Premesso che il colore e' un elemento che cambia la presentazione dei dati e non dovrebbe essere usato per modificarne il peso; l' applicazione di colore non e' per Excel un "evento" che puo' scatenare qualcosa, tipo un ricalcolo o il lancio di una macro. Quindi la risposta al quesito e' No.
Questo vale anche per la Function presentata da alfrimpa, che si ricalcolera' ben difficilmente (in questo senso meglio la macro, che la lanci quando vuoi).
Una possibile via potrebbe essere quella usare una macro anche per colorare, nel qual caso inserisci in coda alla macro di colorazione una Call trova_col.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Trovare ultimo valore evidenziato

Postdi ricky53 » 28/02/15 00:46

Ciao,
prima leggi quanto ti ha scritto Anthony.

Domanda: in base a quale criterio colori le celle di giallo?
Una macro potrebbe applicare automaticamente il criterio (che tu descriverai) e colorare di giallo le cella.
La macro potrà essere lanciata mediante un pulsante o Alt+F8 dal foglio oppure con "F5" posizionandoti su una istruzione del codice.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Trovare ultimo valore evidenziato

Postdi patemana » 28/02/15 12:25

Grazie il Vostro interessamento, in riferimento alla colorazione della cella, purtroppo non posso utilizzare una macro, perchè come ho detto precedentemente, la colorazione è da me usata per distinguere i vari saldi progressivi in colonna, controllati e consolidati. Quindi l'ultimo saldo in questa colonna, è per me il saldo giusto da riportare in altri fogli per vari utilizzi. Pertanto visto la non possibilità di far aggiornare in automatico il valore "x" la soluzione potrebbe essere il tasto F5 o/e far aggiornare il valore alla chiusura/apertura foglio o eventualmente cambiare la mia logica, ovvero non utilizzare il colore come sistema di controllo ma utilizzare altra soluzione. Un saluto Patemana.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Re: Trovare ultimo valore evidenziato

Postdi ricky53 » 28/02/15 17:49

Ciao,
invia un file di esempio, senza dati riservati, e descrivi come ricavi il "saldo giusto".
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Trovare ultimo valore evidenziato

Postdi Anthony47 » 01/03/15 00:01

Guarda il messaggio di Ricky, prima di questo...

Grazie il Vostro interessamento, in riferimento alla colorazione della cella, purtroppo non posso utilizzare una macro, perchè come ho detto precedentemente, la colorazione è da me usata per distinguere i vari saldi progressivi in colonna, controllati e consolidati
Non puoi applicare la colorazione della cella tramite macro? Non capisco la logica di questa affermazione....
Seleziona un intervallo, avvia il registratore di macro, dai un nome a piacere, indichi come tasto di scelta rapida G (maiuscola), applichi alla selezione il colore che preferisci, fermi la registrazione della macro.

Da questo momento quando premerai Contr-maiusc-g l' area selezionata verra' colorata di quel colore (ho suggerito Contr-maiusc-g perche' io evidenzio sempre in "Giallo").
Cerca ora il codice della macro: da Excel premi Alt-F8, selezioni la tua macro dall' elenco delle macro disponibili, premo Modifica.
In coda, prima di End Sub, inserisci la nota riga Call trova_col

Da questo momento premendo Contr-maiusc-g, oltre a colorare l' intervallo selezionato partira' anche la macro "trova_col". Che e' quello che volevi ottenere.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Trovare ultimo valore evidenziato

Postdi patemana » 01/03/15 01:14

Siete stati di grande aiuto. Un grazie a tutti. Patemana.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43

Re: Trovare ultimo valore evidenziato

Postdi ricky53 » 01/03/15 11:00

Ciao,
leggendo il tuo intervento DEDUCO che tu abbia risolto.

Puoi inserire la soluzione che hai adottato, in questo modo sarai di aiuto ad altri utenti.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Trovare ultimo valore evidenziato

Postdi patemana » 09/03/15 19:08

Risposta a Ricky53: La soluzione è la seguente: Ho adottato il metodo consigliato dal moderatore Anthony47 in post del 28/02/15 23:01, che mi ha proposto di evidenziare la cella tramite una macro, che quindi a sua volta mi aggiorna il valore "x" chiamando la "Call trova_col". La cosa funziona benissimo. Scusate il ritardo nel confermare l'avvenuto, (credevo fosse chiaro, nel mio post del 01/03/15 00:14). Un ringraziamento a tutti per il tempo dedicatomi, saluti. Patemana.
patemana
Newbie
 
Post: 7
Iscritto il: 27/02/15 17:43


Torna a Applicazioni Office Windows


Topic correlati a "Trovare ultimo valore evidenziato":


Chi c’è in linea

Visitano il forum: raimea e 13 ospiti