In un file con più fogli di lavoro, per aggiornare dei dati devo aprire e chiudere una lista di fogli
con una macro (in pratica devo attivare i codici di alcuni fogli per fare degli aggiornamenti)
è possibile ?
Moderatori: Anthony47, Flash30005
For I=2 to 41
'quello che devi fare
Next I
Application.ScreenUpdating = False
For I = 2 To 41
Worksheets(I).Activate
Next I
Worksheets(1).Activate
Application.ScreenUpdating = True
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
Dim myBase(1 To 4)
myBase(1) = "'H:\produzione\scheda preventivo\[ZCZCX.xls]CARTIGLIO'!A3"
myBase(2) = "'H:\produzione\scheda preventivo\[ZCZCX.xls]CARTIGLIO'!C3"
myBase(3) = "'H:\produzione\scheda preventivo\[ZCZCX.xls]CARTIGLIO'!B3"
myBase(4) = "'H:\produzione\scheda preventivo\[ZCZCX.xls]CARTIGLIO'!D3"
'Check esistenza file:
mySplit = Split(myBase(1), "[")
myFile = Replace(mySplit(0), "'", "") & Range("$D$2").Value & ".xls"
If Len(Dir(myFile)) = 0 Then
MsgBox ("il file " & myFile & " non esiste" & vbCrLf & _
"Le formule non sono state alterate")
Exit Sub
End If
'
Application.EnableEvents = False
LastA = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 4
Cells(3, 1 + i).Resize(LastA - 3, 1).FormulaLocal = "=" & Replace(myBase(i), "ZCZCX", Range("$D$2").Value)
Next i
Application.EnableEvents = True
ActiveSheet.Name = Left([D2] & " " & [C2], 20)
ActiveSheet.Protect
End Sub
Torna a Applicazioni Office Windows
Creare un file Excel con fogli visibili in base all'accesso Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 8 |
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
HD Esterno collegato con USB non visto in Esplora File Autore: ricky53 |
Forum: Sistemi Operativi Windows Risposte: 13 |
Trasferimento dati tra due fogli con due condizioni Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 24 ospiti