Condividi:        

errore di scrittura

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

errore di scrittura

Postdi Ale75 » 27/07/22 11:22

Salve,

ho un paio di errori banali che non capisco:

PRIMO ERRORE
ho assegnato a due pagine (tramite il comando Set) i nomi di Origine e Destinazione. Copio i dati da un foglio e li incollo nell'altro
VarR1, VarC1 definiscono riga e colonna del foglio origine e VarR2, VarC2 dl foglio destinazione.
Cosi Funziona
Codice: Seleziona tutto
        Origine.Cells(VarR1, VarC1).Copy
 Destinazione.Cells(VarR2, VarC2).PasteSpecial


In un altra cella devo invece scrivere un valore (N/A). ho usato lo stesso comando per semplificare la scrittura (pensavo) ma non funziona
Non Funziona
Codice: Seleziona tutto
   
        Destinazione.Cells(VarR2, VarC2+1).Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "N/A"


questo funziona

Codice: Seleziona tutto
        Destinazione.Select
        Cells(VarR2, VarC2+1).Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "N/A"


Per mia conoscenza.. dove sbaglio?

Secondo errore ERRORE

devo scrivere un testo (sempre N/A) su delle celle contigue, ma utilizzando questo codice non va

Range(Cells(VarR2, VarC2+3), Cells(VarR2, VarC2+5)).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "N/A"


e come sopra devo spezzare il comando e rieperelo per ogni singola cella... anche qui: Dove sbaglio?



grazie,
Ale
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42

Sponsor
 

Re: errore di scrittura

Postdi Anthony47 » 27/07/22 12:44

Codice: Seleziona tutto
        Destinazione.Cells(VarR2, VarC2+1).Select          ‘QUESTA NON VA BENE
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "N/A"

Non puoi cambiare foglio e Selezione contemporaneamente, devi farlo in due passaggi diversi (come nel codice che “questo funziona”)
Oppure usi Goto:
Codice: Seleziona tutto
Application.Goto Destinazione.Cells(VarR2, VarC2+1)

Ma puoi usare anche direttamente
Codice: Seleziona tutto
Destinazione.Cells(VarR2, VarC2+1) .Formula = "N/A"



Codice: Seleziona tutto
Range(Cells(VarR2, VarC2+3), Cells(VarR2, VarC2+5)).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "N/A"       ‘SCRIVE IN 1 SOLA CELLA??


C’e’ solo 1 cella attiva, quindi con “non funziona” immagino che intenda che non scrive in tutte le celle selezionate ma solo su una.
Prova usando
Codice: Seleziona tutto
Selection.Formula = "N/A"

Oppure usi direttamente
Codice: Seleziona tutto
Range(Cells(VarR2, VarC2+3), Cells(VarR2, VarC2+5)).Formula = "N/A"


Commento: se invece della stringa N/A vuoi scrivere “l’errore #N/A” allora usa XXXX.Formula ="=NA()"
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: errore di scrittura

Postdi Ale75 » 28/07/22 07:36

perfetto
userò .Formula

Grazie !
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42


Torna a Applicazioni Office Windows


Topic correlati a "errore di scrittura":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti

cron