Copia valore textbox tante quante sono le celle

[WCB]

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
Come sempre vi ringrazio in anticipo per qualsiasi suggerimento e buon weekend

[wallace&gromit]

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;"")

[Anthony47]

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

[WCB]

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

[WCB]

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

[Anthony47]

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

[WCB]

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
In questo caso non dovrebbe ridarmi le celle vuote (D3 e E3)?
Ti chiedo scusa se non ho ben spiegato nel primo post
Grazie per l'aiuto!

[Anthony47]

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

[WCB]

Buongiorno a tutti!
Grazie mille Anthony, la tua soluzione va alla grande.
Grazie della tua disponibilità!
Buon inizio settimana