Trovare ultimo valore evidenziato

[patemana]

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.

[alfrimpa]

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

[alfrimpa]

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

[patemana]

Grazie, scusatemi per l'oggetto, Vi ringrazio, vado a provare... Ciao.

[patemana]

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]

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.

[Anthony47]

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

[ricky53]

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.

[patemana]

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.

[ricky53]

Ciao,
invia un file di esempio, senza dati riservati, e descrivi come ricavi il "saldo giusto".

[Anthony47]

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

[patemana]

Siete stati di grande aiuto. Un grazie a tutti. Patemana.

[ricky53]

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.

[patemana]

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.