da textbox a celle

Hai un problema con Excel?

Nuova discussione

da textbox a celle
di rotella data: 23/02/2014 22:17:02
Ciao a tutti non riesco a trasferire i dati inseriti nelle text box nelle righe di Excel
La prima parte denominata CONTROLLA LA RICERCA DEI DATI mi cerca un codice da me digitato e riempie alcune textbox, la seconda parte denominata Compila settimane mese devo inserire manualmente nel codice cercato precedentemente dei valori ricevuti da terzi nelle varie settimane del mese c'è un tasto per registrare ma sicuramente sto sbagliando qualcosa. Grazie

'CONTROLLA LA RICERCA DEI DATI'
Private Sub TextBox1_Change()
 Dim UltimaRiga As Long, fnd As Range
     With Sheets("Gennaio")
         UltimaRiga = .Range("A" & Rows.Count).End(xlUp).Row
         Set fnd = .Range("A1:A" & UltimaRiga).Find(what:=Format(TextBox1, "@"))
     End With
    
     If Not fnd Is Nothing Then
        riga = fnd.Row
         With fnd
             'Dati da copiare nella TextBox'
             'TextBox1 = .Cells(1, 1) 'codice prodotto
             TextBox2 = .Cells(1, 2) 'Descrizione prodotto
             TextBox3 = .Cells(1, 4) 'Voltaggio
             TextBox4 = .Cells(1, 5) 'Voltaggio
           End With
     End If
     
End Sub


'Compila settimane mese
     Private Sub CommandButton1_Enter()
     .Cells(riga, 7) = Val(TextBox6)
     .Cells(riga, 8) = Val(TextBox7)
     .Cells(riga, 9) = Val(TextBox8)
     .Cells(riga, 10) = Val(TextBox9)
     .Cells(riga, 11) = Val(TextBox10)
     
     
 
 
End Sub

di patel data: 23/02/2014 22:30:19
manca un with nella Private Sub CommandButton1_Enter()
non puoi usare .Cells senza prima un with

di Zer0Kelvin data: 24/02/2014 01:06:55
Ciao.
Secondo me, stai usando degli eventi che non sono del tutto adatti al tuo scopo:
Perchè Usare CommandButton_Enter?
è un evento che praticamente non viene mai usato, e che si verifica quando il button riceve lo stato attivo;
per esempio a seguito della pressione del tasto tab, o invio, da un altro controllo.
Presumo che se ci hai messo un button, tu voglia anche cliccarlo (i button servono a questo, no?) quindi devi usare CommandButton1_Click.
Perquanto riguarda la TextBox, anche se l'evento change potrebbe andare bene, ti lancia la ricerca ad ogni carattere che inserisci/cancelli nella textbox.
Secondo me è piu idoneo Textbox_Afterupdate che si verifica,per es, quando hai finito di inserire e premi Enter.
Fermo restando quanto detto da Patel, il codice più corretto da usare è questo;
poi
-in TextBox1_Change la variabile Ultimariga mi sembra superflua
-la variabile Riga viene inizializzata ma non viene mai usata.

Option Explicit

Private Sub TextBox1_AfterUpdate()
Dim fnd As Range
Set fnd = Sheets("Gennaio").Range("A:A").Find(what:=Format(TextBox1, "@"))
If Not fnd Is Nothing Then
    With fnd
        'Dati da copiare nella TextBox'
        'TextBox1 = .Cells(1, 1) 'codice prodotto
        TextBox2 = .Cells(1, 2) 'Descrizione prodotto
        TextBox3 = .Cells(1, 4) 'Voltaggio
        TextBox4 = .Cells(1, 5) 'Voltaggio
    End With
End If
End Sub

'Compila settimane mese
Private Sub CommandButton1_Click()
    With Sheets("XYZ")
        .Cells(riga, 7) = Val(TextBox6)
        .Cells(riga, 8) = Val(TextBox7)
        .Cells(riga, 9) = Val(TextBox8)
        .Cells(riga, 10) = Val(TextBox9)
        .Cells(riga, 11) = Val(TextBox10)
    End With
