Здравствуйте, первый пост!
-Так, в принципе, у меня есть этот проект для обновления графиков на основе набора данных. Для этого мне нужно найти последнюю строку, которая очень хорошо работает с этим кодом:
'Chart for PMI
Sheets("Leading Indicators").Select
ActiveSheet.ChartObjects("ismpmi").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Leading Data").range("A2:B872"), PlotBy:=xlColumns
' imagine the next line being bold
finalrow = Sheets("Leading Data").Cells(Sheets("Leading Data").UsedRange.Rows.Count, 1).End(xlUp).Row**
ActiveChart.SetSourceData Source:=Sheets("Leading Data").range("A2:B" & finalrow), PlotBy:=xlColumns
finalrow = 0
-Теперь я хочу реализовать тот же код для другого листа, и он работает хорошо, НО! finalrow2 остается на 1-й строке, когда данные выходят за пределы 2800 строк. Я не могу найти причину для этого .. какие-либо предложения ?? Заранее спасибо!
'Chart Initial
Sheets("Employment Graphs").Select
ActiveSheet.ChartObjects("initial").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Employment Data").range("A2:B2780"), _
PlotBy:=xlColumns
' imagine the next line being bold
finalrow2 = Sheets("Employment Data").Cells(Sheets("Employment Data").UsedRange.Rows.Count, 1).End(xlUp).Row
ActiveChart.SetSourceData Source:=Sheets("Employment Data").range("A2:B" & finalrow2), PlotBy:=xlColumns
finalrow2 = 0