автоматизация, планирование, учет)))

[metrosoul]

Добрый день, уважаемые программисты!
В очередной раз обращаюсь к вам за помощю.
Описание моего вопроса содержится в прилагаемом файле.
Заранее благодарен за ответы!

[EducatedFool]

Нажмите зеленую кнопку:



Вот весь макрос:

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    On Error Resume Next
    For Each cell In Range("a4:a30").SpecialCells(xlCellTypeConstants)
        Set ra = Intersect(cell.EntireRow, Range("i:cw"))
        Err.Clear: cell1 = "": cell2 = ""
        cell1 = ra.Find("*", , , , , xlNext).EntireColumn.Cells(2).MergeArea(1).Text
        cell2 = ra.Find("*", , , , , xlPrevious).EntireColumn.Cells(2).MergeArea(1).Text
        'Debug.Print cell.Row, cell1, cell2
        cell.EntireRow.Cells(102) = cell1: cell.EntireRow.Cells(103) = cell2
    Next cell
End Sub

[metrosoul]

EducatedFool, спасибо за помощь! Но есть одно большое НО! Это "но" я описал в прилагаемом файле!

[metrosoul]

Неужели ни у кого нет ни каких идей?????
ПОМОГИТЕ, ПЛИЗ!!!

[EducatedFool]

Неужели ни у кого нет ни каких идей?????

Идеи есть. Причём множество.

Нет желания делать ВСЮ работу за Вас.
Где ваши наработки?
Что вы делали для того, чтобы подправить макрос под свои требования?
Что конкретно не получается?

[metrosoul]

Сообщение от EducatedFool

Что вы делали для того, чтобы подправить макрос под свои требования?
Что конкретно не получается?

я вообще ноль в макросах!!!!

В Вашем первоначальном файле есть кое какие миусы с точки зрения решения проблемы для меня! Их конкретно я описал в прилагаемом файле в сообзении #3 от 28.02.2010, 15:00.

[metrosoul]

ни кто мне не хочет помочь....