findformat

Hai un problema con Excel?

Nuova discussione

findformat
di augustus (utente non iscritto) data: 14/03/2015 15:51:10
ciao
ho bisogno di fare una routine dove mi copia i valori presenti nel foglio di lavoro excel che siano in celle non protette e che poi incolla nelle stesse celle i valori (in modo in sostanza da lasciare i valori ma non le formule)
ho provato a usare la funzione

Application.FindFormat.Locked = False

ma me la applica solo su una cella e non riesco a capire come farla in automatico su tutte le celle del foglio.
mi riesci ad aiutare?
grazie
Application.FindFormat.Locked = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
di Vecchio Frac data: 14/03/2015 20:32:21
Discussione doppia: chiudo.
findformat
di augustus (utente non iscritto) data: 14/03/2015 15:45:24
ciao
ho bisogno di fare una routine dove mi copia i valori presenti nel foglio di lavoro excel che siano in celle non protette e che poi incolla nelle stesse celle i valori (in modo in sostanza da lasciare i valori ma non le formule)
ho provato a usare la funzione

Application.FindFormat.Locked = False

ma me la applica solo su una cella e non riesco a capire come farla in automatico su tutte le celle del foglio.
mi riesci ad aiutare?
grazie
Application.FindFormat.Locked = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

di Lucas87 data: 14/03/2015 19:34:25
Ciao
Prova così

Application.CutCopyMode = False
Application.ScreenUpdating = False
Application.FindFormat.Clear
Application.FindFormat.Locked = False
Set fin = Cells.Find(what:="", SearchFormat:=True)
If Not fin Is Nothing Then
    firstaddress = fin.Address
    Do
        fin.Copy
        fin.PasteSpecial Paste:=xlPasteValues
    Set fin = Cells.Find(what:="", after:=fin, SearchFormat:=True)
    Loop While Not fin Is Nothing And fin.Address <> firstaddress
End If
Application.FindFormat.Clear
Application.ScreenUpdating = True
Application.CutCopyMode = True

di Vecchio Frac data: 14/03/2015 20:30:34
Perchè hai aperto due discussioni identiche?
Siccome a questa hai già ricevuto una risposta, chiudo l'altra.

Vuoi Approfondire?