giorno settimanamesegiorno

Sono passati 316 giorni dall'inizio dell'anno che corrispondono a 46 settimane

Il cuore di una donna è sfuggente come una goccia d'acqua su una foglia di loto (Prov. cinese)



* Chattina

Aggiorna Storia
  • _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
  • _jan_: Buon onomastico a tutti i Giacomo!!!
    Luglio 25, 2018, 06:40:12
  • nuvolotta: Si ci sono sono passata per mettere un paio di video su Gimp
    Luglio 20, 2018, 10:54:00
  • _jan_: Auguri a tutti gli Aurelio!!
    Luglio 20, 2018, 09:22:13
  • _jan_: Buon onomastico ai Simmaco!!!
    Luglio 19, 2018, 10:37:59
  • _jan_: Bentornato Topolino apprendista!!
    Luglio 18, 2018, 15:47:02
  • _jan_: Buon onomastico a tutti i Giacinto!!!
    Luglio 18, 2018, 15:46:15
  • Loretta/Nina: porcaccia miseria che periodo uff! Vorrei esserci di più ma non riesco  :Shok123:, mi riprometto di essere più presente ... spero  :Shok123:
    Luglio 17, 2018, 20:51:45
  • _jan_: Buon onomastico a tutti gli Alessio. (ci fosse uno che dica grazie....) :Cartelli70:
    Luglio 17, 2018, 10:52:32
  • _jan_: Buon onomastico a tutti i Carmelo!!!
    Luglio 16, 2018, 10:25:47
  • _jan_: Tommaso!!! Credici.....
    Luglio 03, 2018, 19:31:27

* Emoticon aggiuntive e link al portale


Autore Topic: Sfarfallio del monitor  (Letto 1300 volte)

0 Utenti e 1 Visitatore 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