Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск по полному совпадению из combobox
 
#1
13.07.2017 10:04:37
Доброго времени суток, Господа!

Был макрос, был и вроде ничего не предвещало беды...

Суть такова. Есть у меня макрос (собранный благодаря этому сайту, спасибо Вам всем за помощь) который распечатывает определенные листы сформированные из сводной таблицы. берет он из комбобокса значение ищет эту строчку в сводной таблице, раскрывает ее печатает и удаляет лист. Так вот, до "сегодня" он работал без сучка, без задоринки, т.к. все значения были без повторяющихся слов в названии. но теперь есть два значения "Детская одежда" и "Одежда" в алфавитном порядке "Детская одежда" стоит первой, при выборе в ComboBox значения "Одежда" он находит первую ячейку содержащею слово одежда и распечатывает его (т.е. "Детская одежда). Надо чтобы макрос он находил только точное совпадение (т.е. "Одежда")
Собственно вот макрос:
Код
If Sheets("Start").ComboBox1 = "" Then
MsgBox ("Выберите отдел!" & Chr(10) & Chr(10) & "Или значение ''Общий итог''"), 48 'Сообшение
Else
'ALL_Forms.Hide
'Application.ScreenUpdating = False 'Отключить обновление экрана
Sheets("Руптюры магазина").Visible = True
Sheets("Руптюры магазина").Activate 'Активировать лист
ActiveSheet.PivotTables("Руптюры").PivotFields("Смена").ClearAllFilters 'очистить фильтр сводной таблисы
ActiveSheet.PivotTables("Руптюры").PivotFields("Смена").CurrentPage = ALL_Forms.ComboBox3.Value ' Задать фильтр сводной по значению из комбобокса
ActiveSheet.PivotTables("Руптюры").PivotFields("Отдел").ShowDetail = False 'скрыть детали сводной таблицы
ActiveSheet.PivotTables("Руптюры").PivotCache.Refresh
Dim r As Range, t, Y As Integer
Set Z = ThisWorkbook.Sheets("Руптюры магазина").Range("A5:A150").Find(Sheets("Start").ComboBox1.Value, , xlFormulas, xlPart)
'Set v = ThisWorkbook.Sheets("Руптюры магазина").Range("A4:H4").Find("Общий итог", , xlFormulas, xlPart)
Set v = ThisWorkbook.Sheets("Руптюры магазина").Range("A4:H4").Find(ALL_Forms.ComboBox4.Value, , xlFormulas, xlPart)
Y = Z.Row
t = v.Column
Set r = Cells(Y, t)
r.Select
Selection.ShowDetail = True 'раскрыть детали сводной таблицы
Печать
'ALL_Forms.ComboBox2.Clear
'ALL_Forms.ComboBox3.Clear
ALL_Forms.ComboBox4.Clear

Columns(20).Clear
Range("A5:A40").Select
Selection.Copy
Range("T1:T35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
[T1].Sort [T1], xlAscending, Header:=xlNo
Set s = Columns(20).SpecialCells(xlCellTypeConstants)
ALL_Forms.ComboBox2.List = s.Value

' ALL_Forms.ComboBox3.AddItem "1 смена"
' ALL_Forms.ComboBox3.AddItem "2 смена"
' ALL_Forms.ComboBox3.AddItem "ОЗКУ"
'  ALL_Forms.ComboBox3.AddItem "Все"
 ALL_Forms.ComboBox4.AddItem "1. Недостаточный заказ"
 ALL_Forms.ComboBox4.AddItem "2. Неактив NA"
 ALL_Forms.ComboBox4.AddItem "3. Проверьте наличие товара"
 ALL_Forms.ComboBox4.AddItem "4. Задержка поставки"
  ALL_Forms.ComboBox4.AddItem "Общий итог"

'ALL_Forms.ComboBox2.Text = "Общий итог"
'ALL_Forms.ComboBox3.Text = "Все"
ALL_Forms.ComboBox4.Text = "Общий итог"

Sheets("Руптюры магазина").Visible = 2
End If
Application.ScreenUpdating = True 'Включить обновление экрана
inform = ThisWorkbook.Sheets("BIP").Cells(1, 3)
Проблема вот в этой строке:
Код
Set Z = ThisWorkbook.Sheets("Руптюры магазина").Range("A5:A150").Find(Sheets("Start").ComboBox1.Value, , xlFormulas, xlPart)
Спасибо откликнувшимся.

Бессмысленно осмысливать смысл неосмысленными мыслями.
 
 
 
#2
13.07.2017 10:11:57
xlPart замените на xlWhole
 
 
 
#3
13.07.2017 10:20:14
Kuzmich, Спасибо, Работает!

Скажите, что означает
Код
xlPart
и
Код
xlWhole

Заранее спасибо!

Бессмысленно осмысливать смысл неосмысленными мыслями.
 
 
 
#4
13.07.2017 11:49:55
переведите с английского Part и Whole)
 
 
 
#5
13.07.2017 11:54:12
yozhik, об этом чет не подумал...
Спасибо!

Бессмысленно осмысливать смысл неосмысленными мыслями.
 
 
 
Страницы: 1
Наверх