Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copia valore textbox tante quante sono le celle

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copia valore textbox tante quante sono le celle

Postdi WCB » 24/05/19 18:05

Buonasera a tutti,
ho bisogno di voi per aiutarmi a risolvere il quesito. :?:
Ho due userform, in una ci sono quattro textbox: nella textbox1 scrivo "progetto1", nella textbox2 scrivo "documento1",nella textbox3 scrivo "documento2", nella textbox4 scrivo "documento3". Clicco sul command button e me li aggiunge sul foglio1 esattamente in questa posizione:
progetto1 (D1), documento1 (E1), documento2 (E2), documento3 (E3)

Io vorrei che "progetto1" sia inserito anche all'altezza degli altri "documenti" e cioè in D2 e in D3. In pratica la textbox1 deve "seguire i valori" delle altre textbox.
Se ad esempio inserisco i valori solo nelle textbox2 e textbox3 (E1 e E2), la textbox1 duplica il valore (D1 e D2).
Spero di aver spiegato bene e scusate i giri di parole.
Sono a vostra disposizione per qualsiasi chiarimento e scusate se chiedo sempre il vostro aiuto :cry:
Come sempre vi ringrazio in anticipo per qualsiasi suggerimento e buon weekend ;)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Sponsor
 

Re: Copia valore textbox tante quante sono le celle

Postdi wallace&gromit » 24/05/19 20:30

Forse non ho capito bene, ma io risolverei a livello di formule nelle celle D2 e D3, per esempio in D2:
Codice: Seleziona tutto
=SE(E2<>"";D1;"")
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1923
Iscritto il: 16/01/12 14:21

Re: Copia valore textbox tante quante sono le celle

Postdi Anthony47 » 25/05/19 00:56

Probabilmente sara' poco pratico popolare alcune celle tramite codice e altre tramite formule (proposta di W&G).
Pero' per modificare come da richiesta dovresti dire quale codice hai adesso associato al CommandButton; senno' ce la caviamo con il suggerimento "mentre scrivi TextBox3 e TextBox4 scrivi nella cella adiacente TextBox1"

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16457
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copia valore textbox tante quante sono le celle

Postdi WCB » 25/05/19 09:40

Buongiorno e grazie ad entrambi per aver risposto :)
Ho dimenticato di scrivere il codice associato, avete ragione e scusate la mia dimenticanza!
Questo di seguito è il codice associato al commandbutton:

Codice: Seleziona tutto
Private Sub CommandButton1_Click()

Worksheets("Sheet1").Range("D1") = TextBox1.Text
Worksheets("Sheet1").Range("E1") = TextBox2.Text
Worksheets("Sheet1").Range("E2") = TextBox3.Text
Worksheets("Sheet1").Range("E3") = TextBox4.Text

End Sub

Grazie mille dell'aiuto :)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Re: Copia valore textbox tante quante sono le celle

Postdi WCB » 25/05/19 13:11

Scusatemi, ho dimenticato di dire una cosa..
Il valore delle textbox era solo un esempio: sia in D1 e nelle altre celle scriverò qualsiasi altra cosa, non sarà per forza "progetto1", "documento1" ecc.
Grazie ancora :roll:
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Re: Copia valore textbox tante quante sono le celle

Postdi Anthony47 » 25/05/19 13:41

Tra le tante opzioni:
Codice: Seleziona tutto
Worksheets("Sheet1").Range("D1") = TextBox1.Text
Worksheets("Sheet1").Range("E1") = TextBox2.Text
If Len(TextBox3.Text) > 0 Then
    Worksheets("Sheet1").Range("E2") = TextBox3.Text
    Worksheets("Sheet1").Range("D2") = TextBox1.Tex
End If
If Len(TextBox4.Text) > 0 Then
    Worksheets("Sheet1").Range("E3") = TextBox4.Text
    Worksheets("Sheet1").Range("D3") = TextBox1.Tex
End If


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16457
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copia valore textbox tante quante sono le celle

Postdi WCB » 25/05/19 14:46

Ciao Anthony,
volevo dirti che la soluzione da te proposta va bene ma nell'ultima cella rimane il dato precedente anche se nella textbox4 non scrivo niente :eeh:
In questo caso non dovrebbe ridarmi le celle vuote (D3 e E3)?
Ti chiedo scusa se non ho ben spiegato nel primo post :roll:
Grazie per l'aiuto!
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52

Re: Copia valore textbox tante quante sono le celle

Postdi Anthony47 » 25/05/19 18:12

Il suggerimento e' di premettere allora la pulizia dell'area prima di copiare i txtbox:
Codice: Seleziona tutto
Worksheets("Sheet1").Range("D1:E3").ClearContents           '<<< AGGIUNTA
Worksheets("Sheet1").Range("D1") = TextBox1.Text            '<<< Esistente
'Continua

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16457
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copia valore textbox tante quante sono le celle

Postdi WCB » 27/05/19 10:09

Buongiorno a tutti!
Grazie mille Anthony, la tua soluzione va alla grande. :)
Grazie della tua disponibilità!
Buon inizio settimana :D
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Junior
 
Post: 92
Iscritto il: 09/01/19 17:52


Torna a Applicazioni Office Windows


Topic correlati a "Copia valore textbox tante quante sono le celle":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti