Tornare a casa

Hai un problema con Excel?

Nuova discussione

Tornare a casa...
di Nic82 data: 20/07/2010
Ciao a tutti,

ho impostato un programmino che mi deve calcolare alcuni valori: consiste in 3 blocchi with che contengono svariate condizione per effettuare i calcoli.
la condizione necessaria però per far si che funzioni, è che durante l'esecuzione della sub, dopo ogni blocco with, il programma mi ritorni a selezionare la cella attiva di partenza.

cioè io mi metto in d10 e lancio la macro, poi ogni volta che mi esegue un blocco with deve ritornami in d10...come cavolo faccio a memorizzare l'indirizzo di questa cella attiva???

le ho provate tutte, vedete sotto un esempio!
Dim Xcella As Long Dim Ycella As Integer Xcella = ActiveCell.Row Ycella = ActiveCell.Column With Range ecc.... Range (Xcella,Ycella).select end with 'non funziona

di Locate (utente non iscritto) data: 20/07/2010
Ciao
al posto di range() usa cells() perche' ycella e xcella sono valori numerici e non lettere
ciao da locate

Sub ritorna()
Dim Xcella, Ycella
Xcella = ActiveCell.Row
Ycella = ActiveCell.Column
Range("a1") = Xcella
Range("a2") = Ycella
Range("b1").Select ''attiva provvisoriamente
Cells(Ycella, Xcella).Select ''ritorna a quella attiva di precedenza
End Sub

di Nic82 data: 20/07/2010
Grazie locate

ora la provo!

di Ricky53 (utente non iscritto) data: 21/07/2010
Ciao,
oppure anche in questo modo.

ciao da ricky53

...
Indirizzo = ActiveCell.Address 'Memorizza l'indirizzo della posizione di partenza
...
... ' Esegue le operazioni di cui hai necessità
...    
Range(Indirizzo).Select ' Si posiziona nella cella iniziale

di Nic82 data: 26/07/2010
Ciao ragazzi,

alla fine l'ho risolta in un modo un po' pacchiano...

mi funziona anche in questo modo...ovviamente così però per far si che la macro lavori correttamente devo mettermi nella giusta cella di partenza prima di lanciarla!!!

con metodo che mi suggerisci tu ricky invece posso memorizzare qualsiasi cella vero?

comunque ho una cosa un po' più complicata da sottoporvi...ora la posto...

grazie ancora per le vostre risposte!!!!
Set CellaIni = ActiveCell.Offset(0, 0) CellaIni.select

Vuoi Approfondire?