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

FAR PARTIRE MACRO DA UN PUNTO PRECISO

Ultimo Aggiornamento: 01/03/2017 15:03
Post: 1
Registrato il: 24/02/2017
Età: 21
Utente Junior
2010
OFFLINE
24/02/2017 17:02

Buon pomeriggio,
ho un piccolo problemino che probabilmente è già stato affrontato ma non riesco a trovare nulla di simile.
Ho registrato una macro con inserimento automatico di determinate righe, il problema è che non mi inserisce le righe dal punto che determino, ma sembre dalla stessa riga... come posso risolvere la cosa??
Spero di essermi spiegata :( [SM=x423054]

Sub Macro7()
'
' Macro7 Macro
'

'
Range("A29:S29").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("A30").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("A31").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=6
Range("G28").Select
Selection.AutoFill Destination:=Range("G28:G34"), Type:=xlFillDefault
Range("G28:G34").Select
Range("J28").Select
Selection.AutoFill Destination:=Range("J28:J34"), Type:=xlFillDefault
Range("J28:J34").Select
Range("M28").Select
Selection.AutoFill Destination:=Range("M28:M34"), Type:=xlFillDefault
Range("M28:M34").Select
Range("Q28").Select
Selection.AutoFill Destination:=Range("Q28:Q34"), Type:=xlFillDefault
Range("Q28:Q34").Select
Range("A29:S29,A31:S31,A33:S33").Select
Range("A33").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Post: 1
Registrato il: 24/02/2017
Età: 21
Utente Junior
2010
OFFLINE
24/02/2017 17:43

c'è nessunoooooooooooooo?????
Post: 2.825
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
24/02/2017 17:56

Ciao Vanessa

Beh dire "C'è nessuno" dopo appena 4o minuti dalla richiesta non ti sembra eccessivo? [SM=g27828]

Comunque, a prescindere dalla tua macro (che presumo registrata), prova allegare un file di esempio con dati fittizi, spiegazione e risultato desiderato inserito a mano.


Alfredo
Post: 2
Registrato il: 24/02/2017
Età: 21
Utente Junior
2010
OFFLINE
24/02/2017 18:12

Chiedo troppo dopo 40 minuti dici??
Non sono mai entrata in un forum per scrivere.. ma solo per leggere!!! [SM=x423030]

Comunque ho allegato il file..
Post: 2.827
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
24/02/2017 19:13

Ciao Vanessa

La mia era solo una battuta ma, devi sapere, che sui forum ognuno risponde come e quando può per cui - una volta postata la richiesta si attende con cristiana pazienza [SM=g27828] [SM=g27828]

Ora darò uno sguardo al tuo file e se sarò in grado di aiutarti sarò ben felice di farlo; e se non sarò in grado io ci sarà di sicuro qualcun altro.

Alfredo
Post: 2.828
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
24/02/2017 19:21

Dunque Vanessa ho guardato il file ma non ho ben capito cosa vuoi fare.

Ho visto il pulsante che credo sia collegato alla macro che hai postato prima.

Puoi spiegare a parole e con riferimento ai dati presenti sul foglio "PRIMA NOTA 17" cosa dovrebbe fare la macro?

Alfredo
Post: 17
Registrato il: 04/11/2016
Città: FIUMICINO
Età: 39
Utente Junior
Excel 2003
OFFLINE
25/02/2017 10:00

Pazienza Alfredo, come tutti i giovani di oggi vorrebbero "pronto e subito". La macro postata da Vanessa, che fra l'altro non esiste nell'editor di VB, dovrebbe inserire 5 righe a partire dalla riga 28, dove non esistono dati, e copiare nelle 5 righe nuove i soli dati dei "Saldo", presi però dalla riga 28 che è completamente vuota.
Perciò senza chiarimenti di Vanessa non si può fare nulla.
Post: 770
Registrato il: 24/04/2004
Città: TERAMO
Età: 63
Utente Senior
2010
OFFLINE
25/02/2017 10:52

Re:
Riky0185, 25/02/2017 10.00:

Pazienza Alfredo, come tutti i giovani di oggi vorrebbero "pronto e subito".

Credo di avere una soluzione per questo. Introdurre una nuova materia obbligatoria a scuola: coltivazione di un bonsai, e chi non riesce non becca il diploma e nemmeno la laurea![SM=x423032]
[SM=x423026]


__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 18
Registrato il: 04/11/2016
Città: FIUMICINO
Età: 39
Utente Junior
Excel 2003
OFFLINE
25/02/2017 11:57

Zero...piacere di rivederti.
Fra l'altro il file allegato da Vanessa contiene dei collegamenti ad altri files i cui dati probabilmente dovrebbero occupare le celle da cui attivare la macro7. Ma i files non ci sono. Perciò Vanessa dovrebbe trasformare in valori i dati di questi collegamenti e spiegare, come suggerito da Alfredo, che saluto, cosa vuole ottenere.
Post: 2.831
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
25/02/2017 12:18

Marco bentornato!
[Modificato da alfrimpa 25/02/2017 12:19]

Alfredo
Post: 3
Registrato il: 24/02/2017
Età: 21
Utente Junior
2010
OFFLINE
01/03/2017 14:29

Intanto volevo farvi presente che non sono una bimba ma ho 30 anni..

Onestamente non ho molto tempo per studiare bene il discorso excel e mando avanti un'attività..
Riprovo a spiegare il quesito ma non sono sicura di esprimermi bene!

Il bottone 5 righe, mi inserisce in automatico ovviamente le righe ed ho registrato la macro per ottenerlo.. il problema nasce dal fatto che ho bisogno di inserire le righe dal punto che indico al cursore (riga 10 piuttosto che 20) e non sempre dal punto di origine della macro..

Post: 2.864
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
01/03/2017 15:03

Ciao Vanessa

Nessuno aveva dubitato che fossi una donna e non una bambina [SM=g27828] .

Comunque prova questa macro che inserisce 5 righe vuote al di sotto della cella attiva (quella dove è il cursore).

vb
Sub Macro1()
Dim i As Integer
For i = 1 To 5
    Selection.Insert Shift:=xlDown
Next i
End Sub



Non so se era questo quello che volevi.

E poi consentimi di dire una cosa visto che ho più del doppio della tua età: se vuoi utilizzare Excel (programma dalle enormi potenzialità) un minimo di tempo e di studio lo devi mettere in preventivo altrimenti sarai sempre dipendente dagli altri per la risoluzione dei problemi che inevitabilmente incontrerai.
[Modificato da alfrimpa 01/03/2017 16:25]

Alfredo
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:23. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com