file da xls a xlsm

Hai un problema con Excel?

Nuova discussione

file da xls a xlsm
di giovanni (utente non iscritto) data: 01/07/2017 11:48:01
Buongiorno ho da poco cambiato pc ed ho trasferito i file di excel da 2003 a 2007 ma con l'estensione xlsm non funzionano più alcune macro in special modo i cerca.vert dove mi restiuiscono un errore "n/d" nella cella di riferimento .
l'assurdo è che se risalvo la stessa cartella in formato xls modalità compatibilità funziona tutto regolarmente.
Potete darmi un consiglio ?
Grazie mille
di alfrimpa data: 01/07/2017 12:37:33
Giovanni chiariamo una cosa: il CERCA.VERT non ha nulla a che vedere con le macro.

Il CERCA.VERT dà #N/D quando non trova il dato.

Cerca di specificare meglio il problema.

Alfredo

di giovanni (utente non iscritto) data: 01/07/2017 13:08:35
Ciao Alfredo grazie per la risposta ti allego la sub contenente il cerca verticale .
praticamente va a pescare un dato dal foglio ARTICOLI e lo trasporta in un'altro foglio detto BOLLE.
Come ho anticipato tutto ok in formato xls e tutto ko nel formato xlsm.

grazie

Private Sub cercaprezzo()
SchedaArticoli.Hide
Cells(ActiveCell.Row, 4).Formula = SchedaArticoli.ComboBox2.Text
Cells(ActiveCell.Row, 6).Select
Selection.Formula = "=cerca.vert(rc4;Articoli!r1:r1000;3;0)"
Cells(ActiveCell.Row, 8).Select
Selection.Formula = "=cerca.vert(rc4;Articoli!r1:r1000;5;0)"
ActiveSheet.TextBox3.Text = Cells(ActiveCell.Row, 8)
Cells(ActiveCell.Row, 1).Select
Cells(ActiveCell.Row, 5).Select
If ActiveSheet.TextBox3.Text <> "" Then ActiveSheet.TextBox3.BackColor = &HFF00&
If ActiveSheet.TextBox3.Text = "" Then ActiveSheet.TextBox3.BackColor = &H80C0FF

End Sub

di alfrimpa data: 01/07/2017 14:30:51
Giovanni con il solo codice e senza un file su cui testarlo si fa poco o nulla.

Allegane quindi uno con i dati e il risultato desiderato inserito a mano.

Ora sono fuori e non ho il pc; appena rientro posso dare un'occhiata.

Alfredo
di giovanni (utente non iscritto) data: 01/07/2017 14:45:44
il file è molto complesso comprende 10 fogli e contiene molti dati privati.
tento di replicarne uno ed allegarlo .
intanto grazie mille
ciao
di patel data: 01/07/2017 15:27:32
nelle macro le formule si scrivono in inglese, quindo non cerca.vert ma VlookUp
di giovanni (utente non iscritto) data: 01/07/2017 17:05:21
ciao patel grazie provo a sostituire in vlookup, ma con office 2003 ha sempre funzionato.

di giovanni (utente non iscritto) data: 01/07/2017 18:02:10
RAGAZZI TUTTO RISOLTO !!!!

Posto la soluzione in caso qualcun'altro possa averne bisogno :

Ciao a tutti e grazie
gio

'la stringa di codice vecchia era:
Selection.Formula = "=cerca.vert(rc4;Articoli!r1:r1000;3;0)"
'quella nuova funzionante è:
Selection.FormulaR1C1 = "=cerca.vert(RC4;Articoli!r1:r1000;3;0)"

di giovanni (utente non iscritto) data: 01/07/2017 18:03:42
Risolto

Vuoi Approfondire?