errore di scrittura

[Ale75]

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

[Anthony47]

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

[Ale75]

perfetto
userò .Formula

Grazie !