da excel 2003 a 2016

Hai un problema con Excel?

Nuova discussione

da excel 2003 a 2016
di brian (utente non iscritto) data: 19/01/2017 16:18:40
ciao a tutti, premetto che non so nulla di vba, uso da anni un foglio excel, ora dopo l'aggiornamento obbligato a excel 2016 il foglio con cui lavoro ha dei grossi problemi che prima non aveva.
qualcosa sono già riuscoito ad aggiustare, ma ora mi si ripresenta un nuovo errore che mi impedisce l'uso del foglio stesso.
praticamente inserendo nella casella dei numeri dall'1 al 12 corrispondenti ai mesi nella casella in parte esce la data del terzo venerdi del mese per quel mese: es. inserendo 1 esce 20 gennaio 2017.
adesso clikkando sul bottone che svolge la macro non esce nulla e la casella corrispondente resta vuota.clikkando sulla casella appare la data 00/01/1900.
questa la formula in AB12:
=SE(VAL.ERRORE(CERCA.VERT(AA12;'gestione portafoglio'!$CW$10:$CX$21;2));0;(CERCA.VERT(AA12;'gestione portafoglio'!$CW$10:$CX$21;2)))
in seguito la macro. grazie a chi mi possa aiutare

Sub creascadenzetrattate()
    Range("AB12").Select
    Selection.Copy
    Range("AB6:AB11").Select
    Range("AB11").Activate
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Range("AB6:AB11").Select
    Range("AB11").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
       Range("AA6:AB11").Select
    Range("AB11").Activate
    Selection.Sort Key1:=Range("AB12"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("Z10").Select
    
End Sub

di brian (utente non iscritto) data: 19/01/2017 16:21:48
le caselle dove inserisco manualmente i numeri dall'1 al 12 sono AA6:AA11
le caselle dove dovrebbero uscire le date: AB6:AB11
grazie
di alfrimpa data: 19/01/2017 17:41:50
Ciao Brian

Senza vedere il tuo file come puoi pensare che ti si possa aiutare?

Poi non capisco che senso ha la formula che hai riportato.

In pratica stai dicendo ad Excel di fare la stessa cosa (un CERCA.VERT) si che la cella AA12 abbia o meno un errore.

Alfredo
di brian (utente non iscritto) data: 20/01/2017 10:05:04
ciao, Alfredo, grazie per l'interessamento.
purtroppo è un file excel molto grosso e mi è stato regalato tanti anni fa, non ne sono io l'autore e quindi mi trovi impreparato.
so solo che con le versioni precedenti di excel funzionava e ora non più.
forse una formula scritta in modo obsoleto o che il nuovo excel non digerisce, oppure un errore che prima veniva in qualche modo bypassato e ora non funziona +.
non saprei.
ho visto che la formula (se/val.errore) è stata aggiornata in (se.errore), ma non funziona lo stesso.
di alfrimpa data: 20/01/2017 10:09:56
Ciao Brian

Non devi allegare l'intero file ma uno con pochi dati (non sensibili) che abbia la stessa struttura dell'originale con spiegazioni e mostrare il risultato che vuoi ottenere inserito manualmente.

La formula, così come è scritta, fa sempre la stessa cosa sia che in AA12 vi sia un errore sia che abbia un valore corretto quindi il SE non ha senso.

Alfredo

Vuoi Approfondire?