RISULTATI IN AUTOMATICO

alfrimpa, 22/05/2017 11.40:

---

Ciao Arianna ed un saluto a Locate.

Mi sono permesso di "reinterpretare" un po' la tua richiesta

Se guardi nel file allegato c'è un solo foglio (con la tabella) ed un pulsante.

Se clicchi sul pulsante ti si apre una maschera per l'inserimento dei dati; quando è completato l'inserimento clicca su "Inserisci dati" e questi verranno trasferiti sul foglio e la maschera "ripulita" per un nuovo inserimento.

Questo il codice utilizzato

vb

Private Sub CommandButton1_Click()
Dim i As Integer
Dim ur As Long
ur = Sheets("foglio1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 5
    Sheets("Foglio1").Cells(ur + 1, i).Value = Me.Controls("Textbox" & i).Value
Next i
For i = 1 To 5
     Me.Controls("Textbox" & i).Value = ""
Next i
End Sub

Private Sub CommandButton2_Click()
Me.Hide
End Sub

Sulla maschera c'è anche un pulsante per la sua chiusura.

---

ARIANNAM, 22/05/2017 11.52:

---

Come sempre gentilissimo e velocissimo!!

Diciamo che hai interpretato bene ma il punto (casellina dove cliccare) però il mio problema è questo (lì ho semplificato il tutto):


Io ho una tabella con parecchie informazioni e vorrei che si facesse tipo uno screen dei dati inseriti man mano che concludo una tabella.

Non so se è possibile.

e per inserire il tastino cme si fA?

---

alfrimpa, 22/05/2017 12.18:

---

Onestamente non ho capito molto.

Riesci a spiegare meglio quello che vuoi fare magari allegando un file di esempio che sia un po' più coerente con la situazione reale?

---

alfrimpa, 22/05/2017 14.02:

---

Arianna perdonami ma dovresti fare un esempio di come i dati presenti sul form del foglio1 siano archiviati in foglio2 (che attualmente è vuoto).

In sostanza devo capire dove ogni dato (quelli variabili immagino) debba andare a finire sul foglio2.

Si può anche costruire una bella userform che riproduca il foglio1 (che si può eliminare) ed archivi i dati sul foglio2 come nell'esempio che facevo prima e non hai bisogno di cancellare nulla.

Non so se mi sono spiegato.

P.S. In Excel (con annesso VBA) forse solo il caffè non si riesce a fare .

---

locatevaresino, 22/05/2017 16.00:

---

ciao Alfredo

ho visto adesso l'intervento e tutta la discussione che ne e' nata
da come ho capito , Arianna, non ha la minima idea di cosa sia un database e il suo utilizzo
ritornando al mio post , non ha chiarito , sulle mie spigazioni e domande cosa volesse fare con inserimento di dati in foglio1 e riporto di questi in foglio2

rimango anch'io in attesa di un chiarimento

---

alfrimpa, 22/05/2017 16.12:

---

Infatti Locate.

Se fosse come ho detto (con tutto il rispetto per Arianna) sarebbe una cosa senza senso.

---

alfrimpa, 22/05/2017 17.18:

---

Quindi tu vuoi una duplicazione del foglio1 ogni volta che completi l'inserimento dati?

ma dopo un po' di tempo avrai un numero enorme di fogli.

E' questo quello che desideri?

---

alfrimpa, 22/05/2017 17.39:

---

Arianna questa è la macro che duplica il foglio, lo denomina con il nome dell'azienda presente in H4 del foglio1 e cancella le celle del foglio1.

Ovviamente tu devi modificare riga che ti ho indicato inserendo gli indirizzi degli intervalli da cancellare (io li ho messi a casaccio)

vb

Sub Macro1()
Dim myRange As Range
    Sheets("Foglio1").Copy After:=Sheets(1)
    ActiveSheet.Name = Sheets("foglio1").Range("h4").Value
    Set myRange = Uni0n(Range("A1"), Range("B1:C8").... etc) <---- da modificare
    myRange.ClearContents
End Sub

Prova e fai sapere.

---

alfrimpa, 23/05/2017 15.49:

---

Ma no Arianna non gettare la spugna ad un metro dal traguardo (anche perché se fai così non impari mai).

La cosa è semplicissima devi solo completare l'istruzione

vb

Set myRange = Uni0n(Range("A1"), Range("B1:C8").... etc)

con tutte le celle/intervalli da cancellare.

Se non riesci scrivi qui tutte le celle da cancellare sul foglio1 e lo faccio io.

---