COLORARE NUMERI

[giorgioa]

Salve,

se posso un ulteriore aiuto
sul foglio1 da cella I1:R9 ho denominato questo intervallo

Colora,
mentre in Hi ho abbinato alla cella un colore

Clikkando su uno o piu' dei numeri della tabella Colora
vorrei si colorassero i numeri uguali presenti nell'intervallo

C11:G200
nell'intervallo sopra indicato mancano dei numeri
per brevità li ho omessi.

Ora vedo se riesco ad allegare il file
Se cortesemente mi potete segnalare il link per allegare il file

[Anthony47]

Prova con questo codice:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Warr, StRange As String, tVal

If Not Application.Intersect(Target.Cells(1, 1), Range("Colora")) Is Nothing Then
    tVal = Target.Cells(1, 1)
    Warr = Range("C11:G200").Value
    For I = 1 To UBound(Warr)
        For J = 1 To UBound(Warr, 2)
            If Warr(I, J) = tVal Then
                StRange = StRange & "," & Range("C11").Cells(I, J).Address
            End If
        Next J
    Next I
    If Len(StRange) > 3 Then
        Me.Range(Mid(StRange, 2)).Interior.Color = Range("H1").Interior.Color
    End If
End If
End Sub

Va inserito nel "modulo vba" del foglio su cui lavori; per questo, partendo da Excel:
-tasto dx sul tab col nome foglio; scegli Visualizza codice per aprire l'editor del vba alla pagina giusta; copia il codice e incollalo nella finestra di destra.

Poi torna sul foglio excel e vedi l'effetto

Ciao

[giorgioa]

Salve

ho incollato la funzione con riferimento al foglio1

mi da errore alla variabile i non dimensionata

penso che darà lo stesso per la variabile j anch'essa non dimensionata

ho provato a dimensionarle prima con integer poi con variant e ora anche con Object

mi da sempre errore

una precisazione nella dettatura invece di scrivere H1 la cella col colore ho scritto Hi

eventualmente è in H1 il colore

[Anthony47]

Evidentemente hai impostato Option Explicit

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Warr, StRange As String, tVal
Dim I As Long, J As Long
'
If Not Application.Intersect(Target.Cells(1, 1), Range("Colora")) Is Nothing Then
'etc etc


Aggiungi la dichiarazione di I a J come sopra

Ciao

[giorgioa]

si blocca a:

if not intersect...
per maggiore notizia ho passato il mouse e segnala il numero che sta nella cella L1 che ho il nr 4

metodo range worksheet non riuscito

chiaro che ho apportato l'aggiunta che mi hai segnalato

[Anthony47]

In quale modulo vba hai inserito il codice? (lo leggi nell'intestazione della finestra vba)

[giorgioa]

Salve

la funzione è in:

VBAProject
foglio1(foglio1) inizialmente ho clikkato su foglio e si è aperto il modulo

poi ho apportato la correzione.

La mia è solo una domanda ma la tabella I1:R9 è stata impostata?
Il perchè è quando clikko su una cella qualsiasi si avvia la macro

[giorgioa]

Salve Anthony

si potrebbe fare una cosa semplice?

fermi restando che i numeri da colorare sono sempre in C11:G200

una macro che quando si trova su una cella qualsiasi (riferimenti relativi) e fino a che trova numeri sulla destra massimo 4 copia
incolla direttamente e sempre nelle celle Y7:AB7 con riferimento assoluto.

Oltre ad essermi più pratico le funzioni, non so da cosa dipende, forse per variabili uguali si attivano
con l'avvio di un'altra macro
Parlo da assoluto ignorante della materia

Per cui se mi scrivi la macro poi creo il pulsante e concludiamo, se non disturbo e tolgo anche il disturbo

per quanto riguarda il colore puoi scegliere quello che vuoi puchè non sia forte e si può leggere il numero colorato

[Anthony47]

La mia è solo una domanda ma la tabella I1:R9 è stata impostata?

Avevi scritto che avevi "denominato questo intervallo Colora", e infatti io poi uso Range("Colora") all'interno della Application.Intersect. Se invece non c'e' nessun intervallo denominato "Colora" allora questo spiega perche' Application.Intersect fallisce; puoi sostituire Range("Colora") con Range("I1:R9")

Il perchè è quando clikko su una cella qualsiasi si avvia la macro

Non ho capito se e' una domanda o una constatazione...

si potrebbe fare una cosa semplice?

Ma questa e' una cosa nuova, o la revisione della richiesta di colorare le celle?
In ogni caso ti richiedo un supplemento di descrizione

Ciao

[giorgioa]

avevo definito l'area interessata sul file che avrei dovuto allegare

e siccome non ho visto l'intervallo dei numeri "colora"

svista, ho definito l'area col nome Colora e ora tutto funziona

OK grazie e scusami se ti ho fatto perdere del tempo.

Buona giornata

RISOLTO

[giorgioa]

scusami è anche essenziale

se clokkando 2 volte di seguito sulla cella H1 si potrebbe cancellare i numeri
colorati in C11:G200?

[giorgioa]

col senno di poi e con l'attenzione al non funzionamento per mia disattenzione ho aggiunyo se possibile che da aggiungere eventualmente nella funzione scritta se con un doppio clik
sulla cella H1 cancellare il colore nel range C11:G200
mi sono reso conto ora
ho scritto prima cancellare i numeri colorati invece no cancellare il colore con doppio clik su cella H1

[Anthony47]

Per "scolorare" con doppioclick su H1:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$H$1" Then
    Range("C11:G200").Interior.Color = xlNone
    Cancel = True
End If
End Sub

Da mettere nello stesso modulo dove hai inserito la Sub Worksheet_SelectionChange
Ciao

[giorgioa]

Salve Anthony47

OK anche il cancella colore

Grazie degli aiuti, buona giornata

RISOLTO

[giorgioa]

Salve Anthony47

non so cosa ho combinato ma la macro mi questo errore

1004 poi metodo "range' dell'oggetto_Worksheet! non riuscito

e si ferma su questa riga

Me.Range(Mid(StRange, 2)).Interior.Color = Range("H1").Interior.Color

cosa dovrei vedere per correggere l'errore

Grazie

[giorgioa]

OK ho trovato cosa ho combinato

praticamente avevo incollato la funzione in un modulo standard

quindi ho risolto

scusami

[giorgioa]

Scusami Anthony

ho provato ad aumentare l'intervallo che colora i numeri

e mi da errore

è un problema di memoria o altro

Salve

[Anthony47]

Ho provato a mettere le mani sullo schermo ma non ho "percepito" niente; ma gia' lo sapevo che come pranoterapeuta sono scarso
Quindi devi dirmi tu cosa hai fatto altrimenti non combiniamo niente...

[giorgioa]

Salve a tutti,

cortesemente per una funzione che

nel selezionare una cella mi colori

in giallo la stessa riga

chiaro che selezionando un'altra cella

di un'altra riga il colore della riga precedente

si annulli

Grazie per l'aiuto