Lasciare la cella in modifica

Hai un problema con Excel?

Nuova discussione

Lasciare la cella "in modifica"
di zephiro (utente non iscritto) data: 03/06/2016 21:48:45
Si in effetti ero stato molto "oscuro" ma anche perchè la richiesta è molto particolare...
In pratica vorrei rendere massimamente semplice la vita all'utente e provo a esemplificare:
Se l'utente in una certa cella mi scrive "fattura pagata" si attiva una macro che nella cella a destra mi scrive "del " e l'utente dovrà quindi mettere la data della fattura, nella stessa cella, dopo la parola "del ".
Però per rendere appunto la vita molto semplice all'utente vorrei non fargli fare nemmeno la fatica di fare il doppio click sulla casella dove ho scritto "del " per andare a modificarla, ma fargli già trovare la cella "in modifica" con il cursore all'interno della cella medesima.

Boh non so se si capisce e se si puà fare :)

Grazie ciao.
di patel data: 03/06/2016 23:22:32
prova questa relativa alla cella D7, se non riesci allega un file di esempio funzionante
Sub Macro2() Range("D7") = 55 Range("D7").Select SendKeys "{F2}", True End Sub

di Marius44 data: 04/06/2016 12:10:58
Ciao Zephiro
tanto di cappello a patel (un affettuoso saluto) per il suggerimento veramente geniale al quale mi permetto di apportare una lieve modifica per far si che il tutto sia il più automatico possibile.
Nel modulo di Classe del Foglio dove l'Utente inserisce "Fattura pagata" (ho ipotizzato che l'immissione sia nella colonna 2 - la B), all'evento change metti la macro sotto riportata e, nella cella della stessa riga alla colonna 4 mostra quello che chiedi.

Ciao e fai sapere,
Mario

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
    If Target.Text = "Fattura pagata" Then
        Cells(Target.Row, 4) = "del "
        Cells(Target.Row, 4).Select
        SendKeys "{F2}", True
    End If
End If
End Sub

di zephiro (utente non iscritto) data: 05/06/2016 17:56:25
Complimenti Patel... Bravissimo.
E grazie mille anche a Mario.
Un saluto.

Vuoi Approfondire?