| | Post: 25 | Registrato il: 26/10/2018
| Città: CASALE MONFERRATO | Età: 38 | Utente Junior | 2016 | | OFFLINE | |
|
22/02/2021 23:06 | |
Buonasera,
vorrei che in un file excel usando una cella come cella di input, indicando un riferimento di cella andasse ad inserire una "x" sulla cella indicata.
Cerco di spiegarmi meglio:
cella input che sarà fissa è A10
in A10 scrivo A1, a quel punto in A1 dovrebbe inserirmi una X
un'altra volta in A10 scrivo C5, a quel punto in C5 dovrebbe inserirmi una X e così via...
Con indice confronta riesco ad ottenere il valore contenuto nella cella di intersezione tra riga e colonna, ma non è quello di cui ho bisogno.
Riuscite ad aiutarmi?
Grazie e saluti
|
|
| | Post: 2.145 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
22/02/2021 23:21 | |
ciao
nel foglio
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A10")) Is Nothing Then
Range(Target).Value = "X"
End If
End Sub
[Modificato da federico460 22/02/2021 23:22] |
| | Post: 25 | Registrato il: 26/10/2018
| Città: CASALE MONFERRATO | Età: 38 | Utente Junior | 2016 | | OFFLINE | |
|
23/02/2021 07:52 | |
Grazie, funziona, se invece di usare un riferimento di cella volessi usare una parola oppure una definizione?
Tipo in colonna A ho dei nomi, nelle righe da A a E dei cognomi, metto in A10 PINCO PALLINO e mi dovrebbe trovare la cella di intersezione tra il cognome PINCO che si trova in A5 e PALLINO che si trova in D1, è possibile? Stessa cosa, con INDICE e CONFRONTA ottengo l'eventuale risultato, ma io vorrei che andasse a mettere una X sulla cella di intersezione.
Grazie ancora e saluti |
| | Post: 2.146 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
23/02/2021 08:15 | |
ciao
metti un file esempio
bisogna scorporare la frase
e trovare i riferimenti
poi una cosa
se cambi nome devi azzerare la X? [Modificato da federico460 23/02/2021 08:30] |
| | Post: 2.147 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
23/02/2021 10:22 | |
ciao
non sono espertissimo ma ho idea che cerchi una cosa simile
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A10")) Is Nothing Then
Set ZONA = ActiveSheet.Range("C1:AA1")
Dim CL As Object
For Each CL In ZONA
pos = InStrRev(Range("A10").Text, " ")
LUN = Len(Range("A10"))
If CL.Value = Right(Range("A10"), LUN - pos) Then
x = CL.Column
End If
Next
Set ZONA1 = ActiveSheet.Range("D1:D100")
Dim CL1 As Object
For Each CL1 In ZONA1
pos = InStrRev(Range("A10").Text, " ")
If CL1.Value = Left(Range("A10"), pos - 1) Then
y = CL1.Row
End If
Next
Cells(y, x) = "X"
End If
End Sub
|
|
|