SOlsПОдскажите пожалуйста,как сделать следущее:
имеется 4 листа в excel. На первый выводятся абсолютно все данные,этот лист скрыт.
С него подхватываются значения на три листа по своей классификации. Заполнение идет последовательно-сначала 2 лист подхватывает нужные ячейки с 1листа,потом 3 и 4ый. Местонахождение последней ячейки,которая заполняется на 4 листе известно.
Как сделать так,чтобы при условии,что эта ячейка не пуста(то есть формирование листов закончено),выходил,к примеру, 5 лист (1 ячейка на нем),где написано сообщение типа "Можно редактировать"
а как это узнать , если последняя ячейка не известна?

SOlsВОт именно...последняя,которая тянется с 1го листа известна и она всегда будет заполненной-либо 0 либо число.
Местоположение известно

ну если известно то с помощью функции if
на последнем листе в ячейке ставишь = жмешь на фнкуцию , выбираешь функц. If , первыая ссылка на ту ячейку , а условие if =0 тогда там тру, не равно 0 then ne try

можно макросом vba ток его каждый раз запускать надо будет (хотя макросы же на хоткеи ставить можно


sub redaktor
worksheet("nazvanie").activate
cells(4,4).value=x 'последняя ячейка
worksheet("pyatuilist").activate
if x = 0 then
msgbox("Можно редактировать") 'ну эт чтоб табличка выдавалсь, можно поставить
' cells(2,2).value = "можно редактировать"
else
msgbox("не готово")
end if

end sub

да нп, кстати сорьки там не worksheets , a Sheets("nazvanielistavashego") лучше написать :)

SOlsчто значит cells(4,4).value???
(4,4)это координаты ячейки? то есть столбец B будет 2,
если мне нужно условие,что при появлении в ячейки В55 значения, то прописывать нужно
cells(2,55)???
cells(4,4) это четвертая строка четвертый столбец (ну я просто для примера дал) тоесть будет D4

да, надо прописывать cells(2,55)

SOlsи вообще,можно ли как-нибудь скрыть процесс заполнения ячеек, а после того,как к примеру В55 заполнилась,то выходит на первый план 5страница, состоящая из 1 колонки,1 столбца,в котором написано к примеру "можно редактировать"
а они заполняются тоже с помощью макроса вба ? если да , то в начале просто после sub .. напиши строчку

Application.ScreenUpdating = False
и перед
end sub

Sheets("sheet4").Activate
x = Cells(2, 55).Value 'B55
If x <> 0 Then
Sheets("sheet5").Activate
Cells(1, 1).Value = "Можно Редактировать"
End If
Application.ScreenUpdating = True

а по поводу того что один столбец... ну .. мб это в ручнуюю можно? растянуть его ..