Condividi:        

Excel passa alla riga successiva in automatico

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

Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 20:13

Ciao,non sò se è fattibile,
mi servirebbe una Funzione che mi passa in automatico la riga successiva alla cella attiva,
esempio se clicco una cella della riga 1 in automatico dovrebbe passare alla riga successiva ,
questo per evitare che ogni volta usi lo scroll del mouse.
esempio tipo quando si preme il tasto freccia in giu
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel passa alla riga successiva in automatico

Postdi PcBase » 28/08/11 20:59

Ciao

Se usi Excel 2003 prova ad impostare i parametri vedi immagine

Immagine

Uploaded with ImageShack.us
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 143
Iscritto il: 24/02/11 23:26

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 21:08

Ciao PcBase,
questa opzione c'è lo gia attiva,
quando una cella qualsiasi della riga diventa attiva.
deve passare alla riga successiva
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 21:30

Vorrei chiarire meglio il concetto,
quello che vorrei fare ,è che quando si attiva una cella di una riga,
il foglio dovrebbe spostarsi in automatico verso l'alto di una riga,
questo per evitare di usare lo scroll del mouse di continuo.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 22:13

Ok ho risolto ,mi sembra che funzioni .
anche se,
sono sicuro che c'è qualcosa di non esatto.
sembra che funziona su qualsiasi cella e non del range selezionato ,ma funziona.
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Cell In Range("D2:G600")
       
   
    ActiveWindow.SmallScroll Down:=1
    Exit Sub
    Next Cell
End Sub

funziona anche così

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       
        ActiveWindow.SmallScroll Down:=1
    End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 22:34

Ho messo anche un ritardo di 8 secondi prima di spostare la riga in alto,
così va ancora meglio.


Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Application.OnTime Now + TimeValue("00:00:8"), "sposta"
            End Sub
sub sposta()
ActiveWindow.SmallScroll Down:=1
end sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi PcBase » 28/08/11 22:40

Ciao

Un po complessa ma prova così,
In un modulo:

Codice: Seleziona tutto
Public Riga As Variant
Public Posizionamento As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Riga = ActiveCell.Row Then Exit Sub
    Application.EnableEvents = False
    If Riga >= ActiveCell.Row Then
        Posizionamento = ActiveWindow.ScrollRow - 1
        If Posizionamento = 0 Then Posizionamento = 1
    Else
        Posizionamento = ActiveWindow.ScrollRow + 1
    End If
    Riga = ActiveCell.Row
    Colonna = ActiveCell.Column
    Cells(10, 1) = Posizionamento
    Application.Goto Reference:=Cells(Posizionamento, ActiveWindow.ScrollColumn), scroll:=True
    Cells(Riga, Colonna).Select
    Application.EnableEvents = True
End Sub


Qui ancora non intercetta il range...
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 143
Iscritto il: 24/02/11 23:26

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 28/08/11 22:47

ok funziona,
ma ho un problema va in conflitto con un altra funzione
che ha la stessa intestazione
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 29/08/11 09:45

Ciao a tutti,
ho risolto con una soluzione più comoda.
se la risposta è esatta passa alla riga successiva,tramite conferma
altrimenti esce.
però ho ancora un problema il tutto si dovrebbe attivare solo sulle le colonne D:G
Codice: Seleziona tutto
Dim risposta
risposta = MsgBox("Risposta esatta ?", vbYesNo)
If risposta = vbYes Then
ActiveWindow.SmallScroll Down:=1
Else
Exit Sub
End If
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel passa alla riga successiva in automatico

Postdi Statix » 29/08/11 10:34

Scusate ho risolto spostando il listato della macro all'interno di un'altra macro.
grazie PCBase
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Excel passa alla riga successiva in automatico":


Chi c’è in linea

Visitano il forum: Nessuno e 70 ospiti