Может кто подсказать, как мне правильно очистить форму, в количестве, у меня несколько листов с заполняемым кол-ом по товару, и мне нужно при создании нового заказа, очистить данные, что я вводила. Никак не получается. В заказе все очищаю, а как на листах, никак [vba]
Код
Dim cell As Range
Application.ScreenUpdating = False
With Sheets("Çàêàç")
For Each cell In Sheets("Çàêàç").Range("G1:G250") If cell <> "" Then Range(Cells(cell.Row, 1), Cells(cell.Row, 7)).Style = "Normal" Range(Cells(cell.Row, 1), Cells(cell.Row, 7)).ClearContents End If Next cell End With
'For i = 1 To 6 'For Each y In Sheets(i).Range("F5:f250")
'Application.ScreenUpdating = True End Sub
[/vba] [moder]Назовите тему более подробно. Ксения, почему Вы перестали отписываться в своих темах?[/moder]
Может кто подсказать, как мне правильно очистить форму, в количестве, у меня несколько листов с заполняемым кол-ом по товару, и мне нужно при создании нового заказа, очистить данные, что я вводила. Никак не получается. В заказе все очищаю, а как на листах, никак [vba]
Код
Dim cell As Range
Application.ScreenUpdating = False
With Sheets("Çàêàç")
For Each cell In Sheets("Çàêàç").Range("G1:G250") If cell <> "" Then Range(Cells(cell.Row, 1), Cells(cell.Row, 7)).Style = "Normal" Range(Cells(cell.Row, 1), Cells(cell.Row, 7)).ClearContents End If Next cell End With
'For i = 1 To 6 'For Each y In Sheets(i).Range("F5:f250")
'Application.ScreenUpdating = True End Sub
[/vba] [moder]Назовите тему более подробно. Ксения, почему Вы перестали отписываться в своих темах?[/moder]kleo90
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
