Salto di celle

[Zenit]

Avendo un foglio con alcune celle da compilare, c'è modo, premendo invio, di posizionarsi sulla cella succesiva da compilare, saltando le celle inutili che si trovano fra una e l'altra ?


Grazie

[Zenit]

Up

[steneroz]

Immagino che tu stia parlando di Excel.

La prima idea che mi viene in mente è quella di proteggere il documento, impostando prima come sbloccate le celle in cui potersi posizionare.

Le celle le imposti come sbloccate andando in Formato Celle->Protezione
La protezione del foglio la metti in Strumenti->Protezione->Proteggi foglio (non serve la password)
Nelle opzioni della protezione togli il flag dalla prima delle tante opzioni (Seleziona celle bloccate), mentre controlla che quella dopo (Seleziona celle sbloccate) sia selezionata.

A questo punto spostandosi di celle excel si posiziona solo nelle celle sbloccate.

[miciomao]

Questo esempio salta 3 righe verso il basso quando si scrive nella colonna G
a partire dalle coord G16, è abbastanza facile adattarlo a diverse esigenze cmq. devi inserire il codice in modalità visual basic su excel

' --- modificare i valori sotto per definire l'intervallo in cui deve operale la MACRO
Const RigaPri As Integer = 16 ' --- prima riga utile - equivale alla riga 16
Const RigaUlt As Integer = 49 ' --- ultima riga utile - equivale alla riga 49
Const ColPri As Byte = 7 ' --- prima colonna utile - equivale alla colonna G
Const ColUlt As Byte = 7 ' --- ultima colonna utile - equivale alla colonna G

Private Sub Worksheet_Change(ByVal MiaCella As Range)
    
    Dim MiaRiga As Integer
    Dim MiaCol As Byte
    MiaRiga = MiaCella.Row
    MiaCol = MiaCella.Column
    
    If MiaRiga >= RigaPri And MiaRiga <= RigaUlt And MiaCol >= ColPri And MiaCol <= ColUlt Then
            If MiaCol = ColUlt Then Cells(MiaRiga + 3, ColPri).Select Else Cells(MiaRiga, MiaCol + 2).Select
            If MiaRiga = RigaUlt And MiaCol = ColUlt Then Cells(RigaPri, ColPri).Select
    End If
   
End Sub

[Zenit]

Grazie