You are here:---Rispondi a: [RISOLTO] Inserimento dati da valori con etichetta
Rispondi a: [RISOLTO] Inserimento dati da valori con etichetta 2018-11-05T12:24:15+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Inserimento dati da valori con etichetta Rispondi a: [RISOLTO] Inserimento dati da valori con etichetta

BySalvBySalv
Amministratore del forum
    Post totali: 319

    Ciao Gene, non avevo capito che bisognava prendere i dati dal foglio Incident a DB, avevo capito il contrario da DB ad incident.

    ti ho rifatto la macro, rinominando la vecchia, ecco la macro

    Sub CreaDB()
    Dim r, c, sh1 As Worksheet, sh2 As Worksheet
    
    Set sh1 = Worksheets("DB")
    Set sh2 = Worksheets("Incident Investigation")
    sh1.Activate
    r = sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1
    sh1.Cells(r, 1) = sh2.Cells(6, 3)
    sh1.Cells(r, 3) = sh2.Cells(6, 17)
    sh1.Cells(r, 4) = sh2.Cells(9, 24)
    sh1.Cells(r, 5) = sh2.Cells(6, 6)
    sh1.Cells(r, 7) = sh2.Cells(6, 20)
    sh1.Cells(r, 8) = sh2.Cells(9, 9)
    sh1.Cells(r, 9) = sh2.Cells(26, 16)
    sh1.Cells(r, 10) = sh2.Cells(28, 16)
    sh1.Cells(r, 11).FormulaR1C1 = "=IF(RC[-5]="""","""",DATEDIF(RC[-6],RC[-5],""d""))"
    sh1.Cells(r, 12).FormulaR1C1 = "=IF(RC[-6]="""","""",NETWORKDAYS(RC[-7],RC[-6]))"
    MsgBox "Aggiornamento completato", vbInformation
    Set sh1 = Nothing
    Set sh2 = Nothing
    
    End Sub

    ma attenzione come la vecchia la macro non controlla se ci sono doppioni, ho inserito un pulsante per lanciare la macro, ti inserisce anche le formule per i giorni di infortunio.

    il link al file
    http://www.filedropper.com/incident-investigationvforum1

    Ciao By Sal :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi