Consulenza VBA

Hai un problema con Excel?

Nuova discussione

Consulenza VBA
di jagan (utente non iscritto) data: 18/11/2013 20:04:26
Ho un file excell con 10k righe di codici prodotto e descrizione, ho una maschera che va tramite una combobox a selezionare i codici digitati, con la possibilità di mettere le quantità ecc.
Il tutto è gia strutturato, manca solo il codice vba che vada a generare una sorta di distina base su un nuovo foglio dei codici scelti.
qualcuno ha voglia di completare la macro? posso anche pagare con carica poste pay o simili una cifra forfettaria.. ci saranno 15 min di lavoro... e io sinceramente non ho voglia ne tempo di mettermi li a imparare..
Qualcuno interessato?
grazie
Booooo
di patel data: 18/11/2013 20:30:36
allega il file compreso il risultato desiderato, così vediamo se il tuo preventivo è corretto
di jagan (utente non iscritto) data: 18/11/2013 20:50:50
sto cercando di scemare che è 2mb... comunque secondo me anche meno come preventivo :P prima avevo provato ma scrivevo solo porcate... :P
di jagan (utente non iscritto) data: 18/11/2013 20:56:37
Allora come puoi vedere dal file, avevo gia impostato una maschera, dove l'input di commessa va a scrivere sulla prima riga del foglio2, mentre sotto andrebbe popolato con la scelta dei codici, in piu nel campo prezzo totale della distinta generata dovrebbe moltiplicare le quantità con il prezzo scontato.
L'unica cosa, è che mi piacerebbe inveritre i 2 fogli, avere prima quello con la distinta e secondo l'elencone.. ma cosi facendo la dropbox non matcha le colonne giuste, cioè invece di pescare dal foglio con il listone, pesca da quello della distinta..
di patel data: 18/11/2013 23:13:36
ho cambiato qualche nome quindi allego il file
di jagan (utente non iscritto) data: 19/11/2013 06:53:59
Grandissimo!
ci hai impiegato tanto?
di patel data: 19/11/2013 07:24:31
non sono pratico di userform, quindi ci ho messo una mezz'ora

di jagan (utente non iscritto) data: 19/11/2013 11:19:44
Sei stato bravissimo, se posso sdebitarmi in qualche modo... ora ho gia fatto una caterva di modifiche, solo una cosa, ho messo un pulsante che mi esporta la distinta senza portarsi dietro il listino completo, l'unica cosa, è possibile far si che si imposti gia per salvare un workbook senza macro e pulsanti?

Private Sub CommandButton1_Click()
Dim New_file_name
New_file_name = Application.GetSaveAsFilename(, "Microsoft Excel Workbook (*.xls), *.xls")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=New_file_name, FileFormat:=xlNormal
ActiveWindow.Close
End Sub

di patel data: 19/11/2013 11:32:02
Come si fa a sapere quando hai completato la distinta ? occorre per forza un pulsante di salvataggio ed uscita
di jagan (utente non iscritto) data: 19/11/2013 11:34:03
si si ho messo un pulsante termina nella maschera, che mi esce dalla routine, poi difianco alla distinta tra le celle ho messo quello di esportazione. allego codice di uscita
Private Sub CommandButton2_Click() Sheets("Distinta").Select Unload Me End Sub
di patel data: 19/11/2013 14:36:29
utilizza un solo pulsante e unisci le due macro
di jagan (utente non iscritto) data: 19/11/2013 17:33:20
Grazie di tutto, ho aggiunto diverse funzioni basandomi sul tuo codice (come spunto) mi bastava solo avere una base per partire.
Ora funziona anche l'esportazione ecc ecc.

Vuoi Approfondire?