SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Sub ZP_and_Hour_to_CommonList()
' !! Внимание! Все три нижеуказанных листа должны существовать в книге!
Set w1 = ThisWorkbook.Worksheets("ЗП")
Set w2 = ThisWorkbook.Worksheets("КолЧас")
Set w3 = ThisWorkbook.Worksheets("Общая")
ZpMaxColumn = 3 ' сколько столбцов переносить с листа "ЗП" в "Общая"
' Очищаем полностью лист "Общая"
w3.UsedRange.ClearContents
Row1 = w1.UsedRange.Row
Row2 = Row1 + w1.UsedRange.Rows.Count
KhourRow1 = w2.UsedRange.Row
KhourRow2 = KhourRow1 + w2.UsedRange.Rows.Count
'начинаем перенос данных из "ЗП" -> "Общая"
For k = Row1 To Row2
For i = 1 To ZpMaxColumn
w3.Cells(k, i).Value = w1.Cells(k, i).Value
Next i
' для поиска берём первые два столбца из w1
F1 = w1.Cells(k, 1).Value
F2 = w1.Cells(k, 2).Value
' поиск кол-ва часов в листе "КолЧас" по F1/F2
For r = KhourRow1 To KhourRow2
found = False
If (F1 = w2.Cells(r, 1).Value) And (F2 = w2.Cells(r, 2).Value) Then
found = True
Exit For
End If
Next r
If found Then
w3.Cells(k, ZpMaxColumn + 1).Value = w2.Cells(r, 3).Value
Else
w3.Cells(k, ZpMaxColumn + 1).Value = "#Кол.часов не найдено!"
End If
Next k
End Sub
|
|
