Moderatori: Anthony47, Flash30005
amenothep ha scritto:Spero di essere stato chiaro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:AD1")) Is Nothing Then Exit Sub '<<< elenco delle testate
Cr = Target.Value
UR = Range("A" & Rows.Count).End(xlUp).Row '<<<< conta quante righe ci sono sulla colonna A
For I = 2 To UR '<<<< scansiona tutte le righe
If Range("A" & I).Value = Cr Then Range("A" & I).Select '<<< se trova il valore nella cella Ax uguale a quello selezionato selezionerà la cella interessata
Next I
End Sub
amenothep ha scritto:...Cosa vorrei fare ???? semplicemente questo, premendo la cella a1 vorrei saltare alla riga 1 (11° riga), premendo la cella c1 vorrei altare alla riga 2 (41° riga) ecc. ecc...
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
Importare immagini a seconda del testo in una cella Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 4 |
Inserire valore di una cella in altra cella con testo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 17 |
Visitano il forum: Nessuno e 10 ospiti