Excel passa alla riga successiva in automatico

[Statix]

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

[PcBase]

Ciao

Se usi Excel 2003 prova ad impostare i parametri vedi immagine



Uploaded with ImageShack.us

[Statix]

Ciao PcBase,
questa opzione c'è lo gia attiva,
quando una cella qualsiasi della riga diventa attiva.
deve passare alla riga successiva

[Statix]

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]

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]

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

[PcBase]

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...

[Statix]

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]

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]

Scusate ho risolto spostando il listato della macro all'interno di un'altra macro.
grazie PCBase