Проблема с диапазоном ячеек в Excel.

[a1bert]

Вообщем, макрос, из формы на лист должны вставляются данные (накапливаться) в таблицу, в первую свободную строку в диапазоне строк с 7 по 37 т.к 31 день в месяце, проблема как можно реализовать это. Проблема когда доходит до 37 строки, заполняет 37 строку в первом столбце правильно, а дальше перескакивает на 38 не заполняя остальные столбцы 37 строки т.к. за основу берется один базовый столбец а остальные столбцы заполняются приращением метода Offset.

Как можно реализовать заполнение только определенного диапазона??? люди помогите?

Private Sub CommandButton3_Click()

If ActiveSheet.Range("c7").Value = "" Then

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 0).Value = a
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 1).Value = pa

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 3).Value = socc
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 4).Value = psocc

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 6).Value = su
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 7).Value = psu

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 9).Value = soc
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 10).Value = psoc

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 12).Value = suhm
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 13).Value = psuhm

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 15).Value = socdo
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 16).Value = psocdo

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 18).Value = spk
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 19).Value = pspk

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 21).Value = vge
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 22).Value = pvge

ActiveSheet.Range("c5").End(xlDown) .Offset(1, 24).Value = drs
ActiveSheet.Range("c5").End(xlDown) .Offset(1, 25).Value = pdrs


ElseIf ActiveSheet.Range("c7").Value <> "" Then

ActiveSheet.Range("c6").End(xlDown) .Offset(1, 0).Value = a
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 1).Value = pa

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 3).Value = socc
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 4).Value = psocc

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 6).Value = su
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 7).Value = psu

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 9).Value = soc
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 10).Value = psoc

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 12).Value = suhm
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 13).Value = psuhm

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 15).Value = socdo
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 16).Value = psocdo

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 18).Value = spk
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 19).Value = pspk

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 21).Value = vge
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 22).Value = pvge

ActiveSheet.Range("c6").End(xlDown) .Offset(0, 24).Value = drs
ActiveSheet.Range("c6").End(xlDown) .Offset(0, 25).Value = pdrs

End If

If ActiveSheet.Range("c36").End(xlDown ).Value <> "" Then

ActiveSheet.Range("c37").Value = a
ActiveSheet.Range("c37").Offset(0, 1).Value = pa

ActiveSheet.Range("c37").Offset(0, 3).Value = socc
ActiveSheet.Range("c37").Offset(-0, 4).Value = psocc

ActiveSheet.Range("c37").Offset(0, 6).Value = su
ActiveSheet.Range("c37").Offset(0, 7).Value = psu

ActiveSheet.Range("c37").Offset(0, 9).Value = soc
ActiveSheet.Range("c37").Offset(0, 10).Value = psoc

ActiveSheet.Range("c37").Offset(0, 12).Value = suhm
ActiveSheet.Range("c37").Offset(0, 13).Value = psuhm

ActiveSheet.Range("c37").Offset(0, 15).Value = socdo
ActiveSheet.Range("c37").Offset(0, 16).Value = psocdo

ActiveSheet.Range("c37").Offset(0, 18).Value = spk
ActiveSheet.Range("c37").Offset(0, 19).Value = pspk

ActiveSheet.Range("c37").Offset(0, 21).Value = vge
ActiveSheet.Range("c37").Offset(0, 22).Value = pvge

ActiveSheet.Range("c37").Offset(0, 24).Value = drs
ActiveSheet.Range("c37").Offset(-0, 25).Value = pdrs

End If

'ActiveWorkbook.Save

End Sub

[EducatedFool]

Ваш макрос можно сократить до 2-3 строк кода
Вот только сложно это сделать, не увидев ваш файл Excel

[tae1980]

Сообщение от a1bert

Вообщем, макрос, из формы на лист должны вставляются данные (накапливаться) в таблицу, в первую свободную строку в диапазоне строк с 7 по 37 т.к 31 день в месяце, проблема как можно реализовать это. Проблема когда доходит до 37 строки, заполняет 37 строку в первом столбце правильно, а дальше перескакивает на 38 не заполняя остальные столбцы 37 строки т.к. за основу берется один базовый столбец а остальные столбцы заполняются приращением метода Offset.
Как можно реализовать заполнение только определенного диапазона??? люди помогите?