End Sub

di rotella data: 24/02/2014 16:09:30
Ciao Zer0kelvin, ho provato la tua modifica ma mi da un errore ti allego il file se hai voglia e tempo dagli un occhio io continuo con le prove. Grazie
Il file si chiama maxo

di Zer0Kelvin data: 24/02/2014 19:10:45
Scusa, ma avendo scritto il codice "a memoria" senza mandarlo in esecuzione, e data l'ora tarda, non mi ero accorto del vero errore.

Seguimi attentamente, perchè ti servirà.
Hai dichiarato una variabile a livello di sub e hai tentato di usarla in un'altra sub; questo non si può fare!
Ti spiego perchè: le variabili, oltre che nome e tipo, hanno un'altra caratteristica, l'AREA DI VISIBILITA'.
Una variabile dichiarata all'interno di una routine (sub o function), è "locale" o "privata" per quella routine, ed è accessibile solo all'interno della routine in cui è stata dichiarata.
Questo perhè la variabile viene "creata" all'entrata della routine e "distrutta" quanso la routine termina. Quando una routine termina, tutte le variabili (tranne un caso speciale che non sto a citarti) dichiarate nella routine, NON ESISTONO PIU'.

Il tuo codice originale non ti dava errore perchè non hai usato
Option Explicit
all'inizio del modulo.
Questa direttiva rende obbligatoria la dichiarazione delle variabili, ed io la uso sempre, e per ottimi motivi.
Tu hai dichiarato la variabile riga all'interno di TextBox1_Change e poi hai tentato di usarla in CommandButton1_Enter.
Ora , se la dichiarazione di variabili non è obbligatoria succede questo (a volte mi vien da pensare che microsoft sia piena di gente che si "bomba" di brutto!):
-VBA incontra una parola che non conosce
-VBA decide che si tratta di un nome di variabile
-VBA crea una nuova variabile di tipo Variant vuota (nel tuo caso valore 0) che ha per nome la parola appena incontrata.
Con option Explicit invece, questo non succede; VBA ci segnala correttamente l'errore.
In sostanza, anche se il resto del tuo codice fosse stato corretto, la variabile riga in CommandButton1_Enter avrebbe avuto irrimediabilmente valore zero, ed avrest comunque avuto un errore nel metodo Cells()
SOLUZIONE:
Dichiarare la variabile a livello modulo; in tal modo la variabile sarà visibile in tutte le routines di quel modulo.
E' anche possibile dichiarare una variabile come Public, in tal modo sarà visibile in tutti i moduli del progetto.
Prova questo:

Option Explicit

Dim riga As Long

Private Sub TextBox1_AfterUpdate()
Dim fnd As Range
Set fnd = Sheets("Gennaio").Range("A:A").Find(what:=Format(TextBox1, "@"))
If Not fnd Is Nothing Then
    With fnd
        riga = .Row        'Dati da copiare nella TextBox'
        'TextBox1 = .Cells(1, 1) 'codice prodotto
        TextBox2 = .Cells(1, 2) 'Descrizione prodotto
        TextBox3 = .Cells(1, 4) 'Voltaggio
        TextBox4 = .Cells(1, 5) 'Voltaggio
        .Cells(riga, 7) = Val(TextBox6)
        .Cells(riga, 8) = Val(TextBox7)
        .Cells(riga, 9) = Val(TextBox8)
        .Cells(riga, 10) = Val(TextBox9)
        .Cells(riga, 11) = Val(TextBox10)
    End With
End If
End Sub

'Compila settimane mese
Private Sub CommandButton1_Click()
    With Sheets("Gennaio")
        .Cells(riga, 7) = Val(TextBox6)
        .Cells(riga, 8) = Val(TextBox7)
        .Cells(riga, 9) = Val(TextBox8)
        .Cells(riga, 10) = Val(TextBox9)
        .Cells(riga, 11) = Val(TextBox10)
    End With
