importare dati da cella excel a TextBox

[tosessa]

Salve a tutti se possibile vorrei sapere codice per importare un dato da una cella excel a un TexBox "esempio"
(Foglio1 cella E2 ad TexBox1.Tex) grazie.

[Flash30005]

Codice: Seleziona tutto

UserForm1.TextBox1.Text = Range("E2").Value


[tosessa]

Grazie ok ma se inserisco il testbox direttamente sull foglio1 dove inserisco i dati, quale può essere la variante al quel codice?( userform1.TextBox1.Tex=Range("E2").Value

[Anthony47]

Quindi hai inserito sul foglio un textbox prelevandolo tra i "controlli ActiveX" (barra degli Strumenti di controllo).
Questo controllo dispone di una proprieta' "LinkedCell", che consente di associare in modo bidirezionale il contenuto del textbox e una cella (un valore scritto nella cella si replica anche nel textbox, un valore scritto nel textbox si replica anche nella cella); forse puoi usare questa caratteristica.

Puoi controllare via macro la LinkedCell con una istruzione del tipo

Codice: Seleziona tutto

Sheets("Foglio1").TextBox1.LinkedCell = "F2"

Oppure puoi caricare il valore del textbox con istruzioni del tipo

Codice: Seleziona tutto

Sheets("Foglio1").TextBox1.LinkedCell = ""       'Questa serve per cancellare eventuali LinkedCell
Sheets("Foglio1").TextBox1.Text = Range("C2").Value

Ciao