Отправлено: 05.05.23 14:47. Заголовок: Guest пишет: Есть л..
Guest пишет:
цитата:
Есть ли возможность автоматически переносить длинный текст в спецификации Тексель на следующую строку, не внутри ячейки, а именно на следующую строку. Например при копировании с другой таблицы..
Такая задача не стояла. Вручную всегда можно разбить по строкам, а программно у меня вставляются записи уже разнесенные по строкам. Надо подумать. Из какой программы Вы заполняете бланк спецификации? Пишите на brgvl@yandex.ru, если что.
Отправлено: 05.05.23 20:44. Заголовок: Написал на скорую ру..
Написал на скорую руку макрос
Sub Макрос1()
Dim LastRow As Long Dim LastRow2 As Long LastRow = Range("E" & Rows.Count).End(xlUp).Row Range("E" & LastRow).Select Application.CutCopyMode = False Selection.Justify ' Selection.Justify
Dim LastRowE As Long Dim LastRowG As Long Dim Destination As Range
'Найти последнюю заполненную ячейку в столбце E LastRowE = Cells(Rows.Count, "E").End(xlUp).Row
'Найти последнюю заполненную ячейку в столбце G LastRowG = Cells(Rows.Count, "G").End(xlUp).Row
'Сравнить номера строк последних заполненных ячеек If LastRowG > LastRowE Then 'Переместиться на ячейку в столбце E, которая ниже Set Destination = Cells(LastRowG + 1, "E") Else 'Остаться в последней заполненной ячейке столбца E Set Destination = Cells(LastRowE, "E") End If
Destination.Select ActiveCell.Offset(1, 0).Select
End Sub
Например в одной из строк в Наименование было: ШИМ- регулятор RT9624FGQWWDFN8P (арт.02-417-624792)
Все даты в формате GMT
3 час. Хитов сегодня: 9
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет