Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копировать текст и вставить в другую ячейку (в конец), в которой уже есть текст, команды макроса
 
#1
11.09.2020 15:38:03
Уважаемые знатоки, подскажите, пожалуйста, команду макроса, которая будет копировать текст в выделенной ячейке.
А так же команду, которая вставит скопированный текст в другую ячейку, при условии, что она не удалит текст из нее (ячейка не пустая, в ней есть уже информация), а вставит в конец текста, т.е. дополнить информацию в ячейке.  
 
 
 
#2
11.09.2020 15:52:09
Код
целевая_ячейка = целевая_ячейка & ActiveCell
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
11.09.2020 15:53:32
Код
'скопировать текст активной ячейки
str = activecell.value
'переносим текст в ячейку С2
[c2] = [c2] & " " & str
Изменено: New - 11.09.2020 16:57:50
 
 
 
#4
11.09.2020 16:06:28
Огромное спасибо!
Может кто поможет написать макрос такого характера:
Идет поиск по столбцу массива A;D с определенным маркером на столбце D (слово "ошибка"), при его нахождении (к примеру ячейка D5) идет смещение курсора на одну ячейку влево (С5), копируется текст в ячейке, затем курсор перемещается вверх на одну ячейку (С4) и вставляет скопированное в конец имеющегося текста.  
 
 
 
#5
11.09.2020 16:16:11
Цитата
Павел Краснобаев написал:
идет смещение курсора
Цитата
Павел Краснобаев написал:
затем курсор перемещается вверх
а вам точно нужно визуально наблюдать за перемещением курсора? или может вы уже сформулируете ЗАДАЧУ и приложите файл-пример?
Изменено: buchlotnik - 11.09.2020 16:19:17
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#6
11.09.2020 16:32:35
приложил файл с описанием задачи
 
 
 
#7
11.09.2020 16:43:01
строго по описанию
Код
Sub g()
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, 6) = "ошибка" Then Cells(i - 1, 5) = Cells(i - 1, 5) & Cells(i, 5)
    Next
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#8
11.09.2020 17:02:40
buchlotnik - спасибо! Ты сделал мой день!
 
 
 
#9
11.09.2020 17:03:56
По описанию должен быть перенос! :)
 
 
 
#10
11.09.2020 17:05:09
Далее удалить не проблема, такой макрос я могу сам запилить )
 
 
 
Страницы: 1
Наверх