Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Автор Тема: Копирование одновременно четырех строк с данными на другой лист в ячейки  (Прочитано 155 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Влад Прошкин

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Здравствуйте. Прошу помощи, так как сам не силен в написании макроса. Задача:  нужно из листа А перенести данные первых четырех строк на лист В в определенные ячейки , потом следующие 4 строки и т.д., а из листа В из этих ячеек вставить данные в форму 5.
На лист А  будут копироваться данные из другой книги в ручную.
Прилагаю два файла один с формой 5 и написанным макросом, который написал сам как-то, но форма 5 не по размерам и нас заставили переделать по стандарту,второй файл так как нужно организации с ячейками в которые нужно закинуть данные и формой 5 на листе С.

макрос для файла "форма 5"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Not Intersect(Target, Columns(9)) Is Nothing Then
      txt = Cells(ActiveCell.Row, 9)    ' Ф.И.О
    strFamily = Split(Application.Trim(txt), " ")(0)
    strName = Split(Application.Trim(txt), " ")(1)
    strSurname = Split(Application.Trim(txt), " ")(2)
     
            Sheets(1).Cells(6, 4) = strFamily
            Sheets(1).Cells(7, 4) = strName
            Sheets(1).Cells(8, 4) = strSurname
   
   rojdat = Cells(ActiveCell.Row, 10)     'год рождения
   
    rchdat = Split(Application.Trim(rojdat), "/")(0)
    rmdat = Split(Application.Trim(rojdat), "/")(1)
    rgdat = Split(Application.Trim(rojdat), "/")(2)
     
            Sheets(1).Cells(11, 3) = rchdat
            Sheets(1).Cells(11, 1) = rmdat
            Sheets(1).Cells(11, 5) = rgdat
           
  pribdat = Cells(ActiveCell.Row, 7)    ' дата прибытия
   
    pchdat = Split(Application.WorksheetFunction.Trim(pribdat), ".")(0)
    pmdat = Split(Application.WorksheetFunction.Trim(pribdat), ".")(1)
    pgdat = Split(Application.WorksheetFunction.Trim(pribdat), ".")(2)
     
            Sheets(1).Cells(41, 1) = pchdat
            Sheets(1).Cells(41, 2) = pmdat
            Sheets(1).Cells(41, 3) = pgdat
           
            Sheets(1).Cells(43, 4) = pchdat
            Sheets(1).Cells(43, 5) = pmdat
            Sheets(1).Cells(43, 6) = pgdat
           
    vyibdat = Cells(ActiveCell.Row, 8)    ' дата выбытия
   
    vchdat = Split(Application.WorksheetFunction.Trim(vyibdat), ".")(0)
    vmdat = Split(Application.WorksheetFunction.Trim(vyibdat), ".")(1)
    vgdat = Split(Application.WorksheetFunction.Trim(vyibdat), ".")(2)
     
            Sheets(1).Cells(41, 4) = vchdat
            Sheets(1).Cells(41, 5) = vmdat
            Sheets(1).Cells(41, 6) = vgdat
 End If
End Sub
« Последнее редактирование: 06.06.2017, 15:35:26 от Влад Прошкин »
Записан

kuklp1

  • Пользователь
  • **
  • Уважение: +5/-0
  • Оффлайн Оффлайн
  • Сообщений: 82

Ни в одном из Ваших файлов нет листов А, В и С и тем более ни в одном нет макроса:
Цитировать
один с формой 5 и написанным макросом
Но время на скачку, открытие файлов и чтение Вашего(бестолкового, согласитесь) описания я уже потерял :(
Записан
Я, как всегда, чертовски адекватен… Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

Влад Прошкин

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

если читать правила, то файлы с макросом нельзя загружать, я же на писал какой макрос нужен для файла "форма 5" просто вставить его и всЁ.
А насчет листов пусть будет так лист1, лист2, лист3 - суть не в этом как они называются
Записан

Влад Прошкин

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

а вот для файла "5" нужен макрос, я уже думаю может с чекбоксами, что-то получится. Куда копать то?
Записан
 



Темы без ответов

17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 29
17.08.2017 08:29 Расчет работы сотрудника после основного рабочего времени 43
13.06.2017 00:27 Сводная таблица: как не вручную отсортировать в опред. порядке (не Custom List) 342
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 727
18.05.2017 15:45 Не работает гиперссылка при копировании. 388
15.03.2017 15:45 автозамена картинок PowerPoint 636
13.03.2017 07:09 Использование базы КЛАДР в exel 955
11.03.2017 13:43 Изменить нумерацию страниц 851
10.03.2017 08:40 Как делать бекапы гугл таблицы? 720
18.02.2017 11:31 Изменить ввод данных помогите...из столбца в таблицу. 933





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.059 секунд. Запросов: 29.