[VB]Copiare dati textBox in cella di foglio Excel

[tosessa]

Salve a tutti se possibile vorrei delle indicazioni per poter trasferire dei dati inseriti un textBox di visual basic alla cella di un foglio excel esempio "al foglio1 cella A1" vorrei conoscere il codice necessario. Grazie

[quizface]

Dovresti chiedere nella sezione Applicazioni Office Windows, ne sanno molto di più

[mezzodestro]

Ciao,
immagino che tu stia parlando di un textBox all'interno di una UserForm....in quel caso la soluzione più semplice è creare un CommandButton (un pulsante) e all'evento del pulsante inserisci Sheets("Foglio1").Range("A1") = TextBox.Value (TextBox1 o TextBox2...controlla come si chiama...)

[tosessa]

Grazie mezzodestro il codice e OK
ma se io vorrei far scorrere idati che scrivo in quel TextBox ogni volta che lo apro in una cella successiva sempre nel foglio 1!
esempio Foglio1 cella A1 salva poi Cella A2 salva e cosi via.
grazie.

[hydra]

Qua si tratta di programmazione in VB. Sposto

[mezzodestro]

il primo modo che mi viene in mente è di inserire un contatore di inserimenti all'interno della UserForm, cioè tutte le volte che premi il CommandButton questo contatore si incrementa di 1.
Questo valore corrisponderebbe al N° della riga su cui scrivere.
Tutte le volte che si apre la UserForm bisogna poi chiedersi se vogliamo ricominciare dalla riga 1, da dove eravamo rimasti, o dalla prima riga vuota.....Quello dipende poi dallo scopo del progetto.
Per fare questo hai bisogno di una cella di servizio sul foglio dove "congelare" il valore di questo contatore (nell'esempio la cella B2), perché mentre sei in VBA la UserForm non tiene in memoria il valore, perciò ti "appoggi" ad una cella di Excel . So che esiste il modo facendo delle dichiarazioni "pubbliche" e non "private" ma io non lo so fare (per ora.. ) .

Fai una UserForm con 1 TextBox e un CommandButton.
Alla pressione del CommandButton la macro inizia a scrivere dalla riga A1..A2...A3.

Codice: Seleziona tutto

i = Sheets("Foglio1").Range("b1")
i = i + 1
Sheets("Foglio1").Range("b1") = i  ' ESEMPIO PER VEDERE SU B1 LA PROSSIMA RIGA CHE VERRA' INSERITA
Sheets("Foglio1").Range("a" & i) = TextBox1
TextBox1 = ""
TextBox1.SetFocus

[Anthony47]

C' e' una sezione che si occupa esplicitamente di Applicazioni Office (viewforum.php?f=26)...
Per caricare nella prima riga libera di colonna A, invece di Sheets("Foglio1").Range("A1") = TextBox.Value userai

Codice: Seleziona tutto

Sheets("Foglio1").Cells(Rows.count,1).End(xlup).Offset(1,0) = TextBox.Value


Ciao