giorno settimanamesegiorno

Sono passati 88 giorni dall'inizio dell'anno che corrispondono a 13 settimane

Arcobaleno, domani sereno



* Chattina

Aggiorna Storia
  • mar: :resistere:
    Febbraio 15, 2022, 19:44:48
  • mar: Non mi ricordavo di essere un global moderator wauuuu Ok Prof ti lascio restaurare in pace!
    Febbraio 15, 2022, 19:43:56
  • mar: :Cartelli70:
    Febbraio 15, 2022, 19:41:14
  • mar: ad cazzum pure qui?
    Febbraio 15, 2022, 19:41:02
  • mar: ciaoooo sono in perlistrazione
    Febbraio 15, 2022, 19:40:44
  • mar: :okkey:
    Febbraio 15, 2022, 19:40:20
  • Loretta/Nina: ciao a tutti
    Ottobre 04, 2021, 19:23:02
  • Loretta/Nina: :tuffarsi:
    Settembre 21, 2021, 07:08:03
  • Loretta/Nina: Buon autunno a tutti
    Settembre 21, 2021, 07:01:35
  • nuvolotta: avventure testuali
    Luglio 06, 2020, 23:26:08
  • _jan_: ...gli ultimo però....!!
    Gennaio 14, 2019, 14:45:09
  • _jan_: vedi gli ultimi post in fondo.
    Novembre 24, 2018, 19:10:00
  • mar: Trovato :Amm9:
    Novembre 24, 2018, 18:57:51
  • mar: Chi cerca trova non vi trovo! :Cartelli2:
    Novembre 24, 2018, 18:57:05
  • mar: Vado a vedere le cartoline!
    Novembre 24, 2018, 18:52:38
  • mar: :Amore145:
    Novembre 24, 2018, 18:52:21
  • mar: :Amore178:
    Novembre 24, 2018, 18:52:07
  • _jan_: Welcome Visitor.  :Party133:
    Novembre 15, 2018, 10:03:24
  • Loretta/Nina: Benvenuto ligi  :Cartelli37:
    Ottobre 09, 2018, 13:19:25
  • nuvolotta: Cucù...  :Amore20:
    Settembre 16, 2018, 01:16:47
  • Loretta/Nina: :Party133:
    Settembre 01, 2018, 17:05:30
  • _jan_: Ciao ai visitors!!
    Settembre 01, 2018, 17:02:31
  • Loretta/Nina: :fischio: :979:
    Agosto 28, 2018, 16:20:48
  • ketty: ah beh, meno male. ora il tempo e' un po' brutto
    Agosto 26, 2018, 13:27:36
  • _jan_: No, no, soqquà. Ci passo ma....... non c'è mai nessuno. Ammiro Nuvolotta, solitaria e presente.
    Agosto 25, 2018, 10:34:41
  • ketty: ma Jan è andato in vacanza? :Cartelli70:
    Agosto 24, 2018, 20:51:59
  • ketty: ciao a tutti.
    Agosto 24, 2018, 20:50:12
  • nuvolotta: :faccina_fiore: ciao ragazzioli/ole...
    Agosto 19, 2018, 23:03:49
  • Loretta/Nina: :ciao: :Party133:
    Agosto 19, 2018, 20:24:28
  • _jan_: :Felici13:
    Agosto 04, 2018, 15:30:40
  • nuvolotta: Ferie... già fatte....
    Agosto 04, 2018, 09:54:58
  • _jan_: Auguri di buon onomastico a tutti gli Alfonso....
    Agosto 01, 2018, 11:10:21
  • _jan_: chiusp per ferie?
    Luglio 30, 2018, 19:50:58
  • _jan_: Buon onomastico a Donatella Seconda........ e la prima? :Shok145:
    Luglio 30, 2018, 06:59:38
  • _jan_: Buon onomastico a tutte le Marta.  :Amore20:
    Luglio 29, 2018, 07:44:31
  • _jan_: Ci sono altre nuove iscritte viste il 26 luglio 2018..... (mica saranno monache)....  :approva:
    Luglio 26, 2018, 18:39:04
  • _jan_: Oggi, 26 luglio 2018, abbiamo una nuova iscritta "Francesca".....Benvenuta Francesca.  :Party133:
    Luglio 26, 2018, 15:49:24
  • _jan_: Buon onomastico anche a tutte le Anna!!! .....
    Luglio 26, 2018, 10:30:21
  • _jan_: Auguri di Buon Onomastico a TUO..... (ogni giorno, credo)..... :sm269:
    Luglio 26, 2018, 10:28:52
  • ketty: ma.... quando è il tuo?
    Luglio 25, 2018, 19:52:19

* Emoticon aggiuntive e link al portale


Autore Topic: Sfarfallio del monitor  (Letto 2073 volte)

0 Utenti e 2 Visitatori stanno visualizzando questo topic.

Tullio

  • Visitatore
Sfarfallio del monitor
« il: 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
« Ultima modifica: Novembre 04, 2013, 10:06:37 da Tullio »

Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re:Sfarfallio del monitor
« Risposta #1 il: 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
E' stupido pensare di non aver bisogno degli altri

Tullio

  • Visitatore
Re:Sfarfallio del monitor
« Risposta #2 il: 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