Penso che sia
- Codice: Seleziona tutto
=SCARTO(Calcoli!$A$1;0;SCARTO($A$1;1;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$A:$A)+1)
Moderatori: Anthony47, Flash30005
=SCARTO(Calcoli!$A$1;0;SCARTO($A$1;1;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$A:$A)+1)
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
=SCARTO(Calcoli!$A$2;0;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$P:$P)+1)
VarCol = 'Calcolo per determinare la colonna di riferimento
VarRighe = 'Calcolo per determinare il numero di righe (se dovessero cambiare)
Sheets("Grafico1").Select
ActiveChart.Axes(xlValue).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Sheets("Calcoli").Range(VarCol & VarRighe & ":" & VarCol & VarRighe ), PlotBy:=xlColumns
Anthony47 ha scritto:Devi impostare il "nome" AutoAdatta come riferito a
- Codice: Seleziona tutto
=SCARTO(Calcoli!$A$2;0;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$P:$P)+1)
Ciao.
Flash30005 ha scritto:Se la colonna di riferimento del grafico cambia penso che tu debba avere un foglio diverso da Calcoli e da grafico dove viene riportata la colonna di riferimento del grafico che si aggiorna attraverso la formula di Anthony.
Altrimenti attraverso una macro che vari, dopo aver determinato la colonna di riferimento del grafico, le impostazioni del grafico stesso con un codice tipo:
- Codice: Seleziona tutto
VarCol = 'Calcolo per determinare la colonna di riferimento
VarRighe = 'Calcolo per determinare il numero di righe (se dovessero cambiare)
Sheets("Grafico1").Select
ActiveChart.Axes(xlValue).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Sheets("Calcoli").Range(VarCol & VarRighe & ":" & VarCol & VarRighe ), PlotBy:=xlColumns
In questa maniera il grafico si adatta anche al numero dei dati oltre che all'origine
Ciao
Sub AutoGraf()
UCol = Worksheets("Calcoli").Range("IV1").End(xlToLeft).Column
NCol = UCol - 3
URiga = Worksheets("Calcoli").Cells(65536, NCol).End(xlUp).Row
Sheets("Grafico1").Select
ActiveChart.Axes(xlValue).Select
ActiveChart.SeriesCollection(1).Values = "=Calcoli!R2C" & NCol & ":R" & URiga & "C" & NCol
End Sub
=SCARTO(Calcoli!$A$2;0;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$B:$B)+1)
Torna a Applicazioni Office Windows
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 |
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 79 ospiti