Есть макрос, который собирает, соединяет в ячейки (Cells) данные с ячеек (Cells) другого листа. Помоготи добавить условие для сбора данных при определенном условии. Например, если в ячейке - Cells (m, 3) появляется слово “Допуск”, то в Cells (m, 9) не должны добавлятся данные из Cells(n, 35) и Cells(n, 36), то есть слова “Протокол” и “Постановление”. Помогите, пожалуйста, для меня это сложно!
Код |
---|
While Sheets(baza).Cells(n, 1) <> ""
If Month(Sheets(baza).Cells(n, 2)) = mes Then
For X = 1 To 200
If Sheets(otchet).Cells(9, X) <> "" Or Sheets(otchet).Cells(8, X) <> "" Then
num = Sheets(otchet).Cells(9, X)
Sheets(otchet).Cells(m, X) = Sheets(baza).Cells(n, num)
Sheets(otchet).Cells(m, 3) = Sheets(baza).Cells(n, 6) & " " & Sheets(baza).Cells(n, 7)
Sheets(otchet).Cells(m, 7) = "c " & Sheets(baza).Cells(n, 4) & " по " & Sheets(baza).Cells(n, 2)
Sheets(otchet).Cells(m, 8) = "Акт проверки " & Sheets(baza).Cells(n, 34) & "; Предписание " & Sheets(baza).Cells(n, 33) & " (ПБ-" & Sheets(baza).Cells(n, 67) & ", БЭ-" & Sheets(baza).Cells(n, 68) & ", ЭЭ-" & Sheets(baza).Cells(n, 69) & ", ГТС-" & Sheets(baza).Cells(n, 70) & ")"
Sheets(otchet).Cells(m, 9) = "Протокол " & Sheets(baza).Cells(n, 35) & " (ст." & Sheets(baza).Cells(n, 46) & ", " & Sheets(baza).Cells(n, 45) & ")" & "; Постановление " & Sheets(baza).Cells(n, 36) & " (сумма " & Sheets(baza).Cells(n, 47) & "); " & "Акт осмотра " & Sheets(baza).Cells(n, 38) & ", Разрешение " & Sheets(baza).Cells(n, 39)
End If
Next
m = m + 1
End If |