Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Дублирования данных из одного листа в другой с подчеркиванием
 
Всем привет. Прошу вашей помощи, помогите написать макрос для связи данных из листа 1 с листом 2, но так, чтобы сохранились подчеркивания, где они нужны (чтобы сохранилось исходное форматирование). Пример выделен красным цветом что должно получиться. Помогите, люди добрые.
 
Нужно сохранять все форматирование или только подчеркивание? Перефразирую: есть ли форматирование, которое обязательно НЕ НУЖНО сохранять?
 
Нужно сохранить только подчеркивание, например, "поверки манометра типа 1" (взято из строки тип манометра).
 
Код
Cells(2, 2).Characters(Start:=25, Length:=5).Font.Underline = xlUnderlineStyleSingle
 
Как сделать так, чтобы вставлялись данные из листа ввод в соответствующие поля листа протокол?
 
Код
Sub vvv()
Sheets("2 Протокол").Cells(2, 2) = "поверки манометра типа №" & Sheets("1 Ввод").Cells(4, 3)
Sheets("2 Протокол").Cells(2, 2).Characters(Start:=25, Length:=5).Font.Underline = xlUnderlineStyleSingle
End Sub
 
Все работает, вот только как сделать так, чтобы дата вставилась из листа ввод, так "02" июля 20 20 г.?
 
Вопрос не по теме
Страницы: 1
Читают тему (гостей: 1)
Наверх