Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Перенос данных в журнал из книги с заданными ячейками
 
Доброе утро.
Прошу помощи в создании таблицы.
Отмечаем мышкой ячейку в столбике А например А5 и нажимаем кнопку «Копировать в журнал»
Действия: копируются ячейки, строки 5, в «Журнал Актов» в свободную строку в данном случае В8 и в заданные ячейки.
Скажите, можно ли это сделать?
Спасибо!
 
Яна Жилак!
Сделать можно практически все, что "укладывается" в рамки возможностей EXCEL. :D
А Вы пробовали самостоятельно хотя бы что-нибудь?
Например, замечательную функцию ВПР? :)
 
В нашем случае подошла бы функция ГПР, но к сожалению не понимаю как ее применить в макросе.
 
Какой смысл писать макрос, содержащий ВПР или ГПР?  :D
 
Цитата
Какой смысл
Один - "деликатный" намек на готовый макрос.
Вот только не с этого адреса - http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7 ... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Я попробую перефразировать свой вопрос.
Как можно данные строки, определенного столбца одного листа, перенести на другой,нажав всего одну кнопку в нашем случае она называется "Копировать в журнал"
 
Нужно копировать ВСЮ строку?
 
Ну вот что за манера - задать вопрос и удрать... Корректируйте:
Код
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
 
Нет не всю,только заданные ячейки в заданной строке,они отмечены зеленым цветом
 
Код
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
 
Спасибо,Юрий,все работает!
 
Юрий,извините, что повторно обращаюсь, по этой же теме,просто не думала что могут возникнуть проблемы(
Суть проблемы в том,что во всех ячейках стоят формулы,  и данный макрос  копирует формулы , а нужно копировать данные этой ячейки.Скажите можно ли изменить макрос, чтобы копировались данные без формул?
 
Код
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
Читают тему (гостей: 1)
Наверх