Riferimento a celle

Hai un problema con Excel?

Nuova discussione

Riferimento a celle
di Marcut (utente non iscritto) data: 27/07/2010
Avrei bisogno di identificare in vb se mi trovo in un determinato gruppo di celle. esiste una funzione specifica? se no c'è qualcuno che mi puo aiutare?
grazie
di Ricky53 (utente non iscritto) data: 10/08/2010
Ciao,
cerchiamo di capire bene la tua esigenza:
tu vuoi verifcare se hai fatto click in una cella che è contenuta in un intervallo che hai definito e, nel caso sia così, vuoi fare una determinata azione ???

ciao da ricky53
di Marcut (utente non iscritto) data: 12/08/2010
Ciao ricky53, ti ringrazio di avermi risposto. praticamente la funzione serve per fare in modo che quando mi trovo in una cella,di un determinato gruppo, se premo invio e la cella è vuota, devo copiare il valore che si trova immediatamente sopra a questa.
se posso approfittare, avrei anche un altro quesito a proposito della funzione getobject da usare per stampare un report di access tramite una macro di excell.
grazie ancora.
marcut
di Ricky53 (utente non iscritto) data: 12/08/2010
Caio,
per access non posso aiutarti.

per il tuo quesito iniziale: in che intervallo di cella ti vuoi muovere ???
sempre e solo la cella superiore ???

ciao da ricky53
di Marcut (utente non iscritto) data: 14/08/2010
Si deve copiare solo dalla cella superiore.
ciao, marcut

di Ricky53 (utente non iscritto) data: 14/08/2010
Ciao,
copia quanto ti invio nel vba project, in microsoft excel oggetti, nel foglio sul quale vuoi operare.
l'intervallo che ho scelto io è "a1:e10", modifica, nella macro, il valore in base ai tuoi dati

ciao da ricky53

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Intervallo = "A1:E10" ' <<<=== qui devi modificare l'intervallo
    If Application.Intersect(Target, Range(Intervallo)) Is Nothing Then
        MsgBox "La cella  '" & Target.Address & "'  che è stata selezionata è fuori dell'intervallo  '" & Intervallo & "'" & Chr(10) & "che è possibile selezionare."
        Exit Sub
    End If
    If Target.Value = "" Then
        If Target.Offset(-1, 0).Value = "" Then
            MsgBox "La cella  '" & Target.Address & "'  e la cella soprastante sono vuote"
        Else
            Target.Value = Target.Offset(-1, 0).Value
        End If
    Else
        MsgBox "La cella  '" & Target.Address & "'  che è stata selezionata non è vuota"
    End If
End Sub

di Marcut (utente non iscritto) data: 15/08/2010
Ciao ricky53
la sub che mi hai inviato va proprio al caso mio (naturalmente modificando dove serve). grazie molte.

marcut
di Ricky53 (utente non iscritto) data: 16/08/2010
Ciao,
di nulla.
alla prossima.

ciao da ricky53

Vuoi Approfondire?