Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных в журнал из книги с заданными ячейками
 
#1
22.10.2013 07:55:38
Доброе утро.
Прошу помощи в создании таблицы.
Отмечаем мышкой ячейку в столбике А например А5 и нажимаем кнопку «Копировать в журнал»
Действия: копируются ячейки, строки 5, в «Журнал Актов» в свободную строку в данном случае В8 и в заданные ячейки.
Скажите, можно ли это сделать?
Спасибо!
 
 
 
#2
22.10.2013 10:03:14
Яна Жилак!
Сделать можно практически все, что "укладывается" в рамки возможностей EXCEL. :D
А Вы пробовали самостоятельно хотя бы что-нибудь?
Например, замечательную функцию ВПР? :)
 
 
 
#3
22.10.2013 10:28:43
В нашем случае подошла бы функция ГПР, но к сожалению не понимаю как ее применить в макросе.
 
 
 
#4
22.10.2013 10:36:23
Какой смысл писать макрос, содержащий ВПР или ГПР?  :D
 
 
 
#5
22.10.2013 10:42:43
Цитата
Какой смысл
Один - "деликатный" намек на готовый макрос.
Вот только не с этого адреса - http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7 ... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#6
23.10.2013 14:28:28
Я попробую перефразировать свой вопрос.
Как можно данные строки, определенного столбца одного листа, перенести на другой,нажав всего одну кнопку в нашем случае она называется "Копировать в журнал"
 
 
 
#7
23.10.2013 14:33:25
Нужно копировать ВСЮ строку?
 
 
 
#8
23.10.2013 14:43:53
Ну вот что за манера - задать вопрос и удрать... Корректируйте:
Код
Sub Макрос1()
    Dim LastRow As Long
    With Sheets("Журнал актов")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy .Cells(LastRow + 1, 2)
    End With
End Sub
 
 
 
#9
23.10.2013 14:46:19
Нет не всю,только заданные ячейки в заданной строке,они отмечены зеленым цветом
 
 
 
#10
23.10.2013 15:11:49
Код
Sub Макрос1()
    Dim LastRow As Long, Rw As Long
    Rw = ActiveCell.Row
    With Sheets("Журнал актов")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        Cells(Rw, 3).Copy .Cells(LastRow + 1, 2)
        Cells(Rw, 6).Copy .Cells(LastRow + 1, 4)
        Cells(Rw, 8).Copy .Cells(LastRow + 1, 7)
    End With
End Sub
 
 
 
#11
23.10.2013 15:20:03
Спасибо,Юрий,все работает!
 
 
 
#12
23.10.2013 16:14:14
Юрий,извините, что повторно обращаюсь, по этой же теме,просто не думала что могут возникнуть проблемы(
Суть проблемы в том,что во всех ячейках стоят формулы,  и данный макрос  копирует формулы , а нужно копировать данные этой ячейки.Скажите можно ли изменить макрос, чтобы копировались данные без формул?
 
 
 
#13
23.10.2013 20:13:53
Код
Sub Макрос1()
    Dim LastRow As Long, Rw As Long
    Rw = ActiveCell.Row
    With Sheets("Журнал актов")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        .Cells(LastRow + 1, 2).Value = Cells(Rw, 3).Value
        .Cells(LastRow + 1, 4).Value = Cells(Rw, 6).Value
        .Cells(LastRow + 1, 7).Value = Cells(Rw, 8).Value
    Sheets("Журнал актов").Select
    End With
End Sub
 
 
 
Страницы: 1
Наверх