А почему просто не контролировать весь процесс? Я тоже использовал раньше подобный способ, но сейчас полностью от него отказался.
Можно использовать следующее:
1. Прямое обращение. Код вида:

шаблон.Cells(x_tab+n, y_tab + i).Value="значение"

Где: шаблон - ссылка на нужный лист.
x_tab - значение исходной строки Х (например 7).
n - смещение по строкам.
y_tab - значение исходной колонки Y (например 3).
i - смещение по столбцам.

2. Обращение через именованные области. Код вида:

Evaluate("Имя_области").item(n, i) = "значение"

[a1bert]

Алексей спасибо за оперативность! но у меня данные должны вставляться в первую пустую строку диапазона, и с
шаблон.Cells(x_tab+n, y_tab + i).Value="значение"
не совсем понятно тогда, к этому примеру тоже можно применить End(xlDown).Offset(1, 0) или я не догоняю чет

[tae1980]

Сообщение от a1bert

Алексей спасибо за оперативность! но у меня данные должны вставляться в первую пустую строку диапазона, и с
шаблон.Cells(x_tab+n, y_tab + i).Value="значение"
не совсем понятно тогда, к этому примеру тоже можно применить End(xlDown).Offset(1, 0) или я не догоняю чет

Наличие подобного требования указывает на плохую проработку структуры программы. Значительно проще и правильнее переработать программу так что бы уйти от подобного требования. Сам пытался идти по тому пути, что ты идешь сейчас, получил только проблемы. Но если ты настаиваешь: найди первую пустую строку либо в цикле, либо есть профильная формула аналог Offset, но сходу её не вспомню, так как пользовался последний раз более года назад.
Используй циклы в работе, то же for/next. По условию описанному тобой, это сделать очень просто.
Перспективен второй способ, так как дает возможность ссылаться на ячейки косвенно. И при изменении структуры листа (например при сдвиге строк), не нужно будет переписывать код.

[tae1980]

Сообщение от a1bert

Алексей спасибо за оперативность! но у меня данные должны вставляться в первую пустую строку диапазона, и с
шаблон.Cells(x_tab+n, y_tab + i).Value="значение"
не совсем понятно тогда, к этому примеру тоже можно применить End(xlDown).Offset(1, 0) или я не догоняю чет

Попробуй вот это:

Cells(Rows.Count, n).End(xlUp).Offset(1) = "значение"

где n - номер столбца.

[EducatedFool]

a1bert, вам явно не хочется получить готовый макрос из 3 строк

Что мешает показать нам свой файл?
Как-то лень делать макрос, учитывая, что он может не сработать в вашем файле из-за хитрой структуры таблицы.

Вкратце - делается это так:

Sub a1bert()
    ' ищем первую пустую ячейку в столбце C
    Dim cell As Range: Set cell = Range("C" & Rows.Count).End(xlUp).Offset(1)

    ' заносим значения сразу в 26 ячеек найденной строки
    cell.Resize(, 26).Value = Array(a, pa, "", socc, psocc, "", su, psu, "", soc, psoc, "", _
                                    suhm, psuhm, "", socdo, psocdo, "", spk, pspk, "", _
                                    vge, pvge, "", drs, pdrs)

End Sub

[a1bert]

Сообщение от tae1980

Попробуй вот это:

Cells(Rows.Count, n).End(xlUp).Offset(1) = "значение"

где n - номер столбца.

находит первую пустую ячейку в столбце n, т.е. после которой уже точно нет данных, это не подойдет точно, а надо первую пустую в первом же разрыве т.е. нашем диапазоне

[tae1980]

Сообщение от a1bert

находит первую пустую ячейку в столбце n, т.е. после которой уже точно нет данных, это не подойдет точно, а надо первую пустую в первом же разрыве т.е. нашем диапазоне

Ты верен что у тебя пустые ячейки? " ="" " - Это не пустое значение.
Сейчас протестил на скорую руку, должно работать. По сути это аналог нажатия на клаве "Ctrl+стрелки". Попробуй по нажимать у себя на листе "Ctrl+вниз".

[a1bert]

Должны заполнятся данными столбцы С, D, F, G и т.д. построчно с 7 по 37 строки, базовый "С" т.е. если 9 ячейка в этом столбце пустая тогда все данные вставляются в девятую строку этих столбцов С, D, F, G.....

Мой алгоритм отлично работает только до 37 строки((( только значение для С вставляется коректно, а остальное в 39ю