Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Переход в макросе на строку ниже
 
#1
11.03.2019 18:03:49
Добрый день!
Задача в том, чтоб макрос искал на листе ячейку с текущей датой, потом выделял ячейку ниже это даты и вставлял туда скопированное значение. Подскажите, пожалуйста, как это сделать?
Код
Dim d As Range
    Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    d.Offset (1)
    ActiveSheet.Paste
 
 
 
#2
11.03.2019 18:09:52
скорее так
Код
Set d = Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False, SearchFormat:=False)
 If Not d Is Nothing Then d.Offset (1).Paste
 
 
 
#3
11.03.2019 18:10:24
Код
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False, SearchFormat:=False).Offset(1).Paste
Изменено: Ігор Гончаренко - 11.03.2019 18:13:45
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
11.03.2019 18:36:28
Не получается( Что я делаю не так?
 
 
 
#5
11.03.2019 18:43:26
возможно Вашего Date нет среди Cells, в которых Вы его ищете
а еще иногда помогает если искать не сам Date, а его значение конвертированное в CDbl(Date)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
11.03.2019 18:49:50
Ігор Гончаренко, объясните, пожалуйста, прям нубу, более человеческим языком) Я просто правда вообще мало что понимаю в vba. На листе есть нужная ячейка и без выбора ячейки ниже, макрос работает, просто вставляет данные прям в саму найденную дату. А проблема в том, что вставлять нужно в ячейку ниже найденной даты(
 
 
 
#7
11.03.2019 19:02:21
в той строке, где Вы корируете значение добавьте:
Код
ХХХ.Copy Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _       
                  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                  MatchCase:=False, SearchFormat:=False).Offset(1)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
11.03.2019 19:11:13
И все равно не получается
 
 
 
#9
11.03.2019 19:18:54
Paste
PasteSpecial (xlPasteAll)
 
 
 
#10
11.03.2019 19:19:07
перестанете прикреплять картинки к сообщениям - получится
Изменено: Ігор Гончаренко - 11.03.2019 19:19:19
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
11.03.2019 19:41:42
RAN, получилось! Огромное спасибо! :)
 
 
 
Страницы: 1
Наверх