Risultati da 1 a 16 di 16

Discussione: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi



  1. #1
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Buongiorno !

    Allego un file di esempio dove, nel Foglio1 c'Ŕ una tabella che raccoglie i dati e poi tramite pulsanti li invia ad altre tabelle archivio nel Foglio2 o nel Foglio3.
    Il pulsante Foglio2 ha la sua macro, e funziona egregiamente !!!
    Il pulsante Foglio3 ha un'altra macro, simile a quella di Foglio2, ma mi restituisce i dati in modo errato.

    Potete verificare anche Voi facendo una prova.

    La differenza tra le due macro Ŕ:
    - la prima funziona perchÚ l'inserimento dei dati avviene su una tabella archivio (Foglio2) che ha giÓ dei nominativi;
    - la seconda cerca di inserire i nominativi partendo dall'inizio, cioŔ al momento di passare i dati nella tabella archivio (Foglio3) non ci sono nominativi.

    Come si pu˛ risolvere ?

    Grazie.
    Cordiali saluti a tutti.
    File Allegati File Allegati

  2. #2
    L'avatar di Irclen
    Clicca e Apri
    Data Registrazione
    Jul 2016
    LocalitÓ
    Quarrata
    EtÓ
    48
    Messaggi
    165
    Versione Office
    Office2016
    Likes ricevuti
    5
    Likes dati
    7

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Ciao, prova a riempire la prima riga a mano e vedi poi se sotto li mette o no. :)
    No non funziona.
    Comunque la prima riga quando registri la macro per archiviare, deve essere piena. :)
    "Tutto ci˛ che la tua mano trova da fare, fallo con la tua medesima potenza, poichÚ non cĺŔ lavoro nÚ disegno nÚ conoscenza nÚ sapienza nello Sceol, il luogo al quale vaiö (Dio)

  3. #3
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Nel Foglio3 c'Ŕ la tabella archivio con le intestazioni.
    Sotto Ŕ vuota.
    E' lý che i dati si devono inserire.

  4. #4
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Se pu˛ essere utile riporto le due macro.

    Questa Ŕ quella che funziona (Foglio2):
    Codice: 
    Sub InviaDatiNelFoglioArchiviaFoglio2()'
    ' InviaDatiNelFoglioArchivia Macro
    ' Invia Dati Nel Foglio Archivia (Foglio2)
    '
    
    
        Application.ScreenUpdating = False      'CON QUESTO COMANDO EVITO DI VEDERE QUANDO EXCEL ESEGUE IL LAVORO
        
        Range("C5:C6").Select
        Selection.Copy
        Sheets("Foglio2").Select
        Range("B4").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        ActiveCell.Offset(0, 2).Range("A1").Select   'QUESTO COMANDO FA RIFERIMENTO AL PULSANTE "USA RIFERIMENTI RELATIVI"
        Sheets("Foglio1").Select
        Application.CutCopyMode = False
        Range("C7").Select
        Selection.Copy
        Sheets("Foglio2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Sheets("Foglio2").Select
        ActiveCell.Offset(0, 1).Range("A1").Select          'QUESTO COMANDO FA RIFERIMENTO AL PULSANTE "USA RIFERIMENTI RELATIVI"
        Sheets("Foglio1").Select
        Range("C8:C10").Select
        Selection.Copy
        Sheets("Foglio2").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Sheets("Foglio2").Select
        ActiveCell.Offset(0, 3).Range("A1").Select          'QUESTO COMANDO FA RIFERIMENTO AL PULSANTE "USA RIFERIMENTI RELATIVI"
        Sheets("Foglio1").Select
        Range("C11").Select
        Selection.Copy
        Sheets("Foglio2").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Sheets("Foglio2").Select
        ActiveCell.Offset(0, 1).Range("A1").Select          'QUESTO COMANDO FA RIFERIMENTO AL PULSANTE "USA RIFERIMENTI RELATIVI"
        Sheets("Foglio1").Select
        ActiveCell.Offset(-6, 0).Range("A1:A6").Select      'QUESTO COMANDO FA RIFERIMENTO AL PULSANTE "USA RIFERIMENTI RELATIVI"
        Selection.ClearContents
        ActiveCell.Select
    End Sub
    e quest'altra macro Ŕ quella che non funziona (Foglio3):
    Codice: 
     
    Sub InviaDatiNelFoglioArchivioFoglio3()
    '
    ' InviaDatiNelFoglioArchivio3 Macro
    ' Invia Dati Nel Foglio Archivio Foglio 3
    ' con questa macro l'inserimento viene sfasato di 7 colonna verso sinistra
    
    
    ' come si corregge ???
    
    
        Application.ScreenUpdating = False
        
        Range("C5:C6").Select
        Selection.Copy
        Sheets("Foglio3").Select
        ActiveCell.Offset(1, 0).Range("B4").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        ActiveCell.Offset(0, 2).Range("B4").Select
        Sheets("Foglio1").Select
        Range("C7").Select
        Selection.Copy
        Sheets("Foglio3").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        ActiveCell.Offset(0, 1).Range("B4").Select
        Sheets("Foglio1").Select
        Range("C8:C10").Select
        Selection.Copy
        Sheets("Foglio3").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        ActiveCell.Offset(0, 3).Range("B4").Select
        Sheets("Foglio1").Select
        Range("C11").Select
        Selection.Copy
        Sheets("Foglio3").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        ActiveCell.Offset(0, 1).Range("B4").Select
        Sheets("Foglio1").Select
        Range("C5:C10").Select
        Selection.ClearContents
        Range("C5").Select
    End Sub

  5. #5
    L'avatar di Irclen
    Clicca e Apri
    Data Registrazione
    Jul 2016
    LocalitÓ
    Quarrata
    EtÓ
    48
    Messaggi
    165
    Versione Office
    Office2016
    Likes ricevuti
    5
    Likes dati
    7

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    In registrazione, ci si deve spostare nella prima cella vuota dall'alto, usando i riferimenti relativi o assoluti, non ricordo bene. :)
    "Tutto ci˛ che la tua mano trova da fare, fallo con la tua medesima potenza, poichÚ non cĺŔ lavoro nÚ disegno nÚ conoscenza nÚ sapienza nello Sceol, il luogo al quale vaiö (Dio)

  6. #6
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Citazione Originariamente Scritto da Irclen Visualizza Messaggio
    In registrazione, ci si deve spostare nella prima cella vuota dall'alto, usando i riferimenti relativi. :)
    Cosý ho fatto nella seconda macro.

    Nel file allegato si vedono le due macro ?

    Ho provato ad allegarle ma Ŕ uscito un messaggio che dice che il mio messaggio dev'essere approvato da un moderatore.

  7. #7
    L'avatar di Irclen
    Clicca e Apri
    Data Registrazione
    Jul 2016
    LocalitÓ
    Quarrata
    EtÓ
    48
    Messaggi
    165
    Versione Office
    Office2016
    Likes ricevuti
    5
    Likes dati
    7

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Mi sa che allora sono quelli assoluti i riferimenti per spostarsi.
    Si nel file allegato ci sono le macro.
    Gli esperti ti aiuteranno.
    Comunque c'Ŕ un video in Excel in pillole di Gerardo
    che archivia i dati cosý. :) Semmai guardalo.
    Ciao.
    "Tutto ci˛ che la tua mano trova da fare, fallo con la tua medesima potenza, poichÚ non cĺŔ lavoro nÚ disegno nÚ conoscenza nÚ sapienza nello Sceol, il luogo al quale vaiö (Dio)

  8. #8
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Il video l'ho visto, per˛ non dice come fare per cominciare ad archiviare con il primo nominativo.

  9. #9
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Prova cosý:

    Codice: 
    Option Explicit
    
    Sub InviaDatiNelFoglioArchiviaFoglio2()
    Application.ScreenUpdating = False
    Range("C5:C11").Copy
    Sheets("Foglio2").Range("B4").End(xlDown).Offset(1, 0). _
        PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("C5:C10").ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub
    
    Sub InviaDatiNelFoglioArchivioFoglio3()
    Application.ScreenUpdating = False
    Range("C5:C11").Copy
    Sheets("Foglio3").Range("B1").End(xlDown).Offset(1, 0). _
        PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("C5:C10").ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub

  10. I seguenti utenti hanno dato un "Like"


  11. #10
    L'avatar di Irclen
    Clicca e Apri
    Data Registrazione
    Jul 2016
    LocalitÓ
    Quarrata
    EtÓ
    48
    Messaggi
    165
    Versione Office
    Office2016
    Likes ricevuti
    5
    Likes dati
    7

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Il primo nominativo ci deve gia essere, mi sembra.
    Poi quando ci si sposta sul foglio la cella attiva deve essere quella sopra alla prima vuota.
    Grande Cuc¨. Ho notato che io e te ci siamo registrati al forum il solito mese. :)
    "Tutto ci˛ che la tua mano trova da fare, fallo con la tua medesima potenza, poichÚ non cĺŔ lavoro nÚ disegno nÚ conoscenza nÚ sapienza nello Sceol, il luogo al quale vaiö (Dio)

  12. I seguenti utenti hanno dato un "Like"


  13. #11
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Prova cosý:

    Codice: 
    Option Explicit
    
    Sub InviaDatiNelFoglioArchiviaFoglio2()
    Application.ScreenUpdating = False
    Range("C5:C11").Copy
    Sheets("Foglio2").Range("B4").End(xlDown).Offset(1, 0). _
        PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("C5:C10").ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub
    
    Sub InviaDatiNelFoglioArchivioFoglio3()
    Application.ScreenUpdating = False
    Range("C5:C11").Copy
    Sheets("Foglio3").Range("B1").End(xlDown).Offset(1, 0). _
        PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Range("C5:C10").ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    End Sub
    Ti ringrazio della collaborazione.
    Con il secondo codice (Ŕ quello che mi serve) adesso mi inserisce correttamente il primo nominativo al posto giusto.
    Per˛ ai successivi inserimenti, il primo nominativo viene sovrascritto. Non va bene.

  14. #12
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Sorry
    piccole errore

    Codice: 
    Option Explicit
    Sub InviaDatiNelFoglioArchiviaFoglio2()
        Application.ScreenUpdating = False
        Range("C5:C11").Copy
        Sheets("Foglio2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        Range("C5:C10").ClearContents
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End Sub
    Sub InviaDatiNelFoglioArchivioFoglio3()
        Application.ScreenUpdating = False
        Range("C5:C11").Copy
        Sheets("Foglio3").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        Range("C5:C10").ClearContents
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End Sub

  15. #13
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Stavolta funziona. Ti ringrazio.
    C'Ŕ solo da capire come implementare in quel codice la formattazione che devono avere le celle che accolgono i dati.
    Ad esempio, le date e l'importo. Ho dovuto aggiungere io la formattazione.
    In che punto del codice va inserita la formattazione ?

  16. #14
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Per quanto mi riguarda, visto che con VBA non vai proprio fortissimo, mi permetto di consigliarti di formattare a mano l'intero range che ti interessa (lo fai solo una volta, con i bordi, lo sfondo il formato che desideri etc etc...) e dopo non avrai pi¨ problemi, il codice ti risulterÓ pi¨ leggero e tu riuscirai a gestirlo meglio...

  17. #15
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Per quanto mi riguarda, visto che con VBA non vai proprio fortissimo, mi permetto di consigliarti di formattare a mano l'intero range che ti interessa (lo fai solo una volta, con i bordi, lo sfondo il formato che desideri etc etc...) e dopo non avrai pi¨ problemi, il codice ti risulterÓ pi¨ leggero e tu riuscirai a gestirlo meglio...
    Mi sa che hai ragione !!

    Giusto per provare, in Menu - Inserisci - Tabella, range B4:H5, ho creato una tabella archivio, e l'ho formattata con griglia, date e valuta.
    Poi, nel foglio data entry ho inserito i dati da spedire in quella tabella archivio.
    La seconda riga Ŕ rimasta vuota, mentre a partire da B6:H6 a scendere i dati si incolonnano perfettamente e con formattazione.

    Saluti

  18. #16
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    315
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Come archiviare i dati registrando una macro con riferimenti assoluti e relativi

    Mi sa di si

Discussioni Simili

  1. Riferimenti relativi e assoluti in VBA
    Di giugar nel forum Domande su Excel VBA e MACRO
    Risposte: 22
    Ultimo Messaggio: 04/11/16, 08:50
  2. Risposte: 23
    Ultimo Messaggio: 23/02/16, 12:16
  3. Riferimenti assoluti e relativi con windows 10
    Di Pabexcel nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 11/09/15, 16:08
  4. EP56 le MACRO di excel per ARCHIVIARE dati ( Macro assolutI e relativI)
    Di giackko86 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 10/09/15, 22:59
  5. 56 le MACRO di excel per ARCHIVIARE dati ( Macro assolutI e relativI)
    Di giackko86 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 10/09/15, 20:41

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •