Risultati da 1 a 24 di 24

Discussione: nuovo progettino_ricevuta compenso



  1. #1
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67

    nuovo progettino_ricevuta compenso

    Ciao a tutti e buon giorno.
    mi servirebbe qualche spunto per imbastire un piccolo programmino per la contabilità ( molto banale sicuramente ).
    sarebbe l'ideale che selezionando la cella RICEVUTA!B11 si riempissero le celle B12 ,B13, B14 ( pensavo di applicare un menu a tendina dinamico ) correggetemi se sbaglio.
    i dati sono in COLLABORATORE!.
    Ho creato il pulsantino STAMPA e funziona alla grande ( piccolo traguardo per me ) ma ora mi vedo alle prese con quello del SALVA che, una volta compilata la ricevuta, dovrebbe inviarmi i dati presenti nella RICEVUTA! in ELENCO RICEVUTE EMESSE.
    Avevo visto tempo fa un tutorial su come farlo, per non incorrere nello sovrascrivere i dati inviati.
    Qualche idea?

    tenchiu :23:

    https://www.dropbox.com/s/kh4e0pfh8q...NALE.xlsm?dl=0

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Ciao a tutti e buon giorno.
    mi servirebbe qualche spunto per imbastire un piccolo programmino per la contabilità ( molto banale sicuramente ).
    sarebbe l'ideale che selezionando la cella RICEVUTA!B11 si riempissero le celle B12 ,B13, B14 ( pensavo di applicare un menu a tendina dinamico ) correggetemi se sbaglio.
    i dati sono in COLLABORATORE!.
    Ho creato il pulsantino STAMPA e funziona alla grande ( piccolo traguardo per me ) ma ora mi vedo alle prese con quello del SALVA che, una volta compilata la ricevuta, dovrebbe inviarmi i dati presenti nella RICEVUTA! in ELENCO RICEVUTE EMESSE.
    Avevo visto tempo fa un tutorial su come farlo, per non incorrere nello sovrascrivere i dati inviati.
    Qualche idea?

    tenchiu :23:

    https://www.dropbox.com/s/kh4e0pfh8q...NALE.xlsm?dl=0
    Ciao Andrea così senza guardare nulla prova a sistemarti questa routine e fammi sapere.

    Ciao.

    Codice: 
    Sub salva()
    
    Dim nomefile As String
    Dim nomesalva
    
    
    ChDrive "C"
    '----------------------------------------------------------------------------
    
    
    nomefile = "C:\Users\nome utente\Desktop\FileFinale"
    
    
    ' in questa riga devi mettere il percorso ed il nome principale del file
    '----------------------------------------------------------------------------
    
    
    nomesalva = nomefile & "_" & Range("C27").Value & "_" & Range("F27").Value & _
    "_" & Range("L27").Value & ".xlsm"
    If Len(Dir$(nomesalva)) Then GoTo esiste
    ActiveWorkbook.SaveAs Filename:=nomesalva
    Exit Sub
    esiste:
    MsgBox ("IL FILE CHE SI TENTA DI SALVARE ESISTE GIA'")
    
    
    End Sub

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    per quanto riguarda l'aggiunta automatica del resto rispetto al nominativo eccolo

    Codice: 
    Sub Aggiorna()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer
    
    
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("ricevuta")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
        If wsh.Range("A" & i).Value = wsh1.Range("B11").Value Then
            wsh1.Range("B12").Value = wsh.Range("B" & i).Value
            wsh1.Range("B13").Value = wsh.Range("C" & i).Value
            wsh1.Range("B14").Value = wsh.Range("D" & i).Value
            Exit For
        End If
    Next
    Set wsh = Nothing
    Set wsh1 = Nothing
    
    
    End Sub
    
    ciao ciao
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ho adattato anche il salvataggio.

    Codice: 
    Sub salva()
    
    Dim nomefile As String
    Dim nomesalva
    
    
    
    
    ChDrive "C"
    '----------------------------------------------------------------------------
    
    
    
    
    nomefile = "C:\Users\nome utente\Desktop\FileFinale"
    
    
    
    
    ' in questa riga devi mettere il percorso ed il nome principale del file
    '----------------------------------------------------------------------------
    
    
    
    
    nomesalva = nomefile & "_" & Range("B6").Value & ".xlsm"
    If Len(Dir$(nomesalva)) Then GoTo esiste
    ActiveWorkbook.SaveAs Filename:=nomesalva
    Exit Sub
    esiste:
    MsgBox ("IL FILE CHE SI TENTA DI SALVARE ESISTE GIA'")
    
    
    End Sub
    mette la directory + il numero di ricevuta.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Questa è la versione finale.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Questa è la versione finale.
    Ciao Baloon, volevo solo un piccolo input ma come sempre...non riesci a fermarti ( grazie ).
    Ho applicato le tue dritte, aggiornando il percorso del file ma esce errore e quando vado in DEBUG esce questo
    Codice: 
    Sub salva()
    
    Dim nomefile As String
    Dim nomesalva
    
    
    
    
    ChDrive "C"
    nomefile = "C:\Users\Acer\Dropbox\FILE PROGETTI EXCEL\prest_occ_ricevuta_buono.xlsm"
    nomesalva = nomefile & "_" & Range("B6").Value & ".xlsm"
    If Len(Dir$(nomesalva)) Then GoTo esiste
    ActiveWorkbook.SaveAs Filename:=nomesalva
    Exit Sub
    esiste:
    MsgBox ("IL FILE CHE SI TENTA DI SALVARE ESISTE GIA'")
    
    
    End Sub

  7. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Ciao Baloon, volevo solo un piccolo input ma come sempre...non riesci a fermarti ( grazie ).
    Ho applicato le tue dritte, aggiornando il percorso del file ma esce errore e quando vado in DEBUG esce questo
    Codice: 
    Sub salva()
    
    Dim nomefile As String
    Dim nomesalva
    
    
    
    
    ChDrive "C"
    nomefile = "C:\Users\Acer\Dropbox\FILE PROGETTI EXCEL\prest_occ_ricevuta_buono.xlsm"
    nomesalva = nomefile & "_" & Range("B6").Value & ".xlsm"
    If Len(Dir$(nomesalva)) Then GoTo esiste
    ActiveWorkbook.SaveAs Filename:=nomesalva
    Exit Sub
    esiste:
    MsgBox ("IL FILE CHE SI TENTA DI SALVARE ESISTE GIA'")
    
    
    End Sub
    Anche utilizzando il percorso (modificando naturalmente il nome utente) che gli hai dato tu (a proposito togli .xlsm) a me funziona benissimo.
    Sei sicuro del percorso con le dovute lettere maiuscole e minuscole?

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  8. I seguenti utenti hanno dato un "Like"


  9. #8
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Ahhhhhhhhhhhhhhhh...ma ora funziona ( non chiedermi cosa ho fatto, solo ri-inserito il percorso file ).
    Ma se non ho capito male....ogni volta che clicco su SALVA mi si crea un'altro file ( ottima idea non ci avevo pensato ).
    Quello che non succede è l'aggiornamento progressivo delle ricevute nella cartella ELENCO RICEVUTE.

  10. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Ahhhhhhhhhhhhhhhh...ma ora funziona ( non chiedermi cosa ho fatto, solo ri-inserito il percorso file ).
    Ma se non ho capito male....ogni volta che clicco su SALVA mi si crea un'altro file ( ottima idea non ci avevo pensato ).
    Quello che non succede è l'aggiornamento progressivo delle ricevute nella cartella ELENCO RICEVUTE.
    eheheeh
    Prova a farlo da solo prendi spunto dalla routine che ho fatto per aggiornare la ricevuta con i dati del collaboratore. E' semplicissimo devi solo cambiare wsh1 che diventa "elenco ricevute" ed i range su cui vai a prendere i dati e su cui vai a scriverli.
    buon divertimento.
    Io adesso purtroppo per te devo uscire ma lasciami comunque un ritorno.

    P.S.
    quando scrivi i nomi dei fogli non mettere mai come ultimo carattere uno spazio (te possino caricatte)

    ciao :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  11. #10
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Dimenticavo
    uriga la devi calcolare nel foglio elenco ricevute perchè devi scrivere sempre nella prima riga libera.

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. #11
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    eheheeh
    Prova a farlo da solo prendi spunto dalla routine che ho fatto per aggiornare la ricevuta con i dati del collaboratore. E' semplicissimo devi solo cambiare wsh1 che diventa "elenco ricevute" ed i range su cui vai a prendere i dati e su cui vai a scriverli.
    buon divertimento.
    Io adesso purtroppo per te devo uscire ma lasciami comunque un ritorno.

    P.S.
    quando scrivi i nomi dei fogli non mettere mai come ultimo carattere uno spazio (te possino caricatte)

    ciao :261:
    Questa notte ci lavoro e ti aggiorno.
    bye e thank you:286:

  13. #12
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    sta URIGA non mi entra in testa, eppure mi sembra di aver fatto tutto alla lettera, ma è palese che in qualcosa erro.:250:
    Codice: 
    Sub salva()
    
    Dim nomefile As String
    Dim nomesalva
    
    
    
    
    ChDrive "C"
    nomefile = "C:\Users\Acer\Dropbox\FILE PROGETTI EXCEL\prest_occ_ricevuta_buono"
    nomesalva = nomefile & "_" & Range("B6").Value & ".xlsm"
    If Len(Dir$(nomesalva)) Then GoTo esiste
    ActiveWorkbook.SaveAs Filename:=nomesalva
    Exit Sub
    esiste:
    MsgBox ("IL FILE CHE SI TENTA DI SALVARE ESISTE GIA'")
    
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer
    
    
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    uriga = wsh1.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
            wsh1.Range("A2 & i").Value = wsh.Range("B6").Value
            wsh1.Range("B2 & i").Value = wsh.Range("A19").Value
            wsh1.Range("C2 & i").Value = wsh.Range("B11").Value
            wsh1.Range("D2 & i").Value = wsh.Range("H37").Value
            wsh1.Range("E2 & i").Value = wsh.Range("H38").Value
            wsh1.Range("F2 & i").Value = wsh.Range("H39").Value
            wsh1.Range("G2 & i").Value = wsh.Range("H40").Value
            Exit For
            Next
                    
    End Sub
    File Allegati File Allegati

  14. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    È giusto ma devi mettere il tutto nella routine che aggiorna e non in quella che salva !!!

    Inviato dal mio GT-P5100 utilizzando Tapatalk

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ops i range sono scritti così range("G" & i).Value

    Inviato dal mio GT-P5100 utilizzando Tapatalk

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Dunque devi togkiere for i = 2 to uriga exit for e next
    E devi scrivere così la copia
    Wsh1.range("A" & uriga).Value = wsh.range("B6").Value
    Vale per tutte le altre righe.
    Se non ricordo male forse uriga deve essere +1 (uriga+1)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. #16
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Mi sto gia perdendo 😁domank mattina a mente fredda continuo il lavoro.
    Buona serata

    Inviato dal mio SM-G920F utilizzando Tapatalk

  18. #17
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ok attendo con ansia eheheh

    Inviato dal mio GT-P5100 utilizzando Tapatalk

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  19. I seguenti utenti hanno dato un "Like"


  20. #18
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Buon giorno,
    ho applicato le istruzioni ma il sig. DEBUG oggi ce l'ha con me.:92:
    Codice: 
    Sub Aggiorna()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer
    
    
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("ricevuta")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
        If wsh.Range("A" & i).Value = wsh1.Range("B11").Value Then
            wsh1.Range("B12").Value = wsh.Range("B" & i).Value
            wsh1.Range("B13").Value = wsh.Range("C" & i).Value
            wsh1.Range("B14").Value = wsh.Range("D" & i).Value
            Exit For
        End If
    Next
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    
    
            wsh1.Range("A" & uriga+1").Value = wsh.Range("B6").Value
            wsh1.Range("B" & uriga+1").Value = wsh.Range("A19").Value
            wsh1.Range("C" & uriga+1").Value = wsh.Range("B11").Value
            wsh1.Range("D" & uriga+1").Value = wsh.Range("H37").Value
            wsh1.Range("E" & uriga+1").Value = wsh.Range("H38").Value
            wsh1.Range("F" & uriga+1").Value = wsh.Range("H39").Value
            wsh1.Range("G" & uriga+1").Value = wsh.Range("H40").Value
                            
    
    
    End Sub
    Il pop up dice: Errore di compilazione: previsto separatore di elenco oppure )

  21. #19
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Buon giorno,
    ho applicato le istruzioni ma il sig. DEBUG oggi ce l'ha con me.:92:
    Codice: 
    Sub Aggiorna()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer
    
    
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("ricevuta")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
        If wsh.Range("A" & i).Value = wsh1.Range("B11").Value Then
            wsh1.Range("B12").Value = wsh.Range("B" & i).Value
            wsh1.Range("B13").Value = wsh.Range("C" & i).Value
            wsh1.Range("B14").Value = wsh.Range("D" & i).Value
            Exit For
        End If
    Next
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    
    
            wsh1.Range("A" & uriga+1").Value = wsh.Range("B6").Value
            wsh1.Range("B" & uriga+1").Value = wsh.Range("A19").Value
            wsh1.Range("C" & uriga+1").Value = wsh.Range("B11").Value
            wsh1.Range("D" & uriga+1").Value = wsh.Range("H37").Value
            wsh1.Range("E" & uriga+1").Value = wsh.Range("H38").Value
            wsh1.Range("F" & uriga+1").Value = wsh.Range("H39").Value
            wsh1.Range("G" & uriga+1").Value = wsh.Range("H40").Value
                            
    
    
    End Sub
    Il pop up dice: Errore di compilazione: previsto separatore di elenco oppure )
    Buongiorno a te.
    Facciamo una bella cosa io ti metto la mia soluzione tu la confronti con la tua e così vedi dove c'è l'inghippo. Magari la prossima volta non fai lo stesso errore.

    Codice: 
    Sub Aggiorna()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim uriga As Long
    Dim i As Integer
    
    
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("ricevuta")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 2 To uriga
        If wsh.Range("A" & i).Value = wsh1.Range("B11").Value Then
            wsh1.Range("B12").Value = wsh.Range("B" & i).Value
            wsh1.Range("B13").Value = wsh.Range("C" & i).Value
            wsh1.Range("B14").Value = wsh.Range("D" & i).Value
            Exit For
        End If
    Next
    
    
    Set wsh = ThisWorkbook.Worksheets("ricevuta")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    uriga = wsh1.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
            wsh1.Range("A" & uriga).Value = wsh.Range("B6").Value
            wsh1.Range("B" & uriga).Value = wsh.Range("A19").Value
            wsh1.Range("C" & uriga).Value = wsh.Range("B11").Value
            wsh1.Range("D" & uriga).Value = wsh.Range("H37").Value
            wsh1.Range("E" & uriga).Value = wsh.Range("H38").Value
            wsh1.Range("F" & uriga).Value = wsh.Range("H39").Value
            wsh1.Range("G" & uriga).Value = wsh.Range("H40").Value
    
    
    Set wsh = Nothing
    Set wsh1 = Nothing
    
    
    End Sub
    P.S.
    la prima cosa da verifica il nome del foglio elenco ricevute (credo che alla fine ci sia uno spazio)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  22. I seguenti utenti hanno dato un "Like"


  23. #20
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Eh Eh quante cose che ho da imparare, vorrei correre ancor prima di saper camminare.
    Corretti i vari errori ( tolto spazio al nome foglio,tolte le virgolette dopo uriga, che non serviva ovviamente ) e non da errore ma, aggiornando, i campi in Elenco Ricevute non si popolano. Dove andranno a finire?:250:
    https://www.dropbox.com/s/5c3qau51f5...no_3.xlsm?dl=0

  24. #21
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Eh Eh quante cose che ho da imparare, vorrei correre ancor prima di saper camminare.
    Corretti i vari errori ( tolto spazio al nome foglio,tolte le virgolette dopo uriga, che non serviva ovviamente ) e non da errore ma, aggiornando, i campi in Elenco Ricevute non si popolano. Dove andranno a finire?:250:
    https://www.dropbox.com/s/5c3qau51f5...no_3.xlsm?dl=0

    la cosa è semplicissima :

    Codice: 
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    uriga = wsh1.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
            wsh1.Range("A" & uriga).Value = wsh.Range("B6").Value
            wsh1.Range("B" & uriga).Value = wsh.Range("A19").Value
            wsh1.Range("C" & uriga).Value = wsh.Range("B11").Value
            wsh1.Range("D" & uriga).Value = wsh.Range("H37").Value
            wsh1.Range("E" & uriga).Value = wsh.Range("H38").Value
            wsh1.Range("F" & uriga).Value = wsh.Range("H39").Value
            wsh1.Range("G" & uriga).Value = wsh.Range("H40").Value
            
    Set wsh = Nothing
    Set wsh1 = Nothing
    Guarda la riga rossa e spremiti le meningi :243:
    se non ci arrivi te lo spiego io.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  25. #22
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    la cosa è semplicissima :

    Codice: 
    Set wsh = ThisWorkbook.Worksheets("collaboratori")
    Set wsh1 = ThisWorkbook.Worksheets("elenco ricevute")
    uriga = wsh1.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
            wsh1.Range("A" & uriga).Value = wsh.Range("B6").Value
            wsh1.Range("B" & uriga).Value = wsh.Range("A19").Value
            wsh1.Range("C" & uriga).Value = wsh.Range("B11").Value
            wsh1.Range("D" & uriga).Value = wsh.Range("H37").Value
            wsh1.Range("E" & uriga).Value = wsh.Range("H38").Value
            wsh1.Range("F" & uriga).Value = wsh.Range("H39").Value
            wsh1.Range("G" & uriga).Value = wsh.Range("H40").Value
            
    Set wsh = Nothing
    Set wsh1 = Nothing
    Guarda la riga rossa e spremiti le meningi :243:
    se non ci arrivi te lo spiego io.
    ma nooooooooooooooooooooooooooo è vero.....wsh è ricevuta e wsh1 è elenco ricevute......:1172: me la meriterei

  26. #23
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3338
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    ma nooooooooooooooooooooooooooo è vero.....wsh è ricevuta e wsh1 è elenco ricevute......:1172: me la meriterei
    ahahahahahah

    buona giornata e....studia un po' di più; come dicevano i miei insegnanti (il ragazzo è intelligente ma si applica poco)

    :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  27. I seguenti utenti hanno dato un "Like"


  28. #24
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    :270: sarà fatto.

    grazie infinite e buonissima giornata..alla prossima.

Discussioni Simili

  1. Nuovo Add In TuttoExcel
    Di TuttoExcel nel forum Link Utili
    Risposte: 17
    Ultimo Messaggio: 02/12/17, 18:56
  2. Nuovo box avatar
    Di Max nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 41
    Ultimo Messaggio: 01/09/16, 11:10
  3. Un nuovo gioco per Voi
    Di Marius44 nel forum Lavori e giochi con Excel
    Risposte: 13
    Ultimo Messaggio: 14/05/16, 20:44
  4. nuovo iscritto
    Di sergio bombini nel forum Domande su Microsoft Power Point
    Risposte: 3
    Ultimo Messaggio: 24/04/16, 10:44
  5. Nuovo Plugin Thanks
    Di Max nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 7
    Ultimo Messaggio: 11/09/15, 09:08

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
  •