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

Страницы: 1
Удаление строк по критерию или автофильтр
 
#
30.08.2013 17:03:40
Добрый день!
Подскажите пожалуйста, что не так.
Есть таблица: наименование, код, остаток, заказ.
Как сделать так, чтобы после ввода количества в столбец заказ при запуске цикла удалялись строки с пустыми значениями в столбце заказ.
Вот код макроса, но он не работает.

Код
Sub Zakaz()
 Dim Zak As Worksheet
 For Each Zak In ThisWorkbook.Worksheets
 Zak.Select
 ActiveWindow.FreezePanes = False
 Zak.Rows.AutoFilter
 Zak.Rows.AutoFilter Field:=5, Criteria1:="="
 Cells.Select
 Selection.Delete Shift:=xlUp
 Range("A1"  ;)  .Select
 While Zak.Cells(1, 5 + 1).Value <> ""
 Zak.Columns(5 + 1).Delete Shift:=xlToLeft
 Wend
 Next
End Sub


Спасибо.
 
Перейти    
Указать диапазон для поиска методом Union
 
#
01.02.2013 13:56:52
Добрый день
Существует множество каталогов с одинаковыми схемами таблиц, но данные не повторяются. Пытаюсь создать функцию для поиска значения по всем каталогам и вывода данных на основе впр(), чтобы не плодить если(если(если...
Подскажите пожалуйста, что не так (урезал до двух каталогов):

Function vlookk(Что_ищем As Variant, В_каком_столбце_Ищем As Long)
On Error Resume Next
Dim q, n As String, rngSKO As Range, rngVW As Range, myRange As Range
q = "C:\Users\Desktop\"
ChDir q
Set rngSKO = Workbooks("Каталог1.xlsb" ;) .Sheets("sko" ;) .Range("A:H" ;)
Set rngVW = Workbooks("Каталог2.xlsb" ;) .Sheets("vw" ;) .Range("A:H" ;)
Set myRange = Application.Union(rngSKO, rngVW)
n = R eplace(R eplace(R eplace(R eplace(Что_ищем, "_", "" ;) , "-", "" ;) , " ", "" ;) , ".", "" ;)
If n <> "" & Not (IsError(Application.VLookup(n, myRange, В_каком_столбце_Ищем, False))) And Not myRange Is Nothing Then
vlookk = Application.VLookup(n, myRange, В_каком_столбце_Ищем, False)
Else
vlookk = ""
End If
End Function

Данная функция не работает.
Или я не правильно понял метод Union.
Спасибо.
 
Перейти    
Добавление данных по условию с помощью макроса
 
#
14.09.2012 00:30:37
Доброго времени суток!  
Перерыл форум, похожей темы не нашел.  
Есть базовая книга, в которую нужно из приходящих файлов добавлять (суммировать) по номеру заявки (номера заявок в базовой книге не повторяются) данные соответственно в таблицы расчет и факт.    
Возможно ли макросом систематизировать, без формул.  
Если да, то подскажите пожалуйста код макроса, если несложно.  
Прилагаю урезанный файл.  
Спасибо.
 
Перейти    
Делим текст на куски по первой попавшейся букве кирилицы
 
#
13.06.2012 10:04:20
Доброго времени суток!  
На сайте в приемах есть статья "Делим текст на куски". Данная пользовательская функция делит текст по указанным пользователем символам разделения: , . - _ и т.д.  
К моему случаю не подойдет, т.к. пробелы присутствуют и в артикулах:  
1U6807423B 01C Молдинг      'перед 01C один пробел  
3T0857537  GRU Корпус       'перед GRU два пробела  
115940155 Клапан            'здесь расширение отсутствует  
...  
В наименовании все слова на кирилице (Молдинг), а артикул на латинице(1U6807423B 01C).  
Подскажите пожалуйста как сделать деление артикула и наименования по разным столбцам.  
Заранее спасибо.
 
Перейти    
Страницы: 1
Наверх