andare a capo di una riga excel vba

[giulioc.tempestilli]

Buongiorno a tutti, intanto grazie preventivamente per l'eventuale aiuto.
Ho la seguente funzione:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const prima_col As Long = 1 'prima colonna
Const tot_col As Long = 5 'totale colonne da valorizzare
Const Avanzamento_r As Long = 1 'avanzamento righe
If Target.Column = prima_col + tot_col Then _
Target.Offset(Avanzamento_r, (-1 * tot_col)).Select
Dim Rng As Range
Set Rng = Range("a21:e1000")
If Not Intersect(Target, Rng) Is Nothing And Target.Count = 1 Then
Target.NumberFormat = "@"
End If
End Sub
Funzione inserita nel foglio.
La quale con invio su e21 manda automaticamente a a22.
Questa funzione, trovata in giro nel web e da me leggermente modificata, purtroppo agisce su tutta la colonna ovvero da aa ad ee ed io vorrei che funzionasse solo ed esclusivamente da a21 a e1000. In concreto non funziona il set rng.
C'è qualcuno che può modificarla secondo i miei bisogni?

[klingklang]

Ciao! Guarda, se tutto quello che ti serve è:
"Quando il cursore finisce in colonna F nelle righe da 21 a 1000, portalo alla colonna A della riga successiva"
io semplificherei così:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Set Rng = Range("F21:F1000")
   
    If Not Intersect(Target, Rng) Is Nothing Then
        Cells(Target.Row + 1, 1).Select
    End If
End Sub


Fammi sapere se ti è sufficiente

[giulioc.tempestilli]

Mi dispiace non mi funziona va direttamente da a21 ad a249.

[klingklang]

e il 249 da dove lo prende? Guarda, ti linko un filmato fatto su un foglio dove ho inserito questo codice: i movimenti del cursore che vedi sono fatti con le frecce della tastiera...

[giulioc.tempestilli]

non so che dirti, ho provato sul mia cartella excel e su un'altro file senza funzioni avviene sempre la stessa cosa va da a 21 ad a249 ciao

[Anthony47]

Mah, non sapendo il motivo dello strano comportamento che descrivi e' inutile provare altre soluzioni; magari potresti allegare un file dimostrativo in cui si verifica quanto dici…

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[giulioc.tempestilli]

<a href=http://www.filedropper.com/prova_6><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file backup online</a></div>
Sopra c'è il file prova salvato nel foglio 1 la mia fuzione che opera su tutta la colonna e non funziona rng, nel secondo foglio la funzione di klingklanga

[giulioc.tempestilli]

scusate il link del file è
http://www.filedropper.com/prova_6

[klingklang]

Ti confermo che anche il tuo file, sul mio PC, ha esattamente il comportamento atteso. A questo punto, non avendo né sotto mano il tuo PC, né idee brillanti su cosa possa determinare il suo anomalo comportamento, non mi resta che congedarmi; magari l'unico consiglio che posso darti è disinstallare e reinstallare Office...

[Anthony47]

Ovviamente anche a me il funzionamento e' regolare…

Prima di reinstallare si puo' provare a fare un "Ripristino di Office";
-in Office 2010 e superiore: chiudere tutti i programmi Office; Pannello di controllo /Programmi e funzionalita'; Selezionare Office 2010, Cambia, Ripristino
In Office 2003: Menu /? /Rileva problemi e ripristina

Questo dando per scontato che non hai fatto personalizzazioni esotiche a livello Excel.

Ciao

[giulioc.tempestilli]

Vi ringrazio a tutti

[giulioc.tempestilli]

Per evitare i miei errori ho inserito
On Error Resume Next
grazie a tutti