PDA

Visualizza versione completa : Excel impazzito!!!!


grace
10-05-2006, 13.27.16
Ciao Ragazzi,
io sono nuova di quì, vorrei un aiuto.... (che domande):)

dovrei aggiornate un file .xls che si trova in una cartella condivisa in rete, il mio metodo di aggiornamento è il ripescaggio di determinati dati presenti su altri file .xls che si trovano nella stessa cartella e che a me servono.
ho seguito la regola per aggiornare tali dati, da oggi quando vado a fare il mio solito aggiornamento Office automaticamente mi crea come un link di connessione tra il mio file di oggi ed un file dell'anno passato.

evidentemente o ho creato una connessione tra i due senza volerlo oppure si è creata in qualche modo visto che .xls ogni tanto fa questi giochetti.

esiste una procedura che mi scova tutti gli hyperlink esistenti e che mi consenta di disattivarli o cancellarli?

grazie mille ragazzi::)

Cricchia
10-05-2006, 15.08.53
copia tutto il codice e inseriscilo in un modulo, esegui la macro "ListExternalFormulaReferences"; ti verrà creato un nuovo foglio dove troverai l'elenco di tutte le celle che contengono riferimenti esterni ;)

Sub ListExternalFormulaReferences()
Dim ws As Worksheet, TargetWS As Worksheet, SourceWB As Workbook
If ActiveWorkbook Is Nothing Then Exit Sub
Application.ScreenUpdating = False
With ActiveWorkbook
On Error Resume Next
Set TargetWS = .Worksheets.Add(Before:=.Worksheets(1))
If TargetWS Is Nothing Then ' the workbook is protected
Set SourceWB = ActiveWorkbook
Set TargetWS = Workbooks.Add.Worksheets(1)
SourceWB.Activate
Set SourceWB = Nothing
End If
With TargetWS
.Range("A1").Formula = "Sequence"
.Range("B1").Formula = "Cell"
.Range("C1").Formula = "Formula"
.Range("A1:C1").Font.Bold = True
End With
For Each ws In .Worksheets
If Not ws Is TargetWS Then
ListLinksInWS ws, TargetWS
End If
Next ws
Set ws = Nothing
End With
With TargetWS
.Parent.Activate
.Activate
.Columns("A:C").AutoFit
On Error Resume Next
.Name = "Link List"
On Error GoTo 0
End With
Set TargetWS = Nothing
Application.ScreenUpdating = True
End Sub


ovviamente non è farina del mio sacco! :p

grace
10-05-2006, 15.22.40
scusa l'ignoranza.... me la fai più semplice?
per codice intendi il nome del file?come faccio a creare una macro?

in parole più spicciole???? non ne capisco nulla atrlimenti:( :( :( :( :( :(

però ti ringrazio tanto....

Cricchia
10-05-2006, 15.27.22
ok... allora copia tutto quello che sta tra "Sub..." e "End Sub"
apri il tuo file excel su cui devi trovare i collegamenti, menù Strumenti => Macro => Editor Visual Basic

ora, dall'editor vai dal menù Inserisci => Modulo e incolli il codice copiato prima

ora torna in excel, (chiudi pure l'editor senza problemi ;)), menù Strumenti => Marco => Macro... seleziona la macro "ListExternalFormulaReferences" e clicca su Esegui. Ti si creerà il foglio con tutti i tuoi collegamenti ;)

se hai problemi: siamo qui :)

grace
10-05-2006, 16.16.36
perchè non trovo ESEGUI?

uffy
:(((((((

Cricchia
10-05-2006, 16.23.21
allora, non ti preoccupare... ;)

se vai da Strumenti => Macro => Macro...
ti appare questa finestra:

grace
10-05-2006, 17.26.07
grazie mille........
:)))))))))

Cricchia
10-05-2006, 17.27.50
riuscita? :)

grace
10-05-2006, 17.31.14
si si....
ora te la dico tutta, il casino non l'avevo fatto io, ma una collega che con excel riesce a creare degli errori allucinanti!!!!
credimi, io lavoro nell'informatica e quello che riesce a creare lei è da genio!!!!
tu che lavoro fai???

grace
12-05-2006, 14.03.34
ragazzi quì l'errore contina a persistere!!!!
come faccio?