Moderatori: Anthony47, Flash30005
Marius44 ha scritto:Ciao
Sarebbe possibile allegare il file (senza dati sensibili)?
Dylan666 ha scritto:Marius44 ha scritto:Ciao
Sarebbe possibile allegare il file (senza dati sensibili)?
Se lo si volesse allegare:
viewtopic.php?f=1&t=100799
Sub RiNomina()
Dim Pointt As Point
Dim reNames, lName As Long
'
reNames = Array("Altra", "LaSeriePreferita") '<<< Vecchio nome /Nuovo nome
'
lName = Len(reNames(0))
Sheets("Foglio1").ChartObjects(1).Select
For Each Pointt In ActiveChart.SeriesCollection(1).Points
With Pointt.DataLabel
Debug.Print .Text
If Left(.Text, lName) = reNames(0) Then
.Text = Replace(.Text, reNames(0), reNames(1), , , vbTextCompare)
Exit For
End If
End With
Next Pointt
ActiveWindow.RangeSelection.Select
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call RiNomina
End Sub
Anthony47 ha scritto:Mi scrivi l'intera riga su cui hai quell'errore? E che versione di Office usi?
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Lo scanner della Pixma TS 5150 non parte Autore: wallace&gromit |
Forum: Assistenza Hardware Risposte: 9 |
Visitano il forum: Nessuno e 25 ospiti