End Sub

di Zer0Kelvin data: 24/02/2014 19:13:04
SCUSA, c'è un grosso refuso.
Ecco il codice

Option Explicit

Dim riga As Long

Private Sub TextBox1_AfterUpdate()
Dim fnd As Range
Set fnd = Sheets("Gennaio").Range("A:A").Find(what:=Format(TextBox1, "@"))
If Not fnd Is Nothing Then
    With fnd
        riga = .Row        'Dati da copiare nella TextBox'
        'TextBox1 = .Cells(1, 1) 'codice prodotto
        TextBox2 = .Cells(1, 2) 'Descrizione prodotto
        TextBox3 = .Cells(1, 4) 'Voltaggio
        TextBox4 = .Cells(1, 5) 'Voltaggio
    End With
End If
End Sub

'Compila settimane mese
Private Sub CommandButton1_Click()
    With Sheets("Gennaio")
        .Cells(riga, 7) = Val(TextBox6)
        .Cells(riga, 8) = Val(TextBox7)
        .Cells(riga, 9) = Val(TextBox8)
        .Cells(riga, 10) = Val(TextBox9)
        .Cells(riga, 11) = Val(TextBox10)
    End With
End Sub

di rotella data: 24/02/2014 20:43:36
Grazie Zer0Kelvin, grazie della spiegazione molto tecnica, tutto il tuo listato posso usarlo tranquillamente per i restanti 11 mesi sostituendo la riga del mese. Giusto
Grazie 1000
di Vecchio Frac data: 24/02/2014 20:48:27
cit. Zer0Kelvin "non ti dava errore perchè non hai usato Option Explicit all'inizio del modulo. "
---> Non lo si ripete mai abbastanza ^_^

cit. Zer0Kelvin "a volte mi vien da pensare che microsoft sia piena di gente che si "bomba" di brutto!"
---> LOL ^_^ hanno cercato di rimediare con la linea .Net ma alla fine ne è venuto fuori, ovviamente, un linguaggio diverso.

cit. Zer0Kelvin "E' anche possibile dichiarare una variabile come Public, in tal modo sarà visibile in tutti i moduli del progetto. "
---> Precisazione da pignolino: per ampliare la visibilità di una variabile a tutto il progetto la variabile Public va dichiarata nell'area di codice di un modulo, non nell'area codice di un foglio nè di ThisWorkbook. E la direttiva deve essere proprio "Public variabile As ..." perchè "Dim variabile As ..." è considerata una direttiva Private.

cit. Zer0Kelvin: " c'è un grosso refuso"
---> meno male. Credevo che fossi immune ^_^

