Condividi:        

copia valore

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

Postdi rombotuono » 22/05/19 16:35

buongiorno
utilizzando questo codice che funziona molto bene
ho notato che se nelle celle in questione è presente una formula
purtroppo non copia il valore ma la formula.
se invece è presente un valore tutto ok
ho provato in svariati modi ma il problema non sono riuscito a risolverlo.
chiedo se è possibile modificare l'istruzione per far si che venga copiato soltanto il valore .
grazie.

Sub data()
For i = 3 To 13
If Range("te" & i).Value <> "" Then
Range("td" & i).Copy Range("un1")
' Range("tf" & i).Copy Range("up1")
' Range("te" & i).Copy Range("uo1")
End If
Next i
End Sub
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Sponsor
 

Re: copia valore

Postdi FRIEDRICH » 22/05/19 17:53

Ciao rombotuono,

mi pare che ci sia un errore nel tuo codice, all'interno di un ciclo hai impostato una singola cella ("UN1") come destinazione. In ogni caso non c'è bisogno di copiare ed incollare ma puoi semplicemente attribuire al Range di destinazione il valore del Range di origine, ad esempio:

Codice: Seleziona tutto
Range("UN" & i) = Range("TD" & i)
Avatar utente
FRIEDRICH
Utente Junior
 
Post: 32
Iscritto il: 09/07/17 17:14

Re: copia valore

Postdi rombotuono » 22/05/19 18:22

ciao
con questa istruzione esegue il ciclo oltre al range td & i anche in copy ("un1")
Range("td" & i).Copy Range("un1")
nelle un ottengo
gh
gh
gh
df
non va bene
voglio copiare questi dati sempre nella stessa cella
sorgente td destinazione un1 vorrei ottenere soltanto il valore.
grazie
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: copia valore

Postdi FRIEDRICH » 22/05/19 18:51

Ancora ciao,
prova così:
Codice: Seleziona tutto
Sub data2()

For I = 3 To 13
If Range("te" & I).Value <> "" Then
Range("un1") = Range("td" & I)
End If
Next I

End Sub
Avatar utente
FRIEDRICH
Utente Junior
 
Post: 32
Iscritto il: 09/07/17 17:14

Re: copia valore

Postdi rombotuono » 22/05/19 19:02

perfetto molte grazie
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: copia valore

Postdi FRIEDRICH » 22/05/19 19:05

Ciao e grazie per il riscontro.
Avatar utente
FRIEDRICH
Utente Junior
 
Post: 32
Iscritto il: 09/07/17 17:14


Torna a Applicazioni Office Windows


Topic correlati a "copia valore":

BTp Valore
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Gianca532011 e 73 ospiti