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
Inserire file .srt nel formato Video Autore: nikita75 |
Forum: Audio/Video e masterizzazione Risposte: 1 |
directory e file danneggiati o illeggibili dopo chkdsk Autore: sar |
Forum: Software Windows Risposte: 2 |
Excel - Popolare tabella prendendo dati da fogli diversi Autore: Hurom |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: gimart e 49 ospiti