Moderatori: Anthony47, Flash30005
Option Explicit
Sub Elabora()
Dim WS As Worksheet, I As Integer, SH1 As Worksheet
I = 2
Set SH1 = Sheets("Indice")
SH1.Range("A1") = "Nome dei Fogli"
For Each WS In ThisWorkbook.Worksheets
If WS.Name <> SH1.Name Then
SH1.Cells(I, "A") = WS.Name
SH1.Hyperlinks.Add Anchor:=SH1.Cells(I, "a"), Address:="", SubAddress:= _
WS.Name & "!A1", TextToDisplay:=WS.Name
I = I + 1
End If
Next WS
MsgBox "Elaborazione effettuata su: '" & I - 2 & "' fogli", vbInformation
End Sub
Private Sub CommandButton1_Click()
Dim WS As Worksheet
Application.Watches.Delete 'nel caso rinomini qualche foglio
For Each WS In ThisWorkbook.Worksheets
WS.Select
WS.Cells(1, 1).Select
Application.Watches.Add Source:=ActiveCell
Next
End Sub
-----------------------------------------------------------------------------
Questo codice serve a non visualizzare la Finestra controllo celle quando apri una una qualsiasi cartella di lavoro
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Watch Window").Visible = False
On Error GoTo 0
End Sub
-------------------------------------------------------------------------------
Private Sub Workbook_Open()
Application.CommandBars("Watch Window").Visible = True
End Sub
Ciao,
puoi utilizzare un altro sito perchè quello che hai linkato viene bloccato dall'antivirus
Ciao dblz,
prova questo codice per aggiungere i nomi dei fogli alla "Finestra controllo celle"
Sub Elabora()
Dim WS As Worksheet, I As Integer, SH1 As Worksheet
I = 2
Set SH1 = Sheets("Indice")
SH1.Range("A1") = "Nome dei Fogli"
For Each WS In ThisWorkbook.Worksheets
If WS.Name <> SH1.Name Then
SH1.Cells(I, "A") = WS.Name
SH1.Hyperlinks.Add Anchor:=SH1.Cells(I, "A"), Address:="", SubAddress:= _
"'" & WS.Name & "'!B22", TextToDisplay:=WS.Name
I = I + 1
End If
Next WS
MsgBox "Elaborazione effettuata su: '" & I - 2 & "' fogli", vbInformation
End Sub
Ciao dblz,
che versioni usi di excel ?
peppo55 ha scritto:Ciao dblz
vedi se il file in allegato funziona.
Se vuoi la Finestra controllo celle la puoi posizionare (spostandola) sopra la barra della formula.
http://www.filedropper.com/controllocella
Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Select
WS.Cells(1, 1).Select
Application.Watches.Add Source:=ActiveCell
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Watch Window").Visible = False
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Watch Window").Visible = True
End Sub
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 90 ospiti