Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Очистка данных со всех листов, по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка данных со всех листов, по условию (Макросы/Sub)
Очистка данных со всех листов, по условию
kleo90 Дата: Вторник, 28.06.2016, 17:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Может кто подсказать, как мне правильно очистить форму, в количестве, у меня несколько листов с заполняемым кол-ом по товару, и мне нужно при создании нового заказа, очистить данные, что я вводила. Никак не получается.
В заказе все очищаю, а как на листах, никак
[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]
К сообщению приложен файл: 4524168.xlsx(17Kb)


Сообщение отредактировал kleo90 - Среда, 29.06.2016, 11:17
 
Ответить
СообщениеМожет кто подсказать, как мне правильно очистить форму, в количестве, у меня несколько листов с заполняемым кол-ом по товару, и мне нужно при создании нового заказа, очистить данные, что я вводила. Никак не получается.
В заказе все очищаю, а как на листах, никак
[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
Дата добавления - 28.06.2016 в 17:19
RAN Дата: Вторник, 28.06.2016, 19:04 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4277
Репутация: 829 ±
Замечаний: 0% ±

2010
К выше изложенному могу добавить, что в файле нет формы.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеК выше изложенному могу добавить, что в файле нет формы.

Автор - RAN
Дата добавления - 28.06.2016 в 19:04
kleo90 Дата: Среда, 29.06.2016, 11:16 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Мне нужно просто понять как написать код, я не понимаю какой использовать прием, отписываюсь по свободному времени, сейчас совсем завал.
 
Ответить
СообщениеМне нужно просто понять как написать код, я не понимаю какой использовать прием, отписываюсь по свободному времени, сейчас совсем завал.

Автор - kleo90
Дата добавления - 29.06.2016 в 11:16
KuklP Дата: Среда, 29.06.2016, 12:37 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

отписываюсь по свободному времени
- как бы там ни было, а отписываться в своих предыдущих темах необходимо прежде, чем плодить новые темы. Это элементарная вежливость.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
отписываюсь по свободному времени
- как бы там ни было, а отписываться в своих предыдущих темах необходимо прежде, чем плодить новые темы. Это элементарная вежливость.

Автор - KuklP
Дата добавления - 29.06.2016 в 12:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка данных со всех листов, по условию (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!