Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.10.2007, 13:02   #1
Dr.Alex
Новичок
Джуниор
 
Регистрация: 29.10.2007
Сообщений: 2
По умолчанию в 1 книге копируется значение ячейки, номер которой каждый раз увеличивается на 1...

Уважаемы спецы пожалуйста помогите решить мою проблему с помощью макросов , думаю она не покажется для вас сложной. Имеется две книги в первой один лист , во второй 255 листов , необходимо взять с первой книги значение , к примеру ячейки A1 и вставить в ячейку А5 второй книги на первый листок , затем взять с первой книги значение A2 и вставить в ячейку А5 второй книги на второй лист. Другими словами в первой книге копируется значение ячейки , номер которой каждый раз увеличивается на единицу , а во второй книге номер ячейки остаётся прежни но каждый раз увеличивается на единицу номер листа. Заранее спасибо всем откликнувшимся.
Dr.Alex вне форума
Старый 29.10.2007, 20:10   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Код:
Private Sub Test()
    Dim iCell As Range, iList As Worksheet
    Set iCell = Workbooks("Книга1.xls").Worksheets(1).Range("A1")
    For Each iList In Workbooks("Книга2.xls").Worksheets
        'Укажите имена нужных рабочих книг
        iList.Range("A5") = iCell.Item(iList.Index)
        'Ячейка + лист не должна быть защищена
    Next
End Sub
Код:
Private Sub Test2()
    With Workbooks("Книга2.xls").Worksheets
         For iCount& = 1 To .Count
             .Item(iCount&).Cells(5, 1) = _
             Workbooks("Книга1.xls").Worksheets(1).Cells(iCount&, 1)
         Next
    End With
End Sub
pashulka вне форума
Старый 29.10.2007, 20:29   #3
Dr.Alex
Новичок
Джуниор
 
Регистрация: 29.10.2007
Сообщений: 2
По умолчанию

Ура получилось , огромное спасибо pashulka!!!!!!!!!!!!!!!!!!!!!!
Dr.Alex вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
с помощью макроса скопировать значение всей строки(не одной ячейки, а нескольких) global Microsoft Office Excel 6 27.11.2008 17:43
Вставить значение ячейки в формулу jungo Microsoft Office Excel 2 12.08.2008 15:32
Как определить номер строки верхней левой ячейки диапазона Porog Microsoft Office Excel 8 09.05.2008 08:37
Паскаль. Определить номер позиции,в которой символы отличаются Stelix Помощь студентам 6 06.11.2007 16:53