Zer0Kelvin, per cortesia, contattami:
staff@excelvba.it
di Vecchio Frac data: 24/02/2014 20:50:55
@rotella
perchè non implementi una modifica di questo tipo:
- quando premo il command button il codice mi chiede un mese
- passo il mese specificato alle routine interessate
- in questo modo non dovrai mai modificare il codice e vivrai spensierato... (bè dovrai prevedere un controllo perchè il nome del mese venga inserito giusto... magari una piccola userform con una listbox... oppure chiedere il numero del mese e poi tradurlo nel corrispondente nome di foglio... le possibilità sono tante)
di rotella data: 24/02/2014 21:03:48
Ciao Vecchio Frac, perché non sono così esperto nell'uso del Vb.. se ho capito bene io ho dodici fogli con i dodici mesi però uso un codice solo per modificarli tutti e dodici? se è così è una figata ma bisogna essere capaci ed io non lo sono.. Grazie comunque del consiglio
di Zer0Kelvin data: 25/02/2014 02:41:28
Una soluzione sarebbe aggiungere una combobox per selezionare il mese.
ho caricato il file:
Maxo2.xls
di rotella data: 25/02/2014 17:07:57
Grazie Zer0Kelvin molto complesso il listato ma è ad effetto il risultato, ho provato ad inserire una if di questo tipo If TextBox.tex = "" Then Exit Sub per far si che se le text sono vuote non deve succedere nulla perché come è ora se le text sono vuote dopo aver ricercato il codice mi inserisce il dato 0 in tutte le celle e mi sovrascrive il valore esistente, poi sotto ad ogni textbox delle settimane sto cercando di far apparire il numero della settimana che ho nel foglio di Excel del mese corrispondente mi sono detto è una sciocchezza farlo.....non ci sto riuscendo sono un incapace.....ti riallego il file .zip perché ho aggiunto le pagine mancanti e ho aggiunto cosa che nel tuo non c'era il funzionamento di due text che mancavano. Ciao grazie CMQ sei un mostro con ilVB
di Vecchio Frac data: 25/02/2014 20:21:39
cit. "grazie CMQ sei un mostro con il VB"
---> Altro che mostro. E' un pazzo furioso e scatenato... Sto leggendo il suo sito demenziale e non riesco ad andare oltre la seconda pagina per via delle lacrime agli occhi dal ridere... tra parentesi, non avrei potuto entrarci eprchè ricado in almeno quattro delle categorie cui è interdetto l'accesso, ma vabbè. Io sono un Moderatore e rientro nella classe dei Supereroi, quindi... ^_^
Se poi ci mettiamo che riesce perfino a citare Douglas Adams in più occasioni... ha tutta la mia stima... vedete, sono tentato di piazzare qui il link al sito, ma non sono ancora stato autorizzato.
Altro che mostro di VB... è un mostro di pirlate ^_^
Bravo Zer0... 6-1-0
di rotella data: 25/02/2014 20:29:48
Ciao vecchio Frac ora mi hai messo una curiosità bestia postami il link in privato. Ciao

di rotella data: 25/02/2014 21:00:45
Zer0Kelvin ho fatto qualche modifica al file che trovi .zip poi mentre guardavo il listato ho notato che c'è un foglio segnato come gennaio non è da modificare perché hai inserito la combo la combo

Private Sub TextBox1_AfterUpdate()
Dim fnd As Range
Set fnd = Sheets("gennaio").Range("A:A").Find(what:=Format(TextBox1, "@"))
If Not fnd Is Nothing Then
    With fnd
        riga = .Row        'Dati da copiare nella TextBox'
        TextBox2 = .Cells(1, 2) 'Descrizione prodotto
        TextBox3 = .Cells(1, 4) 'Voltaggio
        TextBox4 = .Cells(1, 5) 'Voltaggio
        TextBox12 = .Cells(1, 6) 'Arrivato Mese
        TextBox14 = .Cells(1, 14) 'Giacenza
        TextBox15 = .Cells(-1, 7) 'per visualizzare la settimana del mese funziona solo per gennaio
        TextBox16 = .Cells(-1, 8)
        TextBox17 = .Cells(-1, 9)
        TextBox18 = .Cells(-1, 10)
        TextBox19 = .Cells(-1, 11)
        
    End With
End If
End Sub

di Zer0Kelvin data: 26/02/2014 00:16:20
Ciao.
Avevo inviato una risposta che è andata persa.
Il server mi dice: impossibile inviare la risposta in quanto è stata gia inserita (o qualcosa del genere)
Ora sono "cotto", ci riprovo domani.
Intanto potresti spiegare meglio cosa vuoi visualizzare nelle textbox in questione?

di rotella data: 26/02/2014 16:02:49
Ciao kelvin, se vedi il form inserimento ho aggiunto delle text sotto alle 5 delle settimane nelle 5 in alto con la sctitta settimana deve riportarmi in numero della settimana che è nel foglio di Excel del mese i numeri della settimana sono dalla g4 alla k4 io sono riuscito ma appaiono solo se inserisco il primo codice di ogni mese.

Nel codice qui sotto c'e scritto "With Sheets("Gennaio")" ma con tutte le modifiche fatte gennaio non è da modificare. Ciao



