La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno
Ho un aiuto da chiedere gentilmente.
Tramite la cella in B5 effettuo la ricerca del valore inserito nella tabella sottostante che una volta
Trovato lo evidenzia in GIALLO…..
Una volta effettuata la ricerca è possibile avere in una cella P12 il colore della cella
In questo caso VERDE
I colori sono il ROSSO e il VERDE ottenuti con tramite formattazione condizionale, ma poi c’è il gricio che è di fondo e quindi senza alcuna formattazione.
Un saluto e un ringraziamento anticipato per eventuali aiuti.
Allego File
eciao
ALT F11
per aprire l'editor vba
doppio click su foglio1 (in alto a sinistra)
incolla
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
Call COLORA
End If
End Sub
poi inserisci un modulo e sulmodulo incolla
Option Compare Text
Public Sub COLORA()
Dim Lista As Range
Set Lista = Range("B11:N23")
For Each Cl In Lista
If Cl = Range("B5") Then
Cl.Copy
Range("P12").PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
Next
End Sub
ecco che come cambi la sigla im B5 la cella P12
si colora come la sigla inserita
Ciao Gianfranco
ho eseguito i due passaggi.
Poi ho fatto esegui- salvato con attivazione macro
Ma nella casella P12 non appare nessun colore.
Non ho mai eseguito qualcosa in VBA e magari faccio qualche sbaglio dopo aver inserito i due codici?
(anzi a tal proposito, se possibile e se non chiedo troppo,
nella P12 si può avere 1 se il colore è Rosso - 2 se il colore è Giallo - 3 se il colore è Verde???
Scusa per questa nuova richiesta)
ciao
ma di giallo non si colora mai
hai solo il carattere che diventa giallo
dove lo vedi il giallo???????
vediamo
1= rosso
2=grigio
3 =verde
Option Compare Text
Sub formattazione()
Dim Col As Variant
Dim Cl As Range
With Sheets("Foglio1")
For Each Cl In .Range("B11:N23").Cells
If Cl = Range("B5") Then
Col = Cl.DisplayFormat.Interior.Color
If Col = RGB(255, 0, 0) Then
Range("P12").Value = 1
ElseIf Col = RGB(0, 176, 80) Then
Range("P12").Value = 3
ElseIf Col = RGB(242, 242, 242) Then
Range("P12").Value = 2
End If
Exit For
End If
Next Cl
End With
End Sub
Si hai ragione....scusami
Funziona perfettamente.....Non so come ringraziarti per la tua disponibilità e pazienza.
Grazie infinite e un saluto
ciao
se hai risolto gentilmente chiudi la discussione
