LORETTA B. nel-web forum

Linguaggi di programmazione => Problematiche Excel => Topic aperto da: Tullio - Novembre 04, 2013, 10:04:08

Titolo: Sfarfallio del monitor
Inserito da: Tullio - Novembre 04, 2013, 10:04:08
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
Titolo: Re:Sfarfallio del monitor
Inserito da: micdas - Novembre 04, 2013, 12:52:26
Dove scrivi
Citazione
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
prova con
Citazione
With Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
Titolo: Re:Sfarfallio del monitor
Inserito da: Tullio - Novembre 04, 2013, 16:58:49
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