| | Post: 67 | Registrato il: 04/08/2004
| Utente Junior | 2007 | | OFFLINE |
|
20/02/2020 14:00 | |
ho una macro che uso da tempo sempre andata benissimo ora non dà più segni di vita...quale può essere il motivo?
grazie
Excel 2007 |
|
| | Post: 289 | Registrato il: 31/01/2010
| Città: LIVORNO | Età: 61 | Utente Junior | 2016 | | OFFLINE | |
|
20/02/2020 18:00 | |
Allegala
E vediamo....
--------------
Marco
excel 2013 |
| | Post: 3.727 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
20/02/2020 19:29 | |
Non si capisce la struttura del Codice VBA ne il contesto nel quale dovrebbe funzionare.
Malauguratamente proprio ieri ho rotto la mia sfera di cristallo.
Allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi desidera aiutarti.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 904 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
21/02/2020 00:15 | |
Prevedo che è semplicemente vittima del gravissimo problema del nuovo millennium bug del 2020. L'unica soluzione è riscrivere completamente la macro a meno di attivare l'autoriparazione.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 67 | Registrato il: 04/08/2004
| Utente Junior | 2007 | | OFFLINE |
|
29/02/2020 22:09 | |
Inbario, 20/02/2020 14.00:
ho una macro che uso da tempo sempre andata benissimo ora non dà più segni di vita...quale può essere il motivo?
grazie
grazie delle risposte allego la macro...se può servire…
Sub COPINCOLLAzero()
Dim a As Long
Dim y As Long
Dim b As Long
Set wk1 = Workbooks("PERSONAL.XLSM")
Set sh10 = wk1.Worksheets("5") 'J18
Set sh11 = wk1.Worksheets("5") 'J17
ActiveCell.Select
y = sh10.Range("J18")
b = sh11.Range("J17")
For a = 1 To y
Range("AV3").Select
ActiveCell.Value = b + 1 - a
Range("AV4").Select
ActiveCell.Value = y - a
Range("AT5").Select
'ActiveCell.Offset(5, -3).Select
Range(ActiveCell, ActiveCell.Offset(b, 0)).Select
Selection.Copy
Range("BD5").Select
ActiveCell.Offset(0, a).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
Next a
ActiveCell.Offset(0, -y).Select
Set wk1 = Nothing
Set sh10 = Nothing
Set sh11 = Nothing
End Sub
Excel 2007 |
| | Post: 909 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
01/03/2020 01:00 | |
La tua macro è perfettamente funzionante se le vengono passati dati coerenti. Il tuo problema è da ricercare altrove.
Forse è il caso di allegare l'intero file privato di dati sensibili. [Modificato da rollis13 01/03/2020 01:01]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
02/03/2020 16:38 | |
A me Set wk1 da errore run-time 9
Non vedo queste tre righe...
Dim wk1 As Workbook: Set wk1 = Workbooks("PERSONAL.XLSM")
Dim sh10 As Worksheet: Set sh10 = wk1.Worksheets("5) '???
Dim sh11 As Worksheet: Set sh11 = wk1.Worksheets("5")'???
Poi il resto del codice è scritto tramite registratore. |
| | Post: 4.224 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/03/2020 19:13 | |
io scriverei
Set wk1 = ThisWorkbook
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
|
|