Страницы: 1
RSS
Последняя накладная в списке, VBA
 
Добрый день.
Подскажите пожалуйста алгоритм. Как найти последнюю накладную поставки по каждому артикулу запчасти. Не по дате последнюю, а последнюю в списке. В примере в столбце В формула, которая правильно находит необходимую дату. А вот как это реализовать макросом, даже близко не представляю.
UDF не нужно.

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Здравствуйте!
Я правильно понял? Нужно вместо формулы записать в те же ячейки, где формула (столбец В), те же значения, что возвращает формула, только макросом?
Изменено: Михаил Лебедев - 20.11.2015 13:44:56
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
Да, правильно.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Код
Sub Articul()
Dim i As Long
Dim n As Integer
Dim iLastRow As Long
Dim iDate As Date
  iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 8 To iLastRow
    If i <> iLastRow Then
      n = Cells(i, 1).End(xlDown).Row - 1
      Cells(i, 2) = Right(Split(Cells(n, 4), ";")(0), 8)
      Cells(i, 2).NumberFormat = "d/m/yyyy"
      i = n
    Else
      n = Cells(i, 4).End(xlDown).Row
      Cells(i, 2) = Right(Split(Cells(n, 4), ";")(0), 8)
      Exit For
    End If
  Next
End Sub
 
что-то такое наколбасил... :)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
Кузьмич, спасибо.
Вот это мне и надо было - Cells(I, 1).End(xlDown).Row
---------
Михал, спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх