[excel] identificare l'ultima colonna piena

[Anthony47]

Devi "giocare" col parametro "scarto di colonne", cioe' sostituire quel secondo "0" con la formula che ti conta tutte le colonne piene a cui sottrai 4.
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)


Ciao.

[ramset64]

Antonhy è da un pò che ci "gioco" ma non si vede luce.... e purtroppo nemmeno la formula da te suggerita funziona.
Ti allego un file di esempio.
Attualmente il grafico viene plottato sui valori della colonna P del foglio2.
Dovrei ottenere lo stesso risultato solo utilizzando "scarto" perchè la colonna P in realtà non è sempre la colonna P ma è sempre la quartultima che contiene dati.

Grazie, ciao

[Anthony47]

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]

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

[ramset64]

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.

Lo so Antonhy ma il problema è la colonna P... non posso indicare nella formula la colonna P perchè questa cambia da file a file.
Ciao

[ramset64]

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

Umh... non ho ben capito come fare il calcolo di VarCol.... se provo a mettere a mano la lettere P non funziona.
Puoi spiegarmi meglio per favore?
Grazie, ciao

[Flash30005]

Non ho capito quel'è la colonna che devi graficare, credo di aver capito la quart'ultima colonna piena (in questo caso P) variabile ma sempre quart'ultima?

Se così usa questa macro:

Codice: Seleziona tutto

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

UCol trova l'ultima colonna piena (nella testata) nel tuo caso la colonna S (dove c'è Atr) quindi colonna 19
NCol è la quart'ultima quindi -3 (P)
URiga calcola le righe da graficare della colonna NCol
E poi la macro aggiorna il grafico

Vedi se ti va bene

Ciao

[ramset64]

Flash.... è perfetta grazie. Si la colonna da graficare è variabile ma sempre quart'ultima.
Grazie, ciao

[Anthony47]

Flash ti ha gia' dato la soluzione basata su macro; con formule, se col P rischia di non essere presente, allora la formula di definizione di AutoAdatta avrebbe potuto essere

Codice: Seleziona tutto

=SCARTO(Calcoli!$A$2;0;CONTA.VALORI(Calcoli!$1:$1)-4;CONTA.NUMERI(Calcoli!$B:$B)+1)

Ciao.

[ramset64]

Grazie Anthony, due ottime soluzioni.
Ciao