Помогите, пожалуйста!
Создан макрос автоматически (создание графика по данным):



Модератор: Учимся использовать тэги оформления кода - FAQ
а когда запускаю его, он на третьей строке останавливается ( ActiveSheet.Shapes.AddChart.Select)
в чем причина?

Подскажите, пожалуйста, почему в макросе, если тупо задать F7:Q7 , обрабатывается 1 строка, а ести через переменную "F" + Trim(3 + a) + ":Q" + Trim(3 + a) , тогда все строки от заголовка.
Sub Макрос15()

Dim oChart As Chart
Dim a As Integer
Dim mes As String

a = Application.InputBox("Введите № строки", "Для построение графика", , , , , , 1) ' набрали 4
mes = Range("D1").Value ' название листа (месяц - год)


Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart.ChartType = xlLineMarkers
oChart.ApplyLayout (10)
oChart.SetSourceData Source:=Sheets(mes).Range("F3:Q3, F7:Q7 ") ' выбирает одну строку

oChart.SetSourceData Source:=Sheets(mes).Range("F3:Q3", "F" + Trim(3 + a) + ":Q" + Trim(3 + a) ) ' выбирает 4 строки

oChart.Location xlLocationAsObject, mes
End Sub

The_PristMiroMAX_99,

а Вы найдите отличия в строках:
и
вот когда зададите диапазон нормально - тогда и будет Вам одна строка.

СПАСИБО!!
Все получилось.