come far terminare ...
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

come far terminare una macro

4 Post
3 Utenti
0 Reactions
351 Visualizzazioni
Forum 1
(@mandre)
Post: 0
New Member
Avviatore di Topic
 

Buongiorno grazie per l'aiuto che mi potrete dare

non son molto capace ,quindi volevo sapere come faccio dopo aver registrato una macro su una riga di un foglio iniziale che va a prendere collegamenti di formule in altro foglio a fare terminare la macro e posizionarla sulla riga successiva pronta per fare un altra cosa grazie

Versione di Excel
Sistema operativo
 
Postato : 29/03/2024 16:59
gianfranco55
(@gianfranco55)
Post: 1797
Moderatore
 

ciao

dovresti almeno inserire la macro che usi

e specificare cosa vuoi fare

un file sarebbe ottimale

 
Postato : 29/03/2024 17:14
Forum 1
(@mandre)
Post: 0
New Member
Avviatore di Topic
 

@gianfranco55 

Sub collegamentofoglio()
'
' collegamentofoglio Macro
'

'
ActiveSheet.Unprotect
Range("C26").Select
ActiveCell.FormulaR1C1 = "='NUOVO E (3)'!R[-24]C[-2]"
Range("D26").Select
ActiveCell.FormulaR1C1 = "='NUOVO E (3)'!R[-25]C[14]"
Range("E26").Select
ActiveCell.FormulaR1C1 = "='NUOVO E (3)'!R[-5]C[8]"
Range("F26").Select
ActiveCell.FormulaR1C1 = "='NUOVO E (3)'!R[-5]C[-1]+'NUOVO E (3)'!R[-5]C[5]"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("NUOVO E (3)").Select
End Sub

 

questa è la macro dovrei alla fine che il cursore si posizioni sulla riga sottostante

terminando il ciclo e predisponendo per un nuovo comando o altra macro

grazie

 
Postato : 29/03/2024 18:29
emme
 emme
(@emme)
Post: 0
Moderatore
 

Scusa, ma facendo così ti parte sempre dalla stessa cella C26. Ci vuole una routine che inizi da dove è posizionato il cursore e scorra le righe per N (5?) volte. E, per favore, niente Select!!! Velocemente:

C= ActiveCell.Column (es.: cursore su colonna C: C = 3)

R = ActiveCell.Row (es.: cursore su riga 26: R = 26)

For RL = R+1 to R + 5 (quindi da 27 a 31)

Cells(RL, C) = qui la tua formula

If RL = R + 5 Then

Cells(RL, C) = qui l'ultima formula (nuovo + nuovo)

End If

Next R

E basta.

Eventualmente potresti inserire dei controlli per verificare che il cursore si trovi su una riga che ti piace particolarmente, o che contenga dati e non formule, e via discorrendo. Comincia a smanettare, magari con dati farlocchi, e vede cosa succede

Questo post è stato modificato 11 mesi fa da emme
 
Postato : 04/04/2024 16:48
Condividi:
My Agile Privacy
Questo sito utilizza cookie tecnici e di profilazione. Cliccando su accetta si autorizzano tutti i cookie di profilazione. Cliccando su rifiuta o la X si rifiutano tutti i cookie di profilazione. Cliccando su personalizza è possibile selezionare quali cookie di profilazione attivare.
Attenzione: alcune funzionalità di questa pagina potrebbero essere bloccate a seguito delle tue scelte privacy
     Scarica il nostro ebook gratuito     

Unisciti a oltre 35.000 professionisti
che hanno già scelto di semplificare il proprio lavoro
e aumentare la produttività con la nostra newsletter!

Scarica l’ebook con i
migliori trucchi e suggerimenti per Excel
selezionati per te da Excel Academy

Download