Добрый день или ночь. Подскажите, как можно задать путь к динамической таблице в макросе? Никогда не создавал и не писал ничего подобного, вообще ничего не писал. )) Я вот уже второй день пытаюсь разобраться с ним, тоесть с макросом, сам я не програмист, если задаю глупый вопрос или не правильно называю действия, прошу Вас, не судите строго.
Вот я сделал определение листа таким образом "With database" можно ли как то обратить внимание именно на динамическую таблицу таким образом "With database.какоетоопределениеДТ" *какоетоопределениеДТ - вот это значение и не могу нигде найти как правильно задать чтобы работа была именно с определенной динамической таблицей. Заранее спасибо!
Добрый день или ночь. Подскажите, как можно задать путь к динамической таблице в макросе? Никогда не создавал и не писал ничего подобного, вообще ничего не писал. )) Я вот уже второй день пытаюсь разобраться с ним, тоесть с макросом, сам я не програмист, если задаю глупый вопрос или не правильно называю действия, прошу Вас, не судите строго.
Вот я сделал определение листа таким образом "With database" можно ли как то обратить внимание именно на динамическую таблицу таким образом "With database.какоетоопределениеДТ" *какоетоопределениеДТ - вот это значение и не могу нигде найти как правильно задать чтобы работа была именно с определенной динамической таблицей. Заранее спасибо!samojlo
Добавив его к значению, мне написало "невозможно получить свойство Selekt класса Range" я так понимаю дальше немного нужно мне подредактировать по другому?
Добавив его к значению, мне написало "невозможно получить свойство Selekt класса Range" я так понимаю дальше немного нужно мне подредактировать по другому?samojlo
Так, только когда я привязал его к "With database.[БАЗА[#All]].Select" (database - это название листа) оно мне выдало ошибку "невозможно получить свойство Selekt класса Range".
Вот мой код: [vba]
Код
Sub CommandButton_зберегти_Click() Dim nextRow As Long 'Считаем количество строк в таблице. отсчитываем по 3-й колонке на листе nextRow = Sheets("База").Cells(Sheets("База").Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'копируем данные из таблицы ввода в в таблицу With database
'Проверка для правильного подсчета строк в пустой таблице If .Range("A2").Value = "" And .Range("B2") = "" Then nextRow = nextRow - 1 End If
'Проверяем правильность заполнения данных в вводной форме If Not IsNumeric(Me.TextBox_тара) Or _ Not IsNumeric(Me.TextBox_брутто) Or _ Not IsNumeric(Me.TextBox_плот) Or _ Not IsNumeric(Me.TextBox_темп) Or _ Not IsNumeric(Me.TextBox_вага) Or _ Not IsNumeric(Me.TextBox_докплот) Or _ Not IsNumeric(Me.TextBox_доктемп) Or _ Not IsDate(Me.TextBox_дата) Then MsgBox "Не корректно заполненная форма!!!!", 48, " Опять ошибка!" Exit Sub
Так, только когда я привязал его к "With database.[БАЗА[#All]].Select" (database - это название листа) оно мне выдало ошибку "невозможно получить свойство Selekt класса Range".
Вот мой код: [vba]
Код
Sub CommandButton_зберегти_Click() Dim nextRow As Long 'Считаем количество строк в таблице. отсчитываем по 3-й колонке на листе nextRow = Sheets("База").Cells(Sheets("База").Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'копируем данные из таблицы ввода в в таблицу With database
'Проверка для правильного подсчета строк в пустой таблице If .Range("A2").Value = "" And .Range("B2") = "" Then nextRow = nextRow - 1 End If
'Проверяем правильность заполнения данных в вводной форме If Not IsNumeric(Me.TextBox_тара) Or _ Not IsNumeric(Me.TextBox_брутто) Or _ Not IsNumeric(Me.TextBox_плот) Or _ Not IsNumeric(Me.TextBox_темп) Or _ Not IsNumeric(Me.TextBox_вага) Or _ Not IsNumeric(Me.TextBox_докплот) Or _ Not IsNumeric(Me.TextBox_доктемп) Or _ Not IsDate(Me.TextBox_дата) Then MsgBox "Не корректно заполненная форма!!!!", 48, " Опять ошибка!" Exit Sub
Правьте свой пост согласно Правилам форума.Поправили, вижу А чтобы кракозябр не было - в момент копирования из VBA нужно, чтобы там была русская раскладка И вообще - зачем нам весь Ваш макрос и все Ваши листы с таблицами? Составьте маленький пример, напишите маленький код, в котором и обозначьте "Вот эта строка не получается".
Правьте свой пост согласно Правилам форума.Поправили, вижу А чтобы кракозябр не было - в момент копирования из VBA нужно, чтобы там была русская раскладка И вообще - зачем нам весь Ваш макрос и все Ваши листы с таблицами? Составьте маленький пример, напишите маленький код, в котором и обозначьте "Вот эта строка не получается"._Boroda_
Вот пример. Он работает. Но когда добавляю в таблице столбец, значения вводятся уже не правильно. А когда я привязал его к "With database.[БАЗА[#All]].Select" оно мне выдало ошибку "невозможно получить свойство Selekt класса Range".
Вот пример. Он работает. Но когда добавляю в таблице столбец, значения вводятся уже не правильно. А когда я привязал его к "With database.[БАЗА[#All]].Select" оно мне выдало ошибку "невозможно получить свойство Selekt класса Range".samojlo