Sfarfallio del monitor

[Tullio]

Ciao micdas,
avrei ancora un problemino, lo sfarfallio del monitor che non riesco ad eliminare da questa sub che
lavorando su alcune celle del foglio "fattura" le copia in una riga del foglio "Archivio".
Se utilizzo l'istruzione remmata non sfarfalla ma fa una copia fisica delle celle, vale a dire che quello
che copia sono anche i formati e questo non lo vorrei, c'è modo di impostare il Copy_destination come il
PasteSpecial ?
Tullio

Codice: Non sei autorizzato a vedere i links. Registrati o Login

Sub archivia()

Dim RF, CF As Variant
Application.ScreenUpdating = False
RF = Array(12, 17, 15, 26, 56, 56, 57, 57, 58, 58)
CF = Array(5, 3, 3, 5, 4, 5, 4, 5, 4, 5)
Dim Riga, Colonna, maxcolonna, n As Integer
maxcolonna = 10
Riga = 4
Colonna = 1
Sheets("archivio").Select
Cells(Riga, Colonna).Select
While Not Cells(Riga, Colonna) = "" ' Controlla tutte le righe della prima colonna
    Riga = Riga + 1                 ' se sono vuote
Wend

For n = 1 To maxcolonna
    If n = 2 Then
     Colonna = Colonna + 2
    End If
        Sheets("fattura").Select
        Cells(RF(n), CF(n)).Select   'DA COPIARE
        Selection.Copy
        Sheets("archivio").Select
        Cells(Riga, Colonna).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

        'Sheets("Fattura").Cells(RF(n), CF(n)).Copy Destination:=Sheets("Archivio").Cells(Riga, Colonna)

        Colonna = Colonna + 1
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


[micdas]

Dove scrivi

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

prova con

With Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

[Tullio]

Grazie micdas,
nel frattempo l'avevo modificata così e non sfarfalla più.

Codice: Non sei autorizzato a vedere i links. Registrati o Login

For n = 1 To maxcolonna
    If n = 2 Then
     Colonna = Colonna + 2
    End If
        Sheets("fattura").Select
        Cells(RF(n), CF(n)).Copy   'DA COPIARE
        Sheets("archivio").Select
        Cells(Riga, Colonna).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Colonna = Colonna + 1
Next