Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » antonys
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
вытащить данные по условию
 
#
10.02.2014 16:31:48
еще как. Спасибо большущее за помощь!!!
 
Перейти    
вытащить данные по условию
 
#
10.02.2014 16:19:16
Nic70y, спасибо огромное. Скажите а с VBA как можно это реализовать?
 
Перейти    
вытащить данные по условию
 
#
10.02.2014 15:58:43
Цитата
Hugo пишет:
Переносить без VBA - только вручную! Если конечно нужно переносить, что вряд ли...
Жаль. Не могли бы подсказать примерный код на VBA, чтобы на втором листе в A1 можно было бы указать месяц и переносился бы первый и второй столбец для начала.
 
Перейти    
вытащить данные по условию
 
#
10.02.2014 15:44:10
Здравствуйте!

На одном листе есть таблица, в 1 столбце стоит дата(несколько строк подряд может быть одна и та же дата 12.01.14), как можно сделать, чтобы
на 2 листе указывался только месяц в одной ячейке например 12 и с первого листа переносился первый столбец с месяцем январь, 2 и 3 столбцы?
Подскажите, пожалуйста, как решить данную задачу, можно ли без VBA?

Спасибо
Изменено: antonys - 10.02.2014 15:54:46
 
Перейти    
Поиск цифры внутри большого числа используя маску
 
#
10.06.2013 13:09:44
Спасибо, но мне на Vba надо было.
 
Перейти    
Поиск цифры внутри большого числа используя маску
 
#
10.06.2013 12:59:25
вот что я искал
Mid(Cells(i, 4), 11, 3) = "234" Then

Спасибо большое
 
Перейти    
Поиск цифры внутри большого числа используя маску
 
#
10.06.2013 12:44:25
Все привет!

Подскажите как найти трех-ю цифру внутри числа(vba).
имеются числа стаким шаблоном
хххххххххх234ххххххх
хххххххххх367ххххххх
хххххххххх739ххххххх

нужно найти только с центральным числом 234.
пробовал *234* - не работает. Кол-во неизвестных чисел всегда одинаково
слева - 10, справа - 7
# - как я понимаю только для одного числа.

Как правильно задать маску?
Изменено: antonys - 10.06.2013 12:48:53
 
Перейти    
Запрет на изменение формул, но разрешить выполнение макроса
 
#
21.05.2013 10:06:16
спасибо всем за помощь. Очень помогли.
Изменено: antonys - 21.05.2013 10:06:27
 
Перейти    
Запрет на изменение формул, но разрешить выполнение макроса
 
#
20.05.2013 15:49:11
Все привет.

Знаю вопрос много обсуждался на форуме, однако не нашел конкретно к своей ситуации.
У меня есть файл, с которым работает куча пользователей, постоянно его правят ручками, сбивают итд.
Все усложняется тем, что подключены 2 макроса, в конце работы, пользователь нажимает очистить и макрос с помощью огромного кол-ва ClearContents очищает все что нужно.

Можно ли с помощью макроса или любым другим способом запретить вручную изменять ячейки, при этом разрешить макросу делать все, что угодно?
 
Перейти    
Перенос данных, найденных по критерию на другой лист
 
#
02.03.2013 11:37:09
New, cпасибо
 
Перейти    
Перенос данных, найденных по критерию на другой лист
 
#
02.03.2013 09:37:30
Цитата
EducatedFool пишет:
' создаем лист, вставляем на него результат
   Worksheets.Add.Range("a1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

Спасибо за функцию. Возник еще один вопрос, можно ли как-нибудь перед добавлением листа с помощью Worksheets.Add.Range применить текстовый формат для всех ячеек, т.к. у меня  в ячейках номера 20-х счетов.
куда мне вставить Selection.NumberFormat = "@"?
 
Перейти    
Перенос данных, найденных по критерию на другой лист
 
#
02.03.2013 08:36:35
Цитата
EducatedFool пишет:
Вы уверены, что здесь нужна буква «o» вместо нуля (0)?
конечно же нужен 0. Видимо при копировании с кода что-то не так отформатировалось
Цитата
EducatedFool пишет:
Вот эта функция вам поможет:
http://excelvba.ru/code/arrautofilter
Спасибо буду пробовать.
Цитата
magrifa пишет:
Поставьте автофильтр, отфильтруйте по цвету . Видимые ячейки скопируйте и вставьте
в нужное место.Запишите рекордером и вставьте в свой макрос.
спасибо
 
Перейти    
Перенос данных, найденных по критерию на другой лист
 
#
02.03.2013 08:13:22
Здравствуйте!

Имеется большой макрос, выполняющий множество задач. Интересует последний кусок

Код
For i = 2 To 200
If Cells(i, 3).Value > 0 And Left(Cells(i, 3), 3) = "asy" Then
Cells(i, 1).Resize(1, 20).Interior.ColorIndex = 16
End If
Next i


данный отрезок просматривает строки 3 столбца в поисках слов с "asy" и
закрашивает строку в цвет.
Как скопировать найденные закрашенные строки в новый лист?
Изменено: antonys - 02.03.2013 18:15:42
 
Перейти    
Страницы: 1
Наверх