'CONTROLLA LA RICERCA DEI DATI'
Private Sub TextBox1_Change()
 Dim UltimaRiga As Long, fnd As Range
     With Sheets("Gennaio")
         UltimaRiga = .Range("A" & Rows.Count).End(xlUp).Row
         Set fnd = .Range("A1:A" & UltimaRiga).Find(what:=Format(TextBox1, "@"))
     End With
    
     If Not fnd Is Nothing Then
        riga = fnd.Row
         With fnd
             'Dati da copiare nella TextBox'
             'TextBox1 = .Cells(1, 1) 'codice prodotto
             TextBox2 = .Cells(1, 2) 'Descrizione prodotto
             TextBox3 = .Cells(1, 4) 'Voltaggio
             TextBox4 = .Cells(1, 5) 'Voltaggio
           End With
     End If
     
End Sub


'Compila settimane mese
     Private Sub CommandButton1_Enter()
     .Cells(riga, 7) = Val(TextBox6)
     .Cells(riga, 8) = Val(TextBox7)
     .Cells(riga, 9) = Val(TextBox8)
     .Cells(riga, 10) = Val(TextBox9)
     .Cells(riga, 11) = Val(TextBox10)
     
     
 
 
End Sub

di rotella data: 26/02/2014 16:15:19
Ho dimenticato di dirti che il form non si chiama più gennaio ma inserimento, a tale scopo se devo inserire un codice del tutto nuovo è un casino modificare il listato? ti riallego il file .zip maxo2
di rotella data: 27/02/2014 22:53:09
Ciao Zer0Kelvin hai avuto tempo di guardare il file Maxo2.zip. Ciao Grazie
di Zer0Kelvin data: 28/02/2014 12:27:18
Rieccomi, scusa il ritardo.
Se sei daccordo penso che sia meglio rivedere tutta la faccenda daccapo e io mi occupo di creare un file funzionante; facciamo prima.
Spiegami solo a grandi linee che uso intendi fare di ciascuna form senza riferirti alla loro attuale struttura; solamente cosa vuoi visualizzare e/o modificare e le azioni che devono compiere le due form.
di rotella data: 28/02/2014 12:59:43
Ciao Zero per me va gia bene così devo fare solo apparire nelle text nuove che ho inserito dove c'è scritto settimana i vcalori che vedi da g4 a k4 e poi se devo inserire un codice completamente nuovo lo posso fare per il resto va bene così. ciao e grazie

di Zer0Kelvin data: 28/02/2014 21:47:58
In tal caso prova così

Private Sub ComboBox1_Change() 'questa routine viene eseguita ogni volta che si modifica il valore di combobox1
Dim sh As Worksheet
With Me.ComboBox1
    For Each sh In ThisWorkbook.Sheets ' controlla che esista un foglio con questo nome
            If .Value = sh.Name Then
                Me.Caption = "  - " & WorksheetFunction.Proper(.Value) & " -" 'aggiorna il titolo della userform
                Set shMese = sh 'imposta il foglio selezionato
                shMese.Select 'visualizza il mese cercato come sfondo
                With shMese
                    TextBox15 = .Range("G4") 'per visualizzare la settimana del mese funziona solo per gennaio
                    TextBox16 = .Range("H4")
                    TextBox17 = .Range("I4")
                    TextBox18 = .Range("J4")
                    TextBox19 = .Range("K4")
                End With
                Exit Sub ' tutto ok, possiamo uscire
            End If
    Next sh
    'se siamo arrivati qui vuol dire che il folgio per il mese selezionato non esiste
    MsgBox "Il foglio per il mese selezionato non esiste", vbExclamation
    .ListIndex = 0 'riseleziona gennaio
End With
End Sub


Private Sub TextBox1_AfterUpdate()
Dim fnd As Range
Set fnd = shMese.Range("A:A").Find(what:=Format(TextBox1, "@"))
If Not fnd Is Nothing Then
    With fnd
        riga = .Row        'Dati da copiare nella TextBox'
        TextBox2 = .Cells(1, 2) 'Descrizione prodotto
        TextBox3 = .Cells(1, 4) 'Voltaggio
        TextBox4 = .Cells(1, 5) 'Voltaggio
        TextBox12 = .Cells(1, 6) 'Arrivato Mese
        TextBox14 = .Cells(1, 14) 'Giacenza
    End With
