Копирование средствами языка VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование средствами языка VBA (Макросы/Sub)

ikovshar91

Дата: Вторник, 29.12.2020, 10:20 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Как в VBA скопировать данные из фиксированных ячеек в указанную строку?

На примере: При нажатии кнопки "Вставить", проверялось дополнительное условие:" Если определенная строчка из столбца (P) не пустая, тогда вставить дату из столбца (Q) и Документ выдачи из столбца V и строка полностью закрасилась зеленым цветом

К сообщению приложен файл: 122344.xlsx (11.2 Kb)

Сообщение отредактировал ikovshar91 - Вторник, 29.12.2020, 10:52

Ответить

китин

Дата: Вторник, 29.12.2020, 10:49 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

ikovshar91, - Прочитайте Правила форума
Особенно п 5g
- использовать при написании постов крупный шрифт (крупнее 12 pt), а так же набирать всё сообщение прописными буквами;
исправляйте

Помогающим просьба воздержаться от ответов в этой теме до исправления замечания
[moder]исправлено[/moder]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

ikovshar91

Дата: Вторник, 29.12.2020, 10:53 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Исправил

Сообщение отредактировал ikovshar91 - Вторник, 29.12.2020, 10:54

Ответить

topgun88

Дата: Вторник, 29.12.2020, 13:47 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

по описанию не понял что в принципе должно вставиться откуда и куда

Ответить

_Igor_61

Дата: Среда, 30.12.2020, 00:16 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 0% ±

Excel 2007

Если дата и документ должны вставляться из "Q1" и "V1" то можно так:
[vba]

Код

Sub qqq()
    Dim r&
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 16) <> "" Then
    Cells(r, 17) = Cells(1, 17)
    Cells(r, 22) = Cells(1, 22)
    Range(Cells(r, 1), Cells(r, 22)).Interior.Color = 5287936
End If
Next r
End Sub

[/vba]

К сообщению приложен файл: ikovshar91.xlsm (20.5 Kb)

Ответить

Копирование средствами языка VBA (Макросы/Sub)

Страница 1 из 1
1