come forse alcuni di voi sanno dopo aver letto la mia presentazione, sono un autodidatta sia del VBA di Excel che di Basic (di quest'ultimo ho iniziato da poco a leggere alcuni manuali).
Prima di scrivere questo messaggio ho cercato sul forum di trovare qualcuno che avesse il mio stesso problema o quasi, provando anche diverse soluzioni suggerite tra vari utenti ma si può dire che mi manca l'ultimo passaggio; ora vi spiego cosa vorrei fare.
Ho un file in Calc con diversi fogli (che devo ancora creare), il mio intento è quello di estrapolare un foglio da tutti quelli presenti, togliendo le formule e pulsanti dove sono presenti ma lasciando i valori scritti nelle celle e salvarlo in formato xls ( in quanto successivamente dovrà esser mandato tramite email a persone che utilizzano l'Excel di office).
Qui sotto vi "allego" il codice che fino a qualche mesetto fa utilizzavo con l'Excel della Microsoft e che funzionava.
Codice: Seleziona tutto
Dim RngEsaminato As Range
Dim Cella As Range
Dim Pulsante As OLEObject
Application.ScreenUpdating = False
'Copio Foglio
ActiveSheet.Copy
'scelgo dove salvare il nuovo file ed il nome + estensione da assegnargli
Application.Dialogs(xlDialogSaveAs).Show
'rimuovo le formule e lascio solo i valori
Set RngEsaminato = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
For Each Cella In RngEsaminato
Cella.Value = Cella.Value
Next Cella
'elimino i pulsanti che intersecano la colonna M
Set RngEsaminato = ActiveSheet.Range("M:M")
For Each Pulsante In ActiveSheet.OLEObjects
If Not Intersect(Pulsante.TopLeftCell, RngEsaminato) Is Nothing Then
Pulsante.Delete
End If
Next Pulsante
'elimino la colonna M
RngEsaminato.Delete
ActiveWindow.Close True
Application.ScreenUpdating = True
Vi sarei grato se mi potreste aiutare a capire dov'è che sbaglio e a capire meglio questo nuovo linguaggio di programmazione.
Grazie a tutti voi
Saluti
Alex