Ciao.
Il problema sta' nel come poter identificare in modo certo le celle che contengono valori da convertire...
Ti propongo la seguente macro:
- Codice: Seleziona tutto
Sub LirEuro()
Euroval = 1936.27
TFormat = ActiveCell.NumberFormat
ActiveSheet.Copy After:=Sheets(Sheets.Count)
For Each Cella In ActiveSheet.UsedRange
If Cella.NumberFormat = TFormat Then
Cella.Value = Cella.Value / Euroval
Cella.Interior.ColorIndex = 6 '<<< 3=ROSSO; 4=Verde; 6=Giallo;7=Fucsia; 8=Celeste
End If
Next Cella
End Sub
Dal foglio in lire, apri il vba editor con Alt-F11; fai Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx. Torna sul foglio excel, vai sul (primo) foglio da convertire; seleziona una cella che abbia come contenuto un valore in lire e che vuoi convertire; a questo punto lancia la macro.
Essa crea una copia del foglio attivo, su questa copia cerca tutte le celle che abbiano la
stessa formattazione della cella di partenza che hai selezionato e su queste celle fa la conversione in euro; per visibilita' le stesse celle vengono colorate in giallo.
Rinomina il nuovo foglio a piacere, ed eventualmente ripeti il processo per gli altri fogli da convertire. Se sbagli qualcosa, basta cancellare il foglio aggiuntivo creato.
Sulla carta il processo non e' distruttivo... ma come sempre prima fai due copie di backup del file originale.
Ciao.