Ищу подсказок по VBA excel новичку

[stasun]

Помогите начинающему! пытаюсь сделать следующее:
по артикулу найти в списке (sheet1) позицию (допустим, столбик 1 - артикул, столбик 2 - наименование, столбик 3 - количество), форму и кнопки сделал - открывается окно, где вводится артикул, вторым идет количество. По нажатию кнопки запись надо найти по артикулу на первом листе, взять кол-во из этой же строки, увеличить на новое количество, записать в ячейку.
Далее тоже не просто, надо по количеству пересчитать остатки на складе ))) Но с этим позже ))

[Hugo121]

Find

Это подсказка

[stasun]

Спасибо за помощь!!!

[stasun]

О!!!
Кстати помогло!
Еще маааленький вопрос! Мона? 8)
Если в TextBox ввели что то - это что то будет доступно для других модулей и функций???

[Hugo121]

Я не понял - это сарказм или благодарность?
По делу - если бы Вы приложили пример файла с наработанным - уже вероятно был бы готовый код, там работы меньше, чем писать обстоятельное обьяснение как это можно сделать если например данные вот такие, а как если вот такие...

[Hugo121]

"Если ввели..." - зависит как, куда и чем закончилось...
Но всегда можно привлечь публичных

P.S. Вот наваял топором... Без публичных. Покликайте там...

[stasun]

Это не сарказм! Благодарю!!!!
Кода как такового нет еще - это лишь форма,, обработка работает лишь при нажатии на кнопки в листе и кнопка отмена в форме (unload me)
)
Я, как человек не писавший ни на чем (кроме асма, классического бейсика, си) не могу понять вообще - зачем так сложно примитив делать )))
Собственно вот, пример из справки мелкософта и тот выдет ошибку
Private Sub TextBox2_Change()
Dim barcode As String

barcode = TextBox1.Text
With Worksheets("Warehouse").Range("a3:a 56")
Set c = .Find(barcode, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With


End Sub

Не могу еще понять, я нашел товар по коду, надо сделать смещение в таблице вправо на две ячейки с.offset (0,2)? А затем мне надо добавить туда quantity (переменная из другого поля ввода - кол-во) - как?!

[stasun]

Если я вышлю код - не плюйтесь, ок? )

Private Sub TextBox2_Change()
Dim barcode As String

barcode = TextBox1.Text
With Worksheets("Warehouse").Range("a3:a 56")
Set c = .Find(barcode, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(0, 2) = quantity

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

Private Sub TextBox1_Change()
Dim quantity As String
quantity = TextBox1.Text

End Sub



Знаю, что с типами я накосячил..

[Hugo121]

Вышлите нам файл. А то плеваться будем
И зачем Вам искать на change? Это ведь событие изменения, срабатывает на каждый символ.
Для теста:

Private Sub TextBox1_Change()
MsgBox Me.TextBox1
End Sub

[stasun]

Как vba сделал - change, так и есть 8) Хотя понимаю, что не подходит, а как сделать по enter'у - хз пока. Я профан в VBA