Developing.ru

всем привет!!!
помогите пожалуйста решить проблему в написании макроса, ато я мучають два дня а так и ничего не получилось...

вопрос такой...

Есть у меня таблица, которая является копией таблицы в которой сделаны промежуточные итоги.
Нужно чтобы в итогах отображалисть коды и названия самих предметов по которым делаются эти итоги.
Чтобы было понятней прикрепляю примерный файл. Предпологаемый результат закрашен в желтый цвет.

Извините если очень тупо излагаю, и пожалуйста помогите решить если можно....

всем привет!!! свою проблему решил сам...

вот часть макроса отвечающая за выше изложеное задание, может кому пригодится....

Worksheets("R_i").Select
ActiveSheet.Cells(12, 4).Select

nov1 = Trim(ActiveSheet.Range("b12"))
nov2 = Trim(ActiveSheet.Range("c12"))
nov3 = Trim(ActiveSheet.Range("d12"))
i = 12
Do While Not Trim(ActiveSheet.Cells(i, 3)) = Empty
i = i + 1
Loop
j = 12
For j = 12 To i - 1

If Not Trim(ActiveSheet.Cells(j, 4)) = nov3 Then

ActiveSheet.Cells(j, 2).Select
ActiveSheet.Cells(j, 2).FormulaR1C1 = nov1
ActiveSheet.Cells(j, 3).Select
ActiveSheet.Cells(j, 3).FormulaR1C1 = nov2
ActiveSheet.Cells(j, 4).Select
ActiveSheet.Cells(j, 4).FormulaR1C1 = nov3
Rows(ActiveCell.Row).Select
Selection.Font.Bold = True

nov1 = Trim(ActiveSheet.Cells(j + 1, 2))
nov2 = Trim(ActiveSheet.Cells(j + 1, 3))
nov3 = Trim(ActiveSheet.Cells(j + 1, 4))

End If
Next j

Только лишние Select уберите