Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

aiuto su copia cella in altro foglio

  • Messaggi
  • OFFLINE
    axenx
    Post: 1
    Registrato il: 20/04/2021
    Età: 47
    Utente Junior
    2019
    00 20/04/2021 19:46
    Salve a tutti sono nuovo di questo forum e avrei bisogno di un aiuto per favore :-)
    Sto cercando di sistemare una cartella excel per mia moglie per fare delle semplici fatture.
    La cartella è composta da due fogli, in uno è impostata la fattura, nel secondo foglio, chiamato Nomi, ho inserito l'anagrafica clienti in quanto, tramite una ricerca verticale nel campo cliente della fattura, vengono inserite in automatico tutti gli altri dati.
    Ora vorrei fare un ulteriore passo e creare un nuovo foglio dove andare a inserire automaticamente i dati delle fatture progressivamente create ( numero fattura, data e solo nominativo del cliente con l'importo).
    Cioè ogni volta che compilo una nuova fattura, i dati indicati tra parentesi, vengono estratti e copiati nel nuovo foglio.
    Ho cercato ma non so come fare. Potreste aiutarmi?
    vi ringrazio molto
  • OFFLINE
    federico460
    Post: 2.232
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 21/04/2021 00:44
    ciao
    se ho capito ti serve il vba
    allega un file con i dati scritti a mano di come vuoi fare
  • OFFLINE
    axenx
    Post: 1
    Registrato il: 20/04/2021
    Età: 47
    Utente Junior
    2019
    00 21/04/2021 08:00
    ciao, intanto ti ringrazio per il tuo aiuto. Ti allego un file che spero possa essere di aiuto.
  • OFFLINE
    federico460
    Post: 2.233
    Registrato il: 10/10/2013
    Città: VICENZA
    Età: 69
    Utente Veteran
    365
    00 21/04/2021 10:33
    ciao
    ti serve una macro

    con un pulsante

    la macro

    Private Sub CommandButton1_Click()
    Dim riga As Long
    Sheets("Fattura").Select

    If Range("C62") = "" Then
    MsgBox "Inserire IBAN", vbInformation, "OBBLIGATORIO"
    End If
    riga = 2
    While Sheets("Resoconto").Cells(riga, 1) <> ""
    riga = riga + 1
    Wend
    Sheets("Resoconto").Cells(riga, 1) = Range("B18").Value
    Sheets("Resoconto").Cells(riga, 2) = Range("B20").Value
    Sheets("Resoconto").Cells(riga, 3) = Range("G12").Value
    Sheets("Resoconto").Cells(riga, 4) = Range("I52").Value

    End Sub



    ti allego l'esempio
  • OFFLINE
    axenx
    Post: 2
    Registrato il: 20/04/2021
    Età: 47
    Utente Junior
    2019
    00 21/04/2021 10:53
    Sei un grande, ti ringrazio. funziona benissimo :-)
    ti ringrazio davvero tanto
  • OFFLINE
    axenx
    Post: 3
    Registrato il: 20/04/2021
    Età: 47
    Utente Junior
    2019
    00 21/04/2021 14:52
    ciao, è possibile cambiare il nome al bottone? non riesco a trovare riferimenti all'interno del codice. Sono una sega totale con VBA 😢
  • OFFLINE
    axenx
    Post: 4
    Registrato il: 20/04/2021
    Età: 47
    Utente Junior
    2019
    00 21/04/2021 15:30
    Ciao ho risolto, grazie. Sono riuscito a trovare il modo, era semplice. Ora sto vedendo se aggiungendo altri fogli "Fattura" funziona o meno.