Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

aiuto su copia cella in altro foglio

Ultimo Aggiornamento: 21/04/2021 15:30
Post: 1
Registrato il: 20/04/2021
Età: 47
Utente Junior
2019
OFFLINE
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
Post: 2.232
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
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
Post: 1
Registrato il: 20/04/2021
Età: 47
Utente Junior
2019
OFFLINE
21/04/2021 08:00

ciao, intanto ti ringrazio per il tuo aiuto. Ti allego un file che spero possa essere di aiuto.
Post: 2.233
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
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
Post: 2
Registrato il: 20/04/2021
Età: 47
Utente Junior
2019
OFFLINE
21/04/2021 10:53

Sei un grande, ti ringrazio. funziona benissimo :-)
ti ringrazio davvero tanto
Post: 3
Registrato il: 20/04/2021
Età: 47
Utente Junior
2019
OFFLINE
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 😢
Post: 4
Registrato il: 20/04/2021
Età: 47
Utente Junior
2019
OFFLINE
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.
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:28. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com