Страницы: 1
RSS
Подставка значения по номер заявки
 
Добрый день! Помогите пожалуйста в написание макроса.
Есть таблица на листе 1  по ней указанна сумма и порядковый номер заявки.
Мне нужно на листе 2 найти номер заявки и внести сумму в первую свободную ячейку( сум.оп.пер1, сум.оп.пер2, сум.оп.пер3...10) и дату сегодняшнею в ячейку (д. опл. Пер1, д. опл. Пер2, д. опл. Пер3...10).

00.01.1900 - значение считается как свободная ячейка.

Например ищем заявку 3151, по листу2, находим свободную ячейку д. опл. Пер2 (сюда нужно вставить текущую дату) и сум.оп.пер2 (а сюда сумму по листу1, 100056)
и так далее до конца списка по листу 1.

Заранее благодарен тем кто сможет мне помочь!  
 
Находясь на лист 1 запустите макрос
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim FoundNomer As Range
Dim j As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 With Worksheets("Лист2")
  For i = 2 To iLastRow
    Set FoundNomer = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole)
     If Not FoundNomer Is Nothing Then
       For j = 1 To 10
         If IsEmpty(.Cells(FoundNomer.Row, j + 1)) Or _
                    .Cells(FoundNomer.Row, j + 1) = "00.01.1900" Then
           .Cells(FoundNomer.Row, j + 1) = Date
           .Cells(FoundNomer.Row, j + 11) = Cells(i, "B")
           Exit For
         End If
       Next
     Else
       MsgBox "На листе 'Лист2' нет номера: " & Cells(i, "A")
     End If
  Next
 End With
End Sub
 
Огромное спасибо!!!
Страницы: 1
Наверх