creare elenco archivio dati da una fattura base utilizando excel.

avrei necessità di ricopiare i dati dalla fattura BASE (fattura) ad un elenco ARCHIVIO (archivio), che mantenga in memoria anche le prossime fatture che farò dalla stessa base. quindi ad ogni nuova fattura l'elenco si implementa riga per riga alla fine dei dati precedentemente memorizzati. ho cercato in rete, ma non viene spiegato bene la procedura. uso poco Vba, ma lo comprendo.
 

Informazioni domanda


Ultimo aggiornamento maggio 30, 2018 Visualizzazioni 1.538 Si applica a:
Risposta

egregio Mauro, sono riuscito ad inserire per la prima volta l'MsgBox nel foglio di lavoro e funziona, ma non riesco ad associarlo alla macro di salva_dati in archivio. ti colloco in copia la procedura che mi hai precedentemente fatto, per capire come fare + l'MsgBox creato.

<cut>

spero di avere un aiuto che mi permetta di concludere questo progetto. grazie della tua disponbilità.

Mi baso sul mio esempio, ma è semplice adattarlo. In grassetto le parti che riguardano l'utilizzo della MsgBox di conferma:

Public Sub mInserisciInStorico()

    Dim shFattura As Worksheet
    Dim shStorico As Worksheet
    Dim lRiga As Long
    Dim lng As Long
    Dim lRisposta As Long
   
    With ThisWorkbook
        Set shFattura = .Worksheets("Fattura")
        Set shStorico = .Worksheets("Storico")
    End With
   
    lRisposta = MsgBox("Inserire i dati nello storico?", vbYesNo + vbQuestion, "Inserimento dati")
   
    If lRisposta = vbYes Then
   
        lRiga = shStorico.Range("A" & shStorico.Rows.Count).End(xlUp).Row + 1
   
        With shFattura
       
            For lng = 5 To 15
                If .Range("A" & lng).Value <> "" Then
                    .Range("A" & lng & ":D" & lng).Copy
                    shStorico.Range("A" & lRiga).PasteSpecial xlPasteValues
                    shStorico.Range("E" & lRiga).Value = .Range("B2").Value
                    shStorico.Range("F" & lRiga).Value = .Range("D2").Value
                    lRiga = lRiga + 1
                End If
            Next
            Application.CutCopyMode = False
                   
        End With
       
    Else
        MsgBox "Nessun dato inserito nello storico", vbOKOnly + vbInformation, "Inserimento dati"
   
    End If
   
    Set shStorico = Nothing
    Set shFattura = Nothing
   
End Sub

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.