Автозаполнение таблицы

[cutie pie]

Добрый день! Не нашла похожую тему.

Общая задача следующая. В книге есть 12 листов и 13-й - сводный. На каждом из 12 листов есть кнопка запуска макроса разлиновки нужного количества полей таблицы и подстановки формулы (в столбец 3). Макросы относятся к объектам Worksheet (к Листам). Каждый макрос имеет своё уникальное название, как например "Заполнение_полей_таблицы_фундамент а"

Есть UserForm "Дефекты", на ней 2 TextBox и Label и 1 CommandButton.

ЮзерФорм не относится к конкретному листу, она в макросе каждого листа вызывается (.show) или убирается (.define).

В макросе листа решается задача ввести в ячейки таблицы значения из TextBox.

Столкнулась с проблемой, что по событию CommandButton_Click я не могу назначить действие ввести ячейки из текстбоксов.

Код пишу такой:
В Листе

Sub Заполнение_полей_таблицы_фундамента()
Dim n As Long
Dim razmer_fundament As Long
Range("A3:K200").Clear
Cells(1, 6).Clear
n = InputBox("Введите количество выявленных участков/дефектов")
razmer_fundament = InputBox("Введите общий размер фундамента - P(k)")
Cells(1, 6) = razmer_fundament
Dim oRange1 As Range
Dim oRange2 As Range
Set oRange1 = Range(Cells(3, 1), Cells((3 + n - 1), 7))
Set oRange2 = Range(Cells(3, 3), Cells((3 + n - 1), 3))
oRange1.Borders.Color = 3
MsgBox ("Введите данные в таблицу")
Дефекты.Show

Cells((3 + n), 6) = "Ф(к) - физический износ фундамента ="
Cells(3 + n, 7) = WorksheetFunction.Sum(Range(Cells(3, 7), Cells(2 + n, 7)))
Cells(3 + n, 4) = WorksheetFunction.Sum(Range(Cells(3, 4), Cells(2 + n, 4)))

Worksheets("Свод").Range("F3").Value = Cells(3 + n, 7)
End Sub

Sub Ввод_данных_по_кнопке()
Dim i As Integer
i = 1
Do While i <= n
Cells(2 + i, 2) = Дефекты.Название_участка.Text
Cells(2 + i, 3) = Дефекты.Размер_дефектного_участка.Text
i = i + 1
Дефекты.Название_участка.Value = ""
Дефекты.Размер_дефектного_участка.Value = ""
Loop
Дефекты.Hide
End Sub

В самой кнопке

Private Sub Ввести_Click()
Worksheet("Фундаменты").Ввод_данных_по_кнопке
End Sub

[IgorGO]

я не могу назначить действие ввести ячейки из текстбоксов

а что мешает это сделать?

[cutie pie]

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

а что мешает это сделать?

пишет, Runtime error 424, object required. Ошибка в коде кнопки.
Я перепробовала несколько видов указания на процедуру Ввод_данных_по_кнопке:
- через ActiveSheet
- через WorkSheet("Фундаменты")
- через Фундаменты.Ввод_данных_по_кнопке

Пробовала указывать в коде кнопки переменные через ByVal i as integer, n as Long

[Aleksandr H.]

12 листов и 12 макросов одинаковых Ввод_данных_по_кнопке в коде каждого листа?

в инспекторе как записано, Лист1(Фундаменты) ?

[cutie pie]

Да, именно так.
Лист2 (Фундаменты).
скриншот.bmp

Пока что макрос 1 только на листе 2. Планировала потом его размножить, чтобы из активного листа запускать макрос кнопкой на этом же листе.

[Aleksandr H.]

Сообщение от cutie pie

Я перепробовала несколько видов указания на процедуру Ввод_данных_по_кнопке:
- через ActiveSheet
- через WorkSheet("Фундаменты")
- через Фундаменты.Ввод_данных_по_кнопке

Сообщение от cutie pie

Да, именно так.

Какой вариант осталось попробовать?

Планировала потом его размножить, чтобы из активного листа запускать макрос кнопкой на этом же листе.

есть такой принцип - DRY - Don't Repeat Yourself - не повторять один и тот же код в разных местах. Лучше сделать код в отдельном модуле, а как параметр макросу передавать нужный Лист

[cutie pie]

Сообщение от Aleksandr H.

есть такой принцип - DRY - Don't Repeat Yourself - не повторять один и тот же код в разных местах. Лучше сделать код в отдельном модуле, а как параметр макросу передавать нужный Лист

Я пока не осилила эту часть vba Буду рада, если подскажите, как лучше это делать.
А так, конечно, понимаю, что надо упрощать код.
Но вот, я даже внутри одного листа не могу кнопку запустить.

[Aleksandr H.]

+- такой подход