End If
End Sub

di rotella data: 28/02/2014 22:18:04
Ok Grazie, Zer0Kelvin, c'è un problema che quando clicco il tasto pulisci mi pulisce tutto anche le text con le settimane (quelle da G4 a K4) e se inserisco un codice non le carica più devo uscire dal mese ed rientrare per farle apparire. io per pulire le text box uso questo codice che ti allego qui sotto.

Ora alla tua ultima modifica manca solo l'inserimento totale di un codice nuovo che vada a memorizzarsi nella prima riga libera del mese che inserisco in questo week ci provo io tanto gia so che non ci riuscirò, cmq ci provo. Ciao e grazie
'COMANDO PER PULIRE TEXTBOX' Private Sub CommandButton2_Click() Dim obj As Control For Each obj In Me.Controls If TypeOf obj Is MSForms.TextBox Then obj.Text = "" End If Next

di Zer0Kelvin data: 28/02/2014 22:40:42
Questa non è una soluzione molto "pulita", ma può andare.

PS: che ne è stato di TextBox5?

 Private Sub CommandButton2_Click()
 Dim i As Byte
    For i = 1 To 14
        If i <> 5 Then Me.Controls("TextBox" & i) = ""
    Next i
 Dim obj As Control
 End Sub

di rotella data: 28/02/2014 22:46:56
Hai ragione manca devo aver fatto qualche casino è lo chiamata 12
di mb (utente non iscritto) data: 01/03/2014 10:00:48
buon giorno
chiedo scusa a tutti, ma in questi giorni mi sno concentrato su un'altro progetto e mi sono perso questo argomento.
siccome non sono un esperto di vba ma cerco di carpire file per poi poter studiarne l'utlizzo e le regole di vba chiedo gentilmente a qualcuno dei partecipanti se può ripostare almeno un file d'esempio da cui partire.
purtroppo il neo di questo sito e che dopo pochissimi giorni i file vengono cancellati e quindi causa mia latitanza l'ho perso
grazie a chi riesce
di patel data: 01/03/2014 10:28:43
un esempio semplicissimo, vedi allegato textboxEsempio
[OT]
di Mauro data: 01/03/2014 10:34:45
Scusate l'intromissione da oggi passando il mouse sopra l'icona dell'allegato è possibile vedere anche l'autore. Solo per gli utenti iscritti.

di rotella data: 01/03/2014 11:26:18
Ciao patel ho visto il tuo file d'esempio io ho fato una modifica stupidissima i dati li registra sulla riga mase io volessi dirgli salva sulla prima riga disponibile come posso fare...grazie e ciao

Private Sub CommandButton1_Click()
TextBox1 = Range("A2")
TextBox2 = Range("b2")
TextBox3 = Range("c2")
End Sub
Private Sub CommandButton2_Click()
Range("A2") = TextBox1
Range("b2") = TextBox2
Range("c2") = TextBox3
End Sub

di patel data: 01/03/2014 11:36:16
così

Private Sub CommandButton2_Click()
LR = Cells(Rows.Count, "A").End(xlUp).Row +1
Range("A" & LR) = TextBox1
Range("b" & LR) = TextBox2
Range("c" & LR) = TextBox3
End Sub

di patel data: 01/03/2014 11:48:48
o meglio

Private Sub CommandButton1_Click()
For i = 1 To 3
    Controls("TextBox" & i).Value = Cells(2, i)
Next i
End Sub

Private Sub CommandButton2_Click()
LR = Cells(Rows.Count, "A").End(xlUp).Row +1
For i = 1 To 3
     Cells(LR, i) = Controls("TextBox" & i).Value
Next i
End Sub

