Добрый день, возникла проблема, когда я выполняю такую последовательность действий Кнопка-> Запрос-> Запись (когда выполняется Запрос, то создаётся новый лист) , Когда производишь запись в таблицу, то вносимые данные записываются на текущей лист, там где запрос, а не в таблицу. Что делать?
Добрый день, возникла проблема, когда я выполняю такую последовательность действий Кнопка-> Запрос-> Запись (когда выполняется Запрос, то создаётся новый лист) , Когда производишь запись в таблицу, то вносимые данные записываются на текущей лист, там где запрос, а не в таблицу. Что делать?nyaf_nyaf
Вы уверены? Это только видимость такая из-за того, что не совсем грамотно написан код. А в итоге-то данные оказываются на листе Класс или Услуги, разве нет? Или я чего-то не так понял? Единственно что, в коде в первый раз, где написано [vba]
Код
If Sheets(inList).Name =
[/vba]должно быть не "Класс", а "Услуги" (12 строка макроса
Вы уверены? Это только видимость такая из-за того, что не совсем грамотно написан код. А в итоге-то данные оказываются на листе Класс или Услуги, разве нет? Или я чего-то не так понял? Единственно что, в коде в первый раз, где написано [vba]
Код
If Sheets(inList).Name =
[/vba]должно быть не "Класс", а "Услуги" (12 строка макроса_Boroda_
With Worksheets("Раз") Dim g As Integer Dim J As Integer Dim R As Integer R = TextBox5.Value Y = Application.CountA(Sheets("Раз").Range("C:C")) + 1 Cells(Y, 1) = TextBox1.Value Cells(Y, 2) = TextBox2.Value Cells(Y, 5) = TextBox4.Value Cells(Y, 7) = R Cells(Y, 3).Value = ComboBox1 Cells(Y, 6).Value = ComboBox2
[/vba] Наверно автор кода полагает, что запись пойдёт на лист "Раз"? Напрасно! На активный лист, несмотря на With... Лечится точками спереди- [vba]
Код
.Cells(Y, 1) = TextBox1.Value
[/vba]
Или фрагмент кода - [vba]
Код
With Worksheets("Раз") Dim g As Integer Dim J As Integer Dim R As Integer R = TextBox5.Value Y = Application.CountA(Sheets("Раз").Range("C:C")) + 1 Cells(Y, 1) = TextBox1.Value Cells(Y, 2) = TextBox2.Value Cells(Y, 5) = TextBox4.Value Cells(Y, 7) = R Cells(Y, 3).Value = ComboBox1 Cells(Y, 6).Value = ComboBox2
[/vba] Наверно автор кода полагает, что запись пойдёт на лист "Раз"? Напрасно! На активный лист, несмотря на With... Лечится точками спереди- [vba]
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
