2 рабочих кода объединить на одном листе. на одном листе два макроса не работают, 1 формируют инвойс из базы. второй прописывает однотипную информацию. По отдельности работает каждый, Но оба на одном листе не работают. что надо заменить в коде?
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2")) Is Nothing Then
If IsEmpty(Target) Then Range("InvTema").ClearContents: Exit Sub
Dim arr(), arr2()
Dim lr As Long, i As Long
Dim sh As Worksheet, sh2 As Worksheet
Set sh = Worksheets("Hesab-Invoys")
Set sh2 = Worksheets("SATISH")
k = 1
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
arr = sh2.Range("A6:Q" & lr)
x = Application.WorksheetFunction.CountIf(sh2.Columns("H:H"), Range("C2"))
ReDim arr2(1 To x, 2 To 7)
For i = LBound(arr) To UBound(arr)
If arr(i, 8) = Range("C2") Then '
arr2(k, 2) = arr(i, 10)
arr2(k, 3) = arr(i, 11)
arr2(k, 4) = arr(i, 12)
arr2(k, 5) = arr(i, 13)
arr2(k, 6) = arr(i, 14)
arr2(k, 7) = arr(i, 15)
k = k + 1
End If
Next i
Range("InvTema").ClearContents
Range("B14:G" & UBound(arr2) + 13) = arr2
End If
End Sub
Private
Sub Rekvizit()
Dim
iLastRow As Long
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(iLastRow + 7, 2) = "Директор Департамента управления"
Cells(iLastRow + 8, 2) = "собственными активами в РФ ЗАО «…………...»"
Cells(iLastRow + 8, 8) = "/……………………….. /"
Range(Cells(iLastRow + 7, 2), Cells(iLastRow + 8, 8)).Font.Bold = True
Cells(iLastRow + 9, 2) = "на основании доверенности № 21/12 от 01.09.2012"
End
Sub
|
