Condividi:        

andare a capo di una riga excel vba

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 12/12/18 09:56

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?
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Sponsor
 

Re: andare a capo di una riga excel vba

Postdi klingklang » 12/12/18 11:33

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 :)
Enrico
Windows 7 + Office 2016 64bit / Windows 10 + Office 365 32/64bit
Avatar utente
klingklang
Utente Junior
 
Post: 97
Iscritto il: 23/11/18 15:01
Località: San Giovanni in Persiceto

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 12/12/18 11:48

Mi dispiace non mi funziona va direttamente da a21 ad a249.
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Re: andare a capo di una riga excel vba

Postdi klingklang » 12/12/18 12:04

:eeh: 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...
Enrico
Windows 7 + Office 2016 64bit / Windows 10 + Office 365 32/64bit
Avatar utente
klingklang
Utente Junior
 
Post: 97
Iscritto il: 23/11/18 15:01
Località: San Giovanni in Persiceto

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 12/12/18 13:14

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
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Re: andare a capo di una riga excel vba

Postdi Anthony47 » 13/12/18 01:16

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 13/12/18 10:57

<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
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 13/12/18 11:01

scusate il link del file è
http://www.filedropper.com/prova_6
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Re: andare a capo di una riga excel vba

Postdi klingklang » 13/12/18 12:18

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... Immagine
Enrico
Windows 7 + Office 2016 64bit / Windows 10 + Office 365 32/64bit
Avatar utente
klingklang
Utente Junior
 
Post: 97
Iscritto il: 23/11/18 15:01
Località: San Giovanni in Persiceto

Re: andare a capo di una riga excel vba

Postdi Anthony47 » 13/12/18 17:50

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 14/12/18 10:18

Vi ringrazio a tutti
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47

Re: andare a capo di una riga excel vba

Postdi giulioc.tempestilli » 14/12/18 16:08

Per evitare i miei errori ho inserito
On Error Resume Next
grazie a tutti
giulioc.tempestilli
Utente Junior
 
Post: 21
Iscritto il: 20/10/17 08:47


Torna a Applicazioni Office Windows


Topic correlati a "andare a capo di una riga excel vba":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti