spostamento cella attiva su filtro



  • spostamento cella attiva su filtro
    di diego (utente non iscritto) data: 26/02/2013 07:49:37

    all'interno di un form, ho due pulsanti che mi spostano la cella attiva del foglio di lavoro in sù di una riga o in giù di una riga. Se sul foglio di lavoro è impostato il filtro automatico, quindi delle righe sono nascoste, quando premo il pulsante la cella attiva si sposta sulla riga adiacente, ma se questa è nascosta, lo spostamento non mi serve a nulla, devo continuare a premere il pulsante fino a quando va sulla riga filtrata. Come faccio alla pressione del pulsante a spostarmi direttamente sulla cella filtrata successiva?
    spero di essere stato chiaro.
    diego



  • di Vecchio Frac data: 26/02/2013 14:33:13

    La sub che segue sposta giù la cella attiva di una riga finchè non incontra una riga non nascosta.
     
    Sub sposta_giu()
        Do
            ActiveCell.Offset(1).Select
        Loop Until Not (ActiveCell.EntireRow.Hidden)
    End Sub