È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

FAR PARTIRE MACRO DA UN PUNTO PRECISO

  • Messaggi
  • OFFLINE
    Vanessa Costantini
    Post: 1
    Registrato il: 24/02/2017
    Età: 21
    Utente Junior
    2010
    00 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
  • OFFLINE
    Vanessa Costantini
    Post: 1
    Registrato il: 24/02/2017
    Età: 21
    Utente Junior
    2010
    00 24/02/2017 17:43
    c'è nessunoooooooooooooo?????
  • OFFLINE
    alfrimpa
    Post: 2.825
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Veteran
    Excel 365
    00 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
  • OFFLINE
    Vanessa Costantini
    Post: 2
    Registrato il: 24/02/2017
    Età: 21
    Utente Junior
    2010
    00 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..
  • OFFLINE
    alfrimpa
    Post: 2.827
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Veteran
    Excel 365
    00 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
  • OFFLINE
    alfrimpa
    Post: 2.828
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Veteran
    Excel 365
    00 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
  • OFFLINE
    Riky0185
    Post: 17
    Registrato il: 04/11/2016
    Città: FIUMICINO
    Età: 39
    Utente Junior
    Excel 2003
    00 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.
  • OFFLINE
    Zer0kelvin
    Post: 770
    Registrato il: 24/04/2004
    Città: TERAMO
    Età: 63
    Utente Senior
    2010
    00 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)
  • OFFLINE
    Riky0185
    Post: 18
    Registrato il: 04/11/2016
    Città: FIUMICINO
    Età: 39
    Utente Junior
    Excel 2003
    00 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.
  • OFFLINE
    alfrimpa
    Post: 2.831
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Veteran
    Excel 365
    00 25/02/2017 12:18
    Marco bentornato!
    [Modificato da alfrimpa 25/02/2017 12:19]

    Alfredo
  • OFFLINE
    Vanessa Costantini
    Post: 3
    Registrato il: 24/02/2017
    Età: 21
    Utente Junior
    2010
    00 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..

  • OFFLINE
    alfrimpa
    Post: 2.864
    Registrato il: 21/06/2013
    Città: NAPOLI
    Età: 70
    Utente Veteran
    Excel 365
    00 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