Ciao Anthony, ho risolto da me!
Nella macro della Pivot il range delimitava il calcolo sino a C1000, l'ho modificata portandola a C5000, così non dovrebbero più esserci problemi.
Grazie,
DAniby
Moderatori: Anthony47, Flash30005
If Left(Cells(I, 1), 4) <> tSped Then
tSped = "023-"
rSh.Name = rSh.Name & "_023" ' & "_Oth" '<<< AGGIUNGI ADATTANDO
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
LastY = Sheets(ActiveSheet.Index + 2).Cells(Rows.Count, 1).End(xlUp).Row '!!!
LasTd = Cells(Rows.Count, 1).End(xlUp).Row
'
Set yRan = Sheets(ActiveSheet.Index + 2).Range("A1").Resize(LastY, 1) '!!!
Sub DayRiepBIG()
Dim myBase As String
myBase = "EsportazioneCompetenze_63653514"
Sheets(myBase).Select
Call DayRIEP_Oth(1)
Sheets(Sheets(myBase).Index + 1).Select
Call DayCompareStep2
Sheets(myBase).Select
Call DayRIEP_023(1)
Sheets(Sheets(myBase).Index + 1).Select
Call DayCompareStep2
End Sub
Sub DayRiepBIG()
Dim myBase As String
myBase = "EsportazioneCompetenze_63653514" '<<< E' GIUSTO QUESTO NOME??
Sheets(myBase).Select
Call DayRIEP_Oth(1)
Sheets(Sheets(myBase).Index + 1).Select
Call DayCompareStep2
Sheets(myBase).Select
Call DayRIEP_023(1)
Sheets(Sheets(myBase).Index + 1).Select
Call DayCompareStep2
End Sub
Sub DayRIEP()
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=109392&p=641951#p641951
Dim cSh As Worksheet, rSh As Worksheet, tSped As String, cSped As String
Dim myNext As Long, cVal As Single, speDat As Date
'
'etc etc etc
Sub DayRIEP_023(cippa)
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=109392&p=641951#p641951
Dim cSh As Worksheet, rSh As Worksheet, tSped As String, cSped As String
Dim myNext As Long, cVal As Single, speDat As Date
'
'etc etc etc
[Sia nella Sub DayRIEP_023(cippa) che nella Sub DayRIEP_Oth(cippa)] aggiungi questa riga in questa posizione:
- Codice: Seleziona tutto
tSped = "023-"
rSh.Name = rSh.Name & "_023" ' & "_Oth" '<<< AGGIUNGI ADATTANDO
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sia nella Sub DayRIEP_023(cippa) che nella Sub DayRIEP_Oth(cippa)] aggiungi questa riga in questa posizione:
- Codice: Seleziona tutto
tSped = "023-"
rSh.Name = rSh.Name & "_023" ' & "_Oth" '<<< AGGIUNGI ADATTANDO
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
rSh.Name = Format(Now, "yymmdd_hhmmss") & "_023" ' & "_Oth"
Torna a Applicazioni Office Windows
"Spegnere" il riconoscimento data. Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 2 |
Totale valori di più colonne del foglio con funzione Sum Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 54 ospiti