Всем привет! Не могу создать макрос переноса со смещением. Т.е. имеется файл с макросом переноса данных с листа ЧН на ЛМ для первого числа. Чтобы не расписывать так на каждую дату, нужен макрос циклического переноса со смещением. Копировать со смещением на +1 с ЧН, вставить со смещением на +2 в ЛМ
Всем привет! Не могу создать макрос переноса со смещением. Т.е. имеется файл с макросом переноса данных с листа ЧН на ЛМ для первого числа. Чтобы не расписывать так на каждую дату, нужен макрос циклического переноса со смещением. Копировать со смещением на +1 с ЧН, вставить со смещением на +2 в ЛМазик
еще один момент, а если заполнение ограничить датой, макрос не сильно усложниться? Например в ячейке А1 листа ЛМ стоит дата(например 10.04.2016) и заполнение идет с 1го по 10
еще один момент, а если заполнение ограничить датой, макрос не сильно усложниться? Например в ячейке А1 листа ЛМ стоит дата(например 10.04.2016) и заполнение идет с 1го по 10азик
Sub param_pa_pam() For i = 0 To 30 ' Вот здесь заполнение ограничено 31м столбиком (считая 5-й за 0 ) ' вместо 30 поставь что надо, ' или переменную введи и присваивай ей нужное значение yabloko = Workbooks("Список.xlsm").Sheets("ЧН").Cells(8, 5 + i) grusha = Workbooks("Список.xlsm").Sheets("ЧН").Cells(10, 5 + i) Workbooks("Список.xlsm").Sheets("ЛМ").Cells(9, 5 + 2 * i).Value = yabloko Workbooks("Список.xlsm").Sheets("ЛМ").Cells(8, 5 + 2 * i).Value = grusha
Sub param_pa_pam() For i = 0 To 30 ' Вот здесь заполнение ограничено 31м столбиком (считая 5-й за 0 ) ' вместо 30 поставь что надо, ' или переменную введи и присваивай ей нужное значение yabloko = Workbooks("Список.xlsm").Sheets("ЧН").Cells(8, 5 + i) grusha = Workbooks("Список.xlsm").Sheets("ЧН").Cells(10, 5 + i) Workbooks("Список.xlsm").Sheets("ЛМ").Cells(9, 5 + 2 * i).Value = yabloko Workbooks("Список.xlsm").Sheets("ЛМ").Cells(8, 5 + 2 * i).Value = grusha