Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Вставка картинок в зависимости от выбранного города
 
, простите за беспокойство, Вы меня спасли. Спасибо, все работает.
Вставка картинок в зависимости от выбранного города
 
,подскажите пожалуйста - как сделать так, чтобы картинки вставлялись как "Графический объект Microsoft Office"?
Вставка картинок в зависимости от выбранного города
 
Спасибо огромное, все работает
Вставка картинок в зависимости от выбранного города
 
Круто, все работает, а можно ли центрировать изображение относительно ячейки?
Вставка картинок в зависимости от выбранного города
 
Всем привет. Помогите макросом сделать действия. Есть таблица, в которой нужно следующее: при выборе города в ячейке D8 на листе "исходные данные", и взависимости от выбранного города, должны вставляться картинки на лист "WORD" в ячейки С6 и N6. Если выбран город Москва, тогда вставляется первая картинка (см. ячейки S2 и S3), и, соответственно, при выборе двух других городов вставляется вторая картинка.
Дублирования данных из одного листа в другой с подчеркиванием
 
Все работает, вот только как сделать так, чтобы дата вставилась из листа ввод, так "02" июля 20 20 г.?
Дублирования данных из одного листа в другой с подчеркиванием
 
Как сделать так, чтобы вставлялись данные из листа ввод в соответствующие поля листа протокол?
Дублирования данных из одного листа в другой с подчеркиванием
 
Нужно сохранить только подчеркивание, например, "поверки манометра типа 1" (взято из строки тип манометра).
Дублирования данных из одного листа в другой с подчеркиванием
 
Всем привет. Прошу вашей помощи, помогите написать макрос для связи данных из листа 1 с листом 2, но так, чтобы сохранились подчеркивания, где они нужны (чтобы сохранилось исходное форматирование). Пример выделен красным цветом что должно получиться. Помогите, люди добрые.
Копирование данных строки на другой лист
 
Код
 Selection.Cut Destination:=Range("A7:N11")

Вот эта строка

Копирование данных строки на другой лист
 
Код
 Sheets("Лист2").Select
    Range("A6:N10").Select
    Selection.Cut Destination:=Range("A7:N11")
    Range("A7:N11").Select
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A5:N5").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D6").Select
    Selection.ClearContents
    Range("M6").Select
    Selection.ClearContents
    Range("N6").Select
    Selection.ClearContents
Изменено: Полиграф Шариков - 12.07.2020 18:26:02
Копирование данных строки на другой лист
 
Цитата
Mershik написал:
Mershik
Строка вставляется на Лист1, на Лист2 перемещалась строка на одну вниз, в пустую строку копировались данные из Лист1.
Копирование данных строки на другой лист
 
Спасибо Вам огромное! Все работает. А можно чтобы на Лист 2 не вставлялась новая строка, а сдвигалась вниз? Простите, просто я только учусь для меня немного сложно.
Копирование данных строки на другой лист
 
Здравствуйте, как правильно написать макрос, если нужно: на "Лист 1", выделив любую ячейку в столбце А (например А6 или А10), при нажатии комбинации клавиш, вставлялась новая строка вниз, копируя данные строки А6 (как в примере или А9 в А10) дублируясь на "Лист2" строка А6 (или А10, или в любой другой ячейке) перемещалась на одну строку вниз, и в пустую ячейку копировались данные из "Лист1" и соответствующие формулы (как в примере). Помогите, люди добрые! Пытался сделать что-нибудь примерное с помощью макрорекордера, ничего не получилось (только учусь). Заранее спасибо.
Страницы: 1
Наверх