vkodor

или так (кому как нравится :-)) :


KL
[MVP - Microsoft Excel]

REDSWorksheets("Лист2").Range(Cells(32, 3), Cells(32, 19)) = 3


Пишет ошибку.....что не правильно. подскажите пожалуйста, завтра курсовик сдавать, если не указывать Лист то работает. но проставляет на первом листе. Нужно именно через Cells
1) если не указывать к какому листу принадлежит ранг, и код находится в модуле одного из листов , то по умолчанию ранг берется с листа, которому принадлежит модуль (Me)

2) если не указывать к какому листу принадлежит ранг, и код не находится в модуле одного из листов, то по умолчанию ранг берется с текущего листа (ActiveSheet)

3) в твоем коде лист указан только для объекта Range(...), но не для Cells(32, 3) и не для Cells(32, 19). Таким образом ошибка возникнет при несовпадении Worksheets("Лист2") в первом случае с Me или во втором случае с ActiveSheet

отсюда коды предложенные vkodor и мной

KL
[MVP - Microsoft Excel]