Excel Forum

	Soluzioni Excel Domande e Risposte
		Useform su foglio excel già costruito

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Useform su foglio excel già costruito

Ultimo Aggiornamento: 15/03/2018 14:17

Toffa97

12/03/2018 14:24

00#1

Userform su foglio excel già costruito

Salve a tutti, cercherò di essere chiaro nella spiegazione del mio problema.

Io ho un foglio di excel dove devo inserire diversi dati. Da date a numeri. Questo foglio excel ovviamente esiste già ed è già strutturato. In questo foglio sono presenti solo specifiche operazioni, però semplici, come somma e moltiplicazione, niente codice ecc.

Voglio creare un userform che una volta attivata mi richieda i dati che vanno nelle caselle: nella casella data una data, nella casella altezza un numero, nella casella prezzo un altro numero, ecc. ecc. Capito?

Nel mio file c'è un singolo foglio, ogni volta io copierò e incollerò il file in diverse cartelle (una per ogni articolo).

Come faccio a creare un'userform che mi richiede all'attivazione i dati da me voluti e che me li inserisca nelle caselle giuste?

Grazie mille!

ps. io so creare un userform, ma poi la mia conoscenza termina ahhaha [SM=g27816]

[Modificato da Toffa97 12/03/2018 14:26]

alfrimpa

Post: 3.668

Registrato il: 21/06/2013

Città: NAPOLI

Età: 70

Utente Master

Excel 365

OFFLINE

12/03/2018 14:48

10#2

Ciao Toffa97

Purtroppo per utilizzare le userform non è sufficiente saperle costruire; occorre avere le necessarie conoscenze VBA per scrivere il codice necessario a poterle gestire.

Tu hai conoscenze in materia?

Se non le hai il discorso si fa un po' complicato.

Comunque allega il tuo file con la userform costruita e specifica quello che ci devi fare ossia i dati da inserire nella userform in quali celle del foglio devono andare.

Alfredo

Toffa97

12/03/2018 15:02

00#3

Io non ho userform costruite... io la so solo creare hahaha....

Mi sono espresso male, credo venia. Ecco il file ed ecco le cose che devo compilare con userform:

- data
- azienda
- materiale
- blocco
- peso
- spessore
- lunghezza
- altezza
- spessore
- €/QUINTALE
- €/METRO CUBO
- €/METRO QUADRO
- Altri costi
- €/MQ (sezione guadagni)

Della sezione costi mi interessa solo la parte sotto costi. il dato va inserito nella parte senza formula (quella rosa chiaro)

Download (14 KB)

alfrimpa

Post: 3.671

Registrato il: 21/06/2013

Città: NAPOLI

Età: 70

Utente Master

Excel 365

OFFLINE

12/03/2018 15:07

00#4

Allora se sai costruirla fallo allega il file e poi penseremo al resto.

Alfredo

Toffa97

14/03/2018 08:41

00#5

Ho allegato il file, così va bene?

alfrimpa

Post: 3.673

Registrato il: 21/06/2013

Città: NAPOLI

Età: 70

Utente Master

Excel 365

OFFLINE

14/03/2018 11:47

00#6

Nel file che hai allegato non vedo nessuna userform costruita.

Comincia ad imparare come farlo allega il file e poi ne riparliamo.

Alfredo

Toffa97

15/03/2018 13:33

00#7

ho costruito una parte dell'Userform, ora mi manca come inserire i dati. Mi da degli errori che non capisco. Riuscireste a darmi una mano? Sono un po incapace! Grazie mille del vostro tempo comunque!!

Download (21 KB)

alfrimpa

Post: 3.676

Registrato il: 21/06/2013

Città: NAPOLI

Età: 70

Utente Master

Excel 365

OFFLINE

15/03/2018 14:17

00#8

Ciao Toffa97

Torno a ribadire il concetto già espresso in precedenza.

Se si voglio usare le userform occorre avere conoscenza (almeno di base) del VBA.

Nello specifico tu associ al pulsante "inserisci dati" della form questo codice

Private Sub cmdins_Click()
Dim ws As Worksheet
Set ws = Worksheets("Foglio1")
With ws
    .Cells(B, 1).Value = Me.txtData.Value
    .Cells(F, 1).Value = Me.txtAzienda.Value
    .Cells(B, 2).Value = Me.txtBlocco.Value
    .Cells(F, 2).Value = Me.txtPeso.Value
    .Cells(C, 10).Value = Me.txtLunghezza.Value
    .Cells(C, 11).Value = Me.txtAltezza.Value
    .Cells(C, 12).Value = Me.txtSpessore.Value
    .Cells(C, 6).Value = Me.txtTaglio.Value
    .Cells(C, 17).Value = Me.txtCQuintale.Value
    .Cells(C, 22).Value = Me.txtCSegagione.Value
    .Cells(C, 27).Value = Me.txtCLavorazioni.Value

End With
End Sub

che in relazione all'istruzione Cells è totalmente sbagliato.

La sintassi di Cells è