Azione Tasto Tab



  • Azione Tasto Tab
    di Navarro17 data: 03/01/2013 00:59:02

    Chiedo suggerimenti per il seguente problema:
    Nel Foglio1 uso solamente il range di celle che và da C4 a F40 mi sposto tra le celle con il tasto Tab, è possibile delimitare l'azione di questo tasto, più precisamente se mi trovo nella cella F4 (ultima cella del range da me utilizzato) premendo il tasto Tab vorrei passare nella cella C5 e no nella cella F5.
    Saluti



  • di isy@ (utente non iscritto) data: 03/01/2013 01:46:14

    In un modulo aggiungiamo le seguenti macro, basta aggiungere una gestione eventi in apertura e cambio foglio e si automatizza il tutto


     
    Sub AbilitaTAB()
        Application.OnKey "{TAB}", "SaltoTab"
    End Sub
    
    Sub DisabilitaTAB()
        Application.OnKey "+^{RIGHT}"
    End Sub
    
    Sub SaltoTab()
        If ActiveCell.Column > 5 Then
            If ActiveCell.Row > 40 Then
                Cells(4, 3).Select
            Else
                If ActiveCell.Row < 4 Then
                    Cells(4, 3).Select
                Else
                    If ActiveCell.Row = 40 Then
                        Cells(4, 3).Select
                    Else
                        Cells(ActiveCell.Row + 1, 3).Select
                    End If
                End If
            End If
        Else
            If ActiveCell.Row > 40 Then
                Cells(4, 3).Select
            Else
                If ActiveCell.Column < 2 Then
                    If ActiveCell.Row < 4 Then
                        Cells(4, 3).Select
                    Else
                        Cells(ActiveCell.Row, 3).Select
                    End If
                Else
                    If ActiveCell.Row < 4 Then
                        Cells(4, 3).Select
                    Else
                        ActiveCell.Offset(0, 1).Select
                    End If
                End If
            End If
        End If
    End Sub
    



  • di isy@ (utente non iscritto) data: 03/01/2013 01:49:21

    Errata corrige, sostituire la seguente: Sub DisabilitaTAB()
     
    Sub DisabilitaTAB()
        Application.OnKey "{TAB}"
    End Sub



  • di Vecchio Frac data: 03/01/2013 08:06:23

    Proposta alternativa, senza programmazione: evidenzia il range di celle che possono essere modificate, impostale come non bloccate, quindi proteggi il foglio consentendo la modifica delle sole celle non bloccate.

    Per isy@:
    perchè non ti registri al forum? intervieni poco ma quando lo fai, lo fai con precisione e accuratezza e mi piace sempre il codice che scrivi.