di mb (utente non iscritto) data: 01/03/2014 22:22:16
ciao zero
nell'impossibilità di recuperare il file ho provato con le mie poche conoscenze a ricrearlo
non mi tirare le orecchie ma ho cercato di fare il possibile ma mi sono impantanato
1 lanciata l'esecuzione della userform come inserisco la g di gennaio nella combobox1 mi dice che il foglio per il mese selezionato non esiste
va in debug e si blocca alla riga
.ListIndex = 0 'riseleziona gennaio

2 se invece eseguo la sub con f8 mi permette di fare tutto però arrivato alla riga

Exit Sub ' tutto ok, possiamo uscire

si blocca e non esce

spero di essermi spiegato bene

grazie e scusami per il mio linguaggio maccheronico
confido nella tua pazienza e benevolenza per gl'incapaci come me
di mb (utente non iscritto) data: 01/03/2014 22:23:30
nome file esempio cartel1

rigrazie
di rotella data: 02/03/2014 12:15:33
Ciao Zer0 Kelvin come promesso ti avrei disturbato nuovamente non riesco a inserire dei nuovi articoli sul foglio Excel da text.
sul file che troverai ci sono tre form ho aggiunto il form inserimento per distinguere meglio le parti ciao e grazie
di rotella data: 02/03/2014 12:17:17
dimenticavo il file si chiama Maxo2-copia
di Zer0Kelvin data: 02/03/2014 15:07:01
Presumo che tu voglia inserire un nuovo articolo nella tabella del foglio materiale, giusto?
Penso che sia meglio, se sei d'accordo, che crei una nuova form "ad hoc".
Penso di formattare come tabella la lista in "Materiali". mi renderebbe più semplice il lavoro e non dovrebbe influire sul resto.
di Zer0Kelvin data: 02/03/2014 15:08:46
PS: che versione di Excel usi?
di Zer0Kelvin data: 02/03/2014 15:36:35
E penso di aver frainteso. Vuoi inserire dei nuovi articoli nei fogli mensili?
di Zer0Kelvin data: 02/03/2014 15:44:03
@MB
è meglio se apri un nuovo post, qui c'è già abbastanza "carne al fuoco", e io mi dosoriento facilmente.
di rotella data: 02/03/2014 16:02:22
CiaoZer0 non so cosa tu voglia fare la mia richiesta è solo di inserire con il form inserimento un nuovo articolo che mi arriva in pratica non è nient'altro il form aggiornamento di cui io ho modificato solo il nome è lo chiamato inserimento per poter inserire degli articoli nuovi nei mesi che mi arrivano. poi credo che per il momento sia finito finche non ricollego tutte le tabelle una con l'altra perché poi devo tirare fuori tutti i totali e dei grafici......spero di essere stato chiaro nella spiegazione non voglio complicarti il lavoro......
di Zer0Kelvin data: 02/03/2014 18:53:09
Nulla di complicato. Solo che io preferisco, piuttosto che mettere le mani su una form destinata ad altro uso, crearne una Ad Hoc; faccio prima! Trasformare tutti gli elenchi in tabelle richiede pochissimo tempo, e migliora notevolmente la "gestibilità" dal lato VBA. Appena posso e se qualcun altro non risolve prima, ti posto il file modificato.
di mb (utente non iscritto) data: 02/03/2014 19:11:01
Zer0Kelvin
ok va bene
di Zer0Kelvin data: 05/03/2014 16:28:10
Ho fatto le modifiche che ti dicevo.
Ho allegato il file; il file si chiama "Maxo2 - V. 2.xls"
Se hai dubbi o si verificano errori, chiedi pure.
di rotella data: 05/03/2014 19:46:38
Per ZeroKelvin:
miiiiiii ke figata che è venuto grazzzzziiiiieeeeeeeee sei troppo avanti......... Grazie
di Zer0Kelvin data: 06/03/2014 10:37:02
Grazie dell'apprezzamento, ma CONTROLLA BENE che TUTTO funzioni come si deve.
LOL

Vuoi Approfondire?