Grafico automatico in excel

[macio66]

Ciao a tutti. Ho bisogno del vostro aiuto per capire se è possibile impostare in modo automatico il riconoscimento dei valori X e Y di un grafico su un foglio excel
Dati di origine - Serie:
valori X =Foglio1!$D$2:$D$242
Valori Y =Foglio1!$E$2:$E$242
in quanto i dati che io carico da file txt dalla macro, non hanno mai la stessa quantità

[ricky53]

Ciao,
tre possibilità:
1. la più semplice ma la meno valida: inserisci un intervallo maggiore compatibile con i dati che scarichi
2. utilizzare una combinazione di formule tipo scarto, conta valori associate a due "Nomi Elenco"
3. scrivere una macro che legga l'ultima riga di fati del tuo intervallo e modifichi l'intervallo dati del grafico

Tu come te la cavi con il VBA visto che utilizzi già una macro?
In caso la questione sarebbe facile da realizzare !

[macio66]

Ciao,
Purtoppo con il VBA me la cavo maluccio (sono un autodidatta!!!), quindi non saprei da dove incominciare per realizzarlo

[ricky53]

Ciao,
ci provo ma non avendo molte informazioni potrei non essere risolutivo con quanto ti propongo.

Ecco un esempio di codice che dovrai adattare al tuo intervallo dati (forse quanto ho inserito nel codice è vicino al tuo intervallo effettivo)

Codice: Seleziona tutto

Sub Modifica_Grafico_A()
    Sheets("Foglio1").Select  ' <<==== Qui va il nome del tuo Foglio
    Range("D2").Select
    UR = Range("D" & Rows.Count).End(xlUp).Row
    ActiveSheet.ChartObjects("Grafico 1").Activate ' <<=== Qui va il nome del tuo Grafico
    ActiveChart.SeriesCollection(1).XValues = "=Foglio1!R2C4:R" & UR & "C4"
    ActiveChart.SeriesCollection(1).Values = "=Foglio1!R2C5:R" & UR & "C5"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlBottom
    Range("D2").Select
End Sub


Ho ipotizzato che i dati siano nell'intervallo "D2:E..."
L'ultima riga di dati viene calcolata nella variabile "UR" basandomi sulla colonna "D"

[macio66]

Ciao,
Perfetto è proprio quello che mi serviva. Adesso per rendere tutto perfetto dovrei mettere come titolo invece che un testo fisso ("GRAFICO"), il testo della cella "Y9" che si trova sul Foglio1.
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "GRAFICO"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "DEGREE [°]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "I(BN) [mp]"
End With
Restando in attesa di una possibile risposta, voglio ringraziarvi per la vostra disponibilità anche nei confronti di chi non è molto afferrato in materia, in quanto ogni vostro piccolo esempio diventa un grande insegnamento.
Grazie

[ricky53]

Ciao,
prova in questo modo

Codice: Seleziona tutto

.ChartTitle.Characters.Text = Sheets("Foglio1").Range("Y9")

[macio66]

Ciao,
OK grazie