Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывести из списка суммы клиента
 
#1
09.01.2018 13:47:21
Здравствуйте, ребята может после праздников есть кто "живой" :D ! подскажите как реализовать такой момент, если выбрать клиента из списка хотелось бы увидеть сумму в текстовых полях. пример во вложении! Заранее спасибо.
Изменено: Дмитрий Дунаев - 09.01.2018 13:50:07
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#2
09.01.2018 13:54:09
Посмотре на объем архива... подумал, что лучше поберечь время, нервы и здоровье...
Неужели нельзя составить простой пример?
 
 
 
#3
09.01.2018 14:22:23
Цитата
vikttur написал:
объем архива
69 кб это для вас много? сам проект 116 кб,  я  урезал  все что можно там ни чего лишнего то что требуется, сейчас попробую упростить
Изменено: Дмитрий Дунаев - 09.01.2018 14:25:19
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#4
09.01.2018 14:27:00
Цитата
Дмитрий Дунаев написал: сам проект 116 кб,  я  урезал  все что можно
Цитата
vikttur написал: Неужели нельзя составить простой пример?
Для решения Вашего вопроса достаточно с десяток заполненных ячеек. Вы сами должны быть заинтересованы в скорейшем решении. Не всем охота качать архив, раскрывать его, в куче бесполезной для решения вопроса  информации искать нужное.
 
 
 
#5
09.01.2018 14:27:52
все что смог
Изменено: Дмитрий Дунаев - 09.01.2018 14:29:54
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#6
09.01.2018 14:38:10
и какой файл смотреть?
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#7
09.01.2018 14:40:16
Если модератору лень или нет желания, я не в претензиях, пусть кто то другой, у кого праздники прошли более удачнее,  это же вопрос не к одному модератору!
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#8
09.01.2018 14:43:20
Цитата
TheBestOfTheBest написал:
файл
да любой запустите ПКО и посмотрите на форму
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#9
09.01.2018 14:48:23
При чем здесь модератор? Я Вам высказал свое видение как посетитель темы. И пожелания, которые могут ускорить помощь.
А вот как модератор исправил название темы, с которым опять были проблемы

P.S. А с праздниками полный порядок :)
 
 
 
#10
09.01.2018 15:02:28
Делайте поиск по источнику
Код
Private Sub ComboBox3_Change()
Dim wbSource As Workbook, rngSource As Range
Set wbSource = Workbooks("клиент.xls")
If Not ComboBox3.Value = "" Then
    Set rngSource = wbSource.Sheets("TDSheet").Range("A1:A100").Find(ComboBox3.Value)
    If Not rngSource Is Nothing Then
        TextBox4.Value = rngSource.Text
        '...
    End If
End If
End Sub
Изменено: TheBestOfTheBest - 10.01.2018 09:38:15 (исправлено If Not rngSource Is Nothing Then)
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#11
09.01.2018 15:13:44
ругается здесь
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#12
09.01.2018 15:16:08
а здесь не ругается?
Код
Set wbSource = Workbooks("êëèåíò.xls")
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#13
09.01.2018 15:24:50
нет, здесь изменил на имя книги
если я делаю так,
Код
If Not rngSource = ComboBox3 Then 
ругается на строку
Set wbSource = Workbooks("клиент.xlsx")

я так понимаю файл xlsx закрыт его требуется открытым держать?
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
#14
09.01.2018 15:59:33
да, либо открыть, если закрыт
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#15
10.01.2018 09:07:34
TheBestOfTheBest ничего не получается
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
 
 
Страницы: 1
Наверх