Столкнулся с крайне странной ситуацией. Есть файл с двумя страницами.
На странице "1" есть поиск по определенным позициями с страницы "2" из колонки B
Всего 15 строк с отображением результатов. Ключевое значение - номер артикула товара, цифровой код из 8 цифр.
Возле каждой строки две кнопки - "+" и "-".
Если в строке на странице "1" появляется номер артикула, к примеру "70010101", и нажимается кнопка "+", макрос ищет на странице "2" в колонке B данный артикул и добавляет в ячейке С на строке с данным кодом единицу (увеличивает значение на 1). При нажатии кнопки "-" соотвественно количество уменьшается на 1 того же артикула.
Вот код двух макросов
Но вдруг вылезла очень странная ситуация, которая встречается только с одним номером - 70120222. Когда нажимается кнопка напротив этого артикула на странице "1", значение почему-то увеличивается для совершенно другого артикула - 70100201.
Для всех остальных артикулов все работает как надо.
Причем, если поменять первый артикул на другой номер, к примеру - 70120229 (девятка в конце вместо двойки), но макрос работает нормально, добавляет количество именно возле артикула 70120229, а если поменять второй артикул - 70100201 на 70100209, а первый оставить 70120222, то при нажатии кнопки макроса все равно добавляет значение в эту строку, т.е. теперь в строку с значением 70120209.
Если это важно, номера строк
70120222 - 225
70100201 - 181
Просто мистика какая-та.
На странице "1" есть поиск по определенным позициями с страницы "2" из колонки B
Всего 15 строк с отображением результатов. Ключевое значение - номер артикула товара, цифровой код из 8 цифр.
Возле каждой строки две кнопки - "+" и "-".
Если в строке на странице "1" появляется номер артикула, к примеру "70010101", и нажимается кнопка "+", макрос ищет на странице "2" в колонке B данный артикул и добавляет в ячейке С на строке с данным кодом единицу (увеличивает значение на 1). При нажатии кнопки "-" соотвественно количество уменьшается на 1 того же артикула.
Вот код двух макросов
| Код |
|---|
Sub Erste_Plus()
Dim wshData As Worksheet, wshSearch As Worksheet
Dim rngArtikel As Range, rngToFind As Range
Set wshSearch = ThisWorkbook.Worksheets("1")
Set rngToFind = wshSearch.Cells(11, 3)
Set wshData = ThisWorkbook.Worksheets("2")
Set rngArtikel = wshData.Cells.Find(rngToFind)
If Not IsEmpty(rngArtikel) Then
wshData.Cells(rngArtikel.Row, 3) = wshData.Cells(rngArtikel.Row, 3).Value + 1
End If
End Sub
Sub Erste_Minus()
Dim wshData As Worksheet, wshSearch As Worksheet
Dim rngArtikel As Range, rngToFind As Range
Set wshSearch = ThisWorkbook.Worksheets("1")
Set rngToFind = wshSearch.Cells(11, 3)
Set wshData = ThisWorkbook.Worksheets("2")
Set rngArtikel = wshData.Cells.Find(rngToFind)
If Not IsEmpty(rngArtikel) Then
wshData.Cells(rngArtikel.Row, 3) = wshData.Cells(rngArtikel.Row, 3).Value - 1
End If
End Sub
|
Но вдруг вылезла очень странная ситуация, которая встречается только с одним номером - 70120222. Когда нажимается кнопка напротив этого артикула на странице "1", значение почему-то увеличивается для совершенно другого артикула - 70100201.
Для всех остальных артикулов все работает как надо.
Причем, если поменять первый артикул на другой номер, к примеру - 70120229 (девятка в конце вместо двойки), но макрос работает нормально, добавляет количество именно возле артикула 70120229, а если поменять второй артикул - 70100201 на 70100209, а первый оставить 70120222, то при нажатии кнопки макроса все равно добавляет значение в эту строку, т.е. теперь в строку с значением 70120209.
Если это важно, номера строк
70120222 - 225
70100201 - 181
Просто мистика какая-та.
Goedenavond!
Спасибо 
