перенос данных

[Romuald]

Добрый день!!
Помогите, пожалуйста, с макросом в путевом листе:
В Putevka -лист путевки, где в D6-выбираю месяц, в D8-выбираю машину(если в конце стоит G-машина на газу , если В- на бензине . Есть машины газ-бензин, соответственно путевки надо на одну и ту-же машину но отдельно на газ и на бензин
Я попытался сделать лист Toplivo, в котором указал расход топлива за определенные месяцы (может таблицу надо сделать по-другому?)
Что мне нужно- в листe Putevka, выбрав месяц и машину, макросом в F14 перенести (из листа Топливо) кол-во топлива(газ или бензин) а в М24- сумму по данному топливу
Заранее благодарю

[SAS888]

Посмотрите вложение. Т.к. Вы разрешили переделывать таблицу,то я переделал ее так, как на мой взгляд удобнее. Так же, при выборе месяца и машины, дополнительно в ячейку "G14" пишется вид топлива. Если это нужно - в коде макроса измените адрес ячейки на требуемый, если не нужно - удалите (закомментируйте) блок с кодом, который делает этот сервис. В коде есть примечание.

[Romuald]

Не хочет идти макрос в листе Celazime

[SAS888]

1. В коде макроса Вы заменили имена листов на требуемые. Это правильно. А вот названия месяцев в листе "Degviela" не поменяли на те, которые в диапазоне списка на листе "Dannie".
2. По событию изменения значения в ячейке листа запускается одна определенная процедура, в которой мы должны самостоятельно "разруливать" выполнение тех или иных действий.
Пример во вложении.

[Romuald]

СПАСИБО ОГРОМНОЕ!!!!!

[Romuald]

Добрый вечер!
Добавил в форму TextBox2 , в котором при просмотре в форме Vibor Marshruta (Combobox 1) , показывался остаток километров, попытался добавить в макрос Private Sub ComboBox1_Change формулу но....
1. Не могу сделать в (TextBox2) чтобы было два знака после запятой
2. Как только в форме Vibor Marshruta выбираешь пустое поле, макрос вылетает(дебажит)
Помогите, пожалуйста !!!

[Romuald]

Забыл!!
Во приложил файл

[EducatedFool]

Во-первых, не надо сравнивать текст с числом: If ComboBox1 > 0 Then
Если ты хочешь проверить наличие текста в комбобоксе, пиши так: If ComboBox1 <> "" Then

Во-вторых, складывать текст с числом тоже нежелательно: ((Cells(41, "E") + Me.TextBox1))
особенно когда в TextBox1 находится не числовое значение.

В крайнем случае можно так: ((Cells(41, "E") + val(Me.TextBox1)))
Так мы предварительно преобразуем текст в число.

Попробуй такой вариант:

Private Sub ComboBox1_Change()
    Me.TextBox2 = "": Me.TextBox2 = ""    ' стираем значения в обоих текстбоксах
    Set x = Sheets("Marshruti").Columns("A").Find(Me.ComboBox1)    ' ищем на листе значение из списка
    If Not x Is Nothing Then    ' если нашли
        Me.TextBox1 = x.Next    'берём значение из ячейки справа
        t2 = [f14] / [d14] * 100 - (([e41] + Val(Me.TextBox1)))    ' вычисляем значение
        Me.TextBox2 = FormatNumber(t2, 2)    ' запись в новый текстбокс (с 2 знаками после запятой)
    End If
End Sub

Не забудь туда же добавить код активации нужного листа при запуске формы:
(поскольку ты обращаешься к ячейкам активного листа, а активным в момент запуска формы может быть любой лист, а это повлёчет ошибку)

Private Sub UserForm_Initialize()
    Sheets("Celazime").Activate
End Sub

Насчёт первой пустой строки в ComboBox1 - она тебе нужна?
Если нет, то исправь немного код макроса RemoveDuplicates:

...
    'заполняем коллекцию элементами без повторений
    On Error Resume Next
    For Each rCell In AllCells
        If Trim(rCell.Value) <> "" Then NoDupes.Add rCell.Value, CStr(rCell.Value)
    Next rCell
    On Error GoTo 0
...

Так мы обрабатываем только непустые ячейки диапазона.

[Romuald]

СПАСИБО!!!!!!!!!!!!!!!!!

С Праздником МУЖИКИ!!!!!!!!!!!!!!!!!!