Excel Forum

	Soluzioni Excel Domande e Risposte
		copia

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

copia

Ultimo Aggiornamento: 22/02/2018 12:54

trittico69

Post: 213

Registrato il: 02/04/2010

Città: MILANO

Età: 54

Utente Junior

2002

OFFLINE

22/02/2018 10:22

00#1

copia sostituedo i dati vecchi

qualcuno puo aiutarmi con questo codice?

Sheets("archivio").Select
 Columns("A3:D2000").Select ' copia i movimenti di ieri dal foglio archivio al foglio ubic ieri
    Range("A2").Activate
    Selection.Copy
    Sheets("ubic ieri").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

lo inserito in un lungo codice.
quando parte l'intrero codice lui va a copiare ma trovando dati vecchi mi dice se voglio sostituirli.
potresti mettermi un rigo che automaticamete dica "si" in modo che sostituisce senza che io clicco su "si"
grazie

[Modificato da trittico69 22/02/2018 10:26]

excel 2003

raffaele1953

Post: 3.184

Registrato il: 28/06/2011

Città: AGORDO

Età: 70

Utente Master

2013

OFFLINE

22/02/2018 10:45

00#2

Non va bene se da qualche parte c'è scritto Exit Sub
Casomai allega solo il codice in un TXT che lo metto a posto

Sub nome()
Application.DisplayAlerts = False
'''''Tuo codice
'''''Tuo codice
Application.DisplayAlerts = True
End Sub

Excel 2013

dodo47

Post: 1.815

Registrato il: 06/04/2013

Utente Veteran

2010

OFFLINE

22/02/2018 10:48

00#3

Ciao
Dopo aver seguito i suggerimenti di Raffaele (saluti)
come fa a funzionare quello stralcio di codice ?? (fatto molto male, perdonami) .

Non ti segnala errore nella riga:
Columns("A3:D2000").Select ???, dovrebbe essere Range("A3........

saluti

[Modificato da dodo47 22/02/2018 10:56]

Domenico
Win 10 - Excel 2016

trittico69

Post: 216

Registrato il: 02/04/2010

Città: MILANO

Età: 54

Utente Junior

2002

OFFLINE

22/02/2018 12:20

00#4

ok ho fatto questa modifica adesso va bene
Application.DisplayAlerts = False
Sheets("archivio").Select
Range("A3:D2489").Select ' copia i movimenti di ieri dal foglio archivio al foglio ubic ieri
Range("A3").Activate
Selection.Copy
Sheets("ubic ieri").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True

excel 2003

raffaele1953

Post: 3.185

Registrato il: 28/06/2011

Città: AGORDO

Età: 70

Utente Master

2013

OFFLINE

22/02/2018 12:54

00#5

Non vanno bene tutti quei Select, copy dal foglio "archivio" in "ubic ieri" ??? (se è giusto=OK)
Ex di come si scrive...

Sub nome()
Application.DisplayAlerts = False ' blocca lo sfarfallio del monitor
Application.ScreenUpdating = False ' blocca msg d'errore
Sheets("archivio").Range("A3:D2489").Copy
''''' Range("A3").Activate .....non serve
Sheets("ubic ieri").Range("A1").PasteSpecial
Application.CutCopyMode = False
Application.ScreenUpdating = True ' rimetti a posto il monitor
Application.DisplayAlerts = True ' rimetti msg d'errore
End Sub

Ps. Inoltre domani mattina i dati di "ubic ieri" vengono sovvrascritti
Oltre ad uno spreco di risorse, se le righe non sono tutte piene
Ex copio le celle scritte e le incollo dopo l'ultima riga di "ubic ieri" (almeno puoi controllare giornate indietro)

Sub nnome()
Dim Ur1 As Long, Ur2 As Long 'variabili
Ur1 = Sheets("archivio").Range("A" & Rows.Count).End(xlUp).Row 'conta righe
Ur2 = Sheets("ubic ieri").Range("A" & Rows.Count).End(xlUp).Row + 1 'conta righe
Application.DisplayAlerts = False ' blocca lo sfarfallio del monitor
Application.ScreenUpdating = False ' blocca msg d'errore
Sheets("archivio").Range("A3:D" & Ur1).Copy
''''' Range("A3").Activate non serve
Sheets("ubic ieri").Range("A" & Ur2).PasteSpecial
Application.CutCopyMode = False
Application.ScreenUpdating = True ' rimetti a posto il monitor
Application.DisplayAlerts = True ' rimetti msg d'errore
End Sub

Scusa ho invertito le spiegazioni del monitor e MSG

[Modificato da raffaele1953 22/02/2018 12:57]

Excel 2013