|
Domanda.
nome=Marco
cognome=Di Bartolo
versione=97
conosco3=buono
macro=SI
email=marco_@email.it
chr=0
problema=Voglio colorare in blu una parte di colonna tra due estremi i cui
indirizzi assoluti ($A$6 per es) sono contenuti nelle celle $DG$4 e
$DA$4. Ho creato una macro di prova:
Range("X6:X13").Select
Range("X13").Activate
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
End With
e ho tentato di trasformarla in forma diciamo 'parametrica' Nonostante
parecchi tentativi falliti, di ripetere la struttura di prima, mi
scontravo con errori di varia natura. O non compilabilità, oppure, il
range che mi considera è quello dg4:da4 e non quello i cui estremi sono li
contenuti..
ho provato:
Range([$DG$4], [$DA$4]).Select
Range([$DG$4] : [$DA$4]).Select
Range([$DG$4] ":" [$DA$4]).Select
e numerose varianti con le parentesi [] annidate
anche
Range([$DA$4]).Activate
Range([$DA$4], [$DG$4]).Activate
alla fine mi sono quasi arreso:
mi aiuti?
le parentesi graffe possono servire?
Tanti complim x il sito!!
Marco
Risposta.
salve Marco, non ti ho capito molto bene, ma se vuoi che tu venga
selezionata una zona i cui riferimenti sono valori scritti in altre celle,
questa è una soluzione: in A2 scrivi C1 e in A3 scrivi H1
Sub Tua()
X = Range("a2").Value 'con X prendi C1
Y = Range("a3").Value 'con Y prendi H1
Range(X & ":" & Y).Select 'indi leghi in
questo modo i riferimenti e li
selezioni
With Selection.Interior 'e poi applichi il
colore alle celle
.ColorIndex = 11
.Pattern = xlSolid
End With
End Sub
Era questo che volevi?
Conferma.
Grazie Ennio,
Era questo quello che volevo... la chiave è stato il comando
Range(X & ":" & Y).Select
che mi hai suggerito.
Grazie molte,
ancora tanti comlimenti e grazie per la rapidità
Marco '72
da Monza
|