Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск новой строки, Спасибо за помощ
 
#1
25.03.2022 11:35:34
Добрый день знатоки Excel Знаю наверника что тот вопрос который задам он точно обсуждался но найти его я не смог.
Вопрос следующего характера. К примеру в начале мы ищем следующею пустую строку ( ячейку)  в столбе А а вот данные ранее скопированы вставлялись в эту пустую строку только не в А столбец а к примеру в B или С.  
 
 
 
#2
25.03.2022 11:44:44
Добрый и Вам. Файл-пример покажите. Что есть и что хотите получить.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
25.03.2022 11:45:47
Код
Sub ВставитьВпустуюСтроку()
    Dim cl As Range
    Set cl = ActiveCell
    ActiveCell.End(xlDown).End(xlUp).Cells(2, 2).Select
    ActiveSheet.Paste
    cl.Select
End Sub
Изменено: МатросНаЗебре - 25.03.2022 11:47:18
 
 
 
#4
25.03.2022 11:49:39
Ок  
 
 
 
#5
25.03.2022 12:04:16
Цитата
написал:
1234567Sub ВставитьВпустуюСтроку()    Dim cl As Range    Set cl = ActiveCell    ActiveCell.End(xlDown).End(xlUp).Cells(2, 2).Select    ActiveSheet.Paste    cl.SelectEnd Sub
Работает но не корректно, не ищет следующею пустую ячейку
 
 
 
#6
25.03.2022 12:05:08
Можно код вставить в книгу для примеру?  
 
 
 
#7
25.03.2022 12:51:32
Ребят может быть я не много запутал, вопрос состоит в том что бы в столбе А нашло следующею пустую ячейку а выбрало ту же строку что и та пустая ячейка только в столбе B.
 
 
 
#8
25.03.2022 12:54:05
Что-то из объяснения нифига не понятно. В примере руками нужный результат сделайте.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#9
25.03.2022 13:02:55
Так думаю будет понятней
 
 
 
#10
25.03.2022 13:07:01
Код
Sub ВставитьВпустуюСтроку()
    Dim cl As Range
    Set cl = ActiveCell
    Cells(Rows.Count, 1).End(xlUp).Cells(2, 2).Select
    ActiveSheet.Paste
    cl.Select
End Sub
 
 
 
#11
25.03.2022 13:11:33
Цитата
написал:
Код ? 1234567Sub ВставитьВпустуюСтроку()    Dim cl As Range    Set cl = ActiveCell    Cells(Rows.Count, 1).End(xlUp).Cells(2, 2).Select    ActiveSheet.Paste    cl.SelectEnd Sub
Больше похоже на правду, а можно сделать по примеру так как я приложил?  
 
 
 
#12
25.03.2022 18:27:13
Неужели такое сложное задание?  
 
 
 
#13
25.03.2022 18:31:40
kristalniy, нет, пример такой тупой. А в гадалку играть желания нет.
 
 
 
Страницы: 1
Наверх