Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Выбока данных с реестра для автозаполнения счета
 
Здравствуйте Уважаемые знатоки своего дела!

в файле есть лист ,,Реестр ,, и ,,счет фактуры,,
наименования продукции разные и занимают несколько строк. Хотя в файле все указона.

Спасибо большое и извините за ошибки
 
Так нужно?
Вот только с НДС проблемы - кто его знает, какой он у Вас и как Вы его считаете?
 
Когда в реестре во вторую колонку ставлю Х надо что бы фактура заполнялась сама
Спасибо за Вашу помощь!
Изменено: arslantm80 - 7 Дек 2018 22:14:59
 
Тогда макросом нужно, формулами не смогу. В модуль листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lrR As Long
    Dim lrF As Long
    lrR = Target.Row
    lrF = Worksheets("СЧЕТ_ФАКТУРА").Cells(Rows.Count, 2).End(xlUp).Row
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B4:B10000")) Is Nothing Then
If Cells(lrR, 2).Value = "x" Then
  With Worksheets("СЧЕТ_ФАКТУРА")
      .Cells(lrF + 1, 2).Value = Worksheets("РЕЕСТР").Cells(lrR, 7).Value
      .Cells(lrF + 1, 14).Value = Worksheets("РЕЕСТР").Cells(lrR, 8).Value
      .Cells(lrF + 1, 15).Value = Worksheets("РЕЕСТР").Cells(lrR, 9).Value
      .Cells(lrF + 1, 16).Value = Worksheets("РЕЕСТР").Cells(lrR, 10).Value
      .Cells(lrF + 1, 18).Value = Worksheets("РЕЕСТР").Cells(lrR, 12).Value
  End With
End If
End If
End Sub
Изменено: _Igor_61 - 7 Дек 2018 22:45:01
 
В ЛИСТЕ ..РЕЕСТР.. ДОБАВИЛ СТОЛБЕЦ "B" ДАЛЕЕ С ПОМОЩЬЮ С ПОМОЩЬЮ ,,ДИСПЕТЧЕР ИМЕН,, ИМЯ ТАБЛИЦЫ ...(N)
ЛИСТ ,,СЧЕТ ФАКТУРЫ,,
ЕСЛИ(ЕНД(ВПР(A17;N;7;0));"";ВПР(A17;N;7;0))

ЧТО ТО ВРОДЕ ПОЛУЧИЛОСЬ

СПАСИБО!!!
 
Чего орете?:)
Текст заглавными считается криком. Исправьте сообщение.
Страницы: 1
Читают тему (гостей: 1)
Наверх