Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

restituisci valore dalla cella attiva in colonna

Ultimo Aggiornamento: 18/08/2017 19:06
Post: 57
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
18/08/2017 13:47

ciao a tutti
per favore sapresti dirmi se c’è una possibilità di identificare una qualsiasi cella attiva
( contenete qualsiasi valore ) dalla colonna A …che possa restituire il valore “1” in cella A 5 e se una qualsiasi cella attiva ( contenete qualsiasi valore ) in colonna B possa restituire il valore “2” sempre nella cella B5 così pure per la colonna C riportando il valore 3 ??????

ringrazio tantissimo

Marilena
Post: 1.550
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
18/08/2017 16:39

ciao
devi descrivere più dettagliatamente cosa vuoi, così come hai spiegato lascia spazio a innumerevoli soluzioni.

L'istruzione con la quale puoi verificare se la cella attiva contiene o no un valore è:

if activecell.value<>"" then
fai qualcosa....( per esempio: range("A5")=1 )

ma quando vuoi che questo avvenga?
- ogni volta che selezioni con il curosre (o mouse) una cella della col. A ?
- con doppio click sulla cella attiva?
- ecc..ecc

saluti



Domenico
Win 10 - Excel 2016
Post: 57
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
18/08/2017 18:13

ciao dodo grazie per l’intervento

chiedo scusa , il fatto è che ho scritto il post di fretta e ora mi rendo conto di aver sbagliato anche alcune indicazioni
allego un piccolo file con spiegazione

Saluti
Marilena
Post: 1.552
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
18/08/2017 18:54

Ciao
un modo, sfruttando il doppio click nella cella:

nel vbe del foglio interessato:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value <> "" Then
    Select Case Target.Column
        Case Is = 1
            Range("E1") = 1
        Case Is = 2
            Range("E1") = 2
        Case Is = 3
            Range("E1") = 3
    End Select
End If
Cancel = True
End Sub


Saluti
Domenico
Win 10 - Excel 2016
Post: 58
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
18/08/2017 19:06

GRAZIE Dodo perfetto [SM=x423017]




saluti

Marilena
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Riporta valore posizionato in colonna B in cella F1 (31 messaggi, agg.: 28/08/2017 12:09)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 02:25. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com