È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum

	Soluzioni Excel Domande e Risposte
		Scrivere su 2 celle diverse su 2 Fogli diversi vba

Rispondi

Registrati

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Scrivere su 2 celle diverse su 2 Fogli diversi vba

Ultimo Aggiornamento: 21/07/2019 21:03

by sal

Post: 5.720

Registrato il: 14/11/2004

Utente Master

Office 2019

OFFLINE

21/07/2019 08:20

10#2

scrivere su fogli diversi

Ciao Alessandro, senza un file è difficile risponderti comunque questo codice

Sheets("CRONOLOGIA COMANDATE").Range("A3").End(xlDown).Offset(1, 0) = txttipomezzo.Value

dovrebbe scrivere sull'ultima cella della colonna "A", in quanto se nella colonna "A" ce una cella vuota si ferma a quella cella e scrive nella cella sottostante che è piena dal tuo codice.

se vuoi scrivere sull'ultima cella vuota della colonna "A" sarebbe meglio prima definire la riga con una variabile esempio

Dim R

R = Sheets("Cronologia Comandate").cells(rows.count,1).end(Xlup).Row +1
sheets("Cronologia Comandate").cells(R,1) = txttipomezzo.value

se si stratta di 1 solo dato se sono diversi, a me scoccia ripetere parte di codici, esempio

Sheets("Cronologia Comandate")
meglio usare se sono di più

With Sheets("Cronologia Comandate")
.Cells(R,1) = Txttipomezzo
.Cells(R,5) = txtestintore
.etc...
End With

Ciao By Sal [SM=x423051]