макрос на добавление строки при условии

[Proxx]

на форуме имею ввиду((((((

[KApSuL]

ну заходишь в раздел форума, который тебе нужен, скажем "Microsoft Office и VBA" и нажимаешь "новая тема" в верхнем левом углу

[DiemonStar]

Хотя зачем тут оффсеты - мне не понять...

Здесь идёт заполнение вставленной строки. Отсюда и сдвиг вверх на один.

[KApSuL]

с графиком немного разобрался, но не пойму как добавить ряд

Sub ãðàôèê()
'
' ãðàôèê Ìàêðîñ
'

'
    Sheets("ãðàô").Select
    ActiveChart.ChartArea.Select
  ActiveChart.SetSourceData Source:=Sheets("òàáë2").Range( _
        "I$3:I39,I65:I68")
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("òàáë2").Range( _
        "B3:B39,H3:H39,B65:B68,H65:H68")
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
End Sub

[DiemonStar]

посмотрите на .SeriesCollection у диаграмм. Это и есть коллекция рядов.

[KApSuL]

уже дошёл до них, но чёт не получается с ними работать

  ActiveChart.SeriesCollection(1).Select

я так понял 1-ка тут значит № ряда или нет?

второй ряд добавляю вот так
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = _
        "='табл2'!$I$3:$I$39;'табл2'!$I$65:$I$68"
но почему-то не работает

хотя может дело в том, что сначала я использую .SetSourceData?

[KApSuL]

хм...
так тоже не работает

    Sheets("ãðàô").Select
    ActiveChart.ChartArea.Select
 ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = _
        "='òàáë2'!$H$3:$H$39;'òàáë2'!$H$65:$H$68"
    ActiveChart.SeriesCollection(1).XValues = _
        "='òàáë2'!$B$3:$B$39;'òàáë2'!$B$65:$B$68"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = _
        "='òàáë2'!$I$3:$I$39;'òàáë2'!$I$65:$I$68"
        ActiveChart.SeriesCollection(1).XValues = _
        "='òàáë2'!$B$3:$B$39;'òàáë2'!$B$65:$B$68"

[KApSuL]

хоть убей не получается =(

[DiemonStar]

ActiveChart.SeriesCollection.Add Source:="=Лист1!$D$1:$D$5"

вот так всё прекрасно работает.

[KApSuL]

я вот так сделал

    Sheets("graf").Select
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("òàáë2").Range( _
        "B3:B39,B65:B68,H3:H39,H65:H68,I3:I39,I65:I68")
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select

только хочу сделать, чтобы не надо было менять диапазон при изменении таблицы
думаю вот так, но почему-то на код плюётся
присвоить переменным вот так
Set GNB = nachalo.Offset(-1).Cells(1, 2)
Set GKB = Br4.Offset(-1).Cells(1, 2)
и их использовать в качестве диапазона

    Sheets("graf").Select
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("òàáë2").Range( _
        "GNB:GKB,B65:B68,H3:H39,H65:H68,I3:I39,I65:I68")
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select

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