Ho fatto tutto quanto,
l'errore è: errore di run-time 9
indice non incluso nell'intervallo
Ciao
Moderatori: Anthony47, Flash30005
Se non pubblichi il file delle personalizzazioni (.exportedUI) non riusciremo mai a capire quello che hai fatto. Comunque mi pare che Alfredo ti abbia suggerito la soluzione che funziona per i tuoi bisogni.Luigi ha scritto:Credo che, se non si riesce a capire il problema, convenga creare una serie di bottoni da riportare nella parte superiore dei fogli e bloccarle con "Blocca riquadri". In questo modo rimangono sempre visibili
Sub YTD()
Dim MDate As Date, I As Long, mErr As String, poPul As Long, cMTab As String, dSh As Worksheet
Dim myNext As Long
Set dSh = Sheets("YTD_Giornale")
On Error Resume Next
dSh.ListObjects("YTDTable").Unlist
dSh.Range("B5").Resize(10000, 10).ClearContents
On Error GoTo 0
'
'Scan fogli Mese:
Application.ScreenUpdating = False
For I = 1 To 12
MDate = DateSerial(2017, I, 1)
On Error Resume Next
Sheets(Format(MDate, "mmm")).Select
On Error GoTo 0
If UCase(ActiveSheet.Name) = UCase(Format(MDate, "mmm")) Then
cMTab = ActiveSheet.ListObjects(Format(MDate, "mmmm") & Format(I, "00")).Range.Address
If Len(cMTab) > 3 Then
popul1 = Application.WorksheetFunction.CountA(Application.Intersect(Range(cMTab), Range("C:C")))
popul2 = Application.WorksheetFunction.CountA(Application.Intersect(Range(cMTab), Range("D:D")))
poPul = popul1 + popul2
If poPul > 0 Then
myNext = dSh.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Range(cMTab).Resize(poPul, Range(cMTab).Columns.Count).Copy
dSh.Cells(myNext, "B").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Else
mErr = mErr & "Tabella " & Format(MDate, "mmmm") & "; "
End If
Else
mErr = mErr & Format(MDate, "mmm") & "; "
End If
Next I
dSh.Select
Application.ScreenUpdating = True
dSh.ListObjects.Add(xlSrcRange, Range(Range("B5"), Range("B5").End(xlDown).Resize(, 10)), , xlNo).Name = "YTDTable"
ActiveSheet.ListObjects("YTDTable").ShowHeaders = False
Range("B5").EntireRow.Delete xlUp
If Len(mErr) > 3 Then
MsgBox ("Completato con errori su: " & vbCrLf & mErr)
Else
MsgBox ("Completato...")
End If
End Sub
luigi1948 ha scritto:Ho riscontrato un problema: la macro che cambia i vari fogli funziona benissimo, ho notato però che quando si imputa un foglio già visualizzato in precedenza, da questo errore: Errore di run-time 9 - indice non compreso nell'intervallo. Quando faccio il debug, la stringa "Sheets(ComboBox1.Value).Activate " ComboBox1.Value=""
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Value).Activate
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 59 ospiti