Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирует и вставляет данные в 2х местах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Копирует и вставляет данные в 2х местах
Kocc Дата: Вторник, 27.11.2012, 14:45 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Помогите пожалуйста с моей проблемой. Все волосы порвал на себе. Вроде бы легко, а понять не могу. Макрос то сделан, просто где-то он вставляет с пропуском строчки в таблице справа снизу..
Должно быть:
При нажатии кнопки "1 Копировать в класс" копирует данные в таблицу (слева снизу) с пропуском строки, и в таблицу (снизу справа) без пропуска строки.
А что на самом деле:
Всё правильно делает, только в таблицу снизу справа вставляет данные через строку.

Красным отмечено где должны быть данные
К сообщению приложен файл: -3-.xls (98.5 Kb)


Сообщение отредактировал Kocc - Вторник, 27.11.2012, 14:57
 
Ответить
СообщениеПомогите пожалуйста с моей проблемой. Все волосы порвал на себе. Вроде бы легко, а понять не могу. Макрос то сделан, просто где-то он вставляет с пропуском строчки в таблице справа снизу..
Должно быть:
При нажатии кнопки "1 Копировать в класс" копирует данные в таблицу (слева снизу) с пропуском строки, и в таблицу (снизу справа) без пропуска строки.
А что на самом деле:
Всё правильно делает, только в таблицу снизу справа вставляет данные через строку.

Красным отмечено где должны быть данные

Автор - Kocc
Дата добавления - 27.11.2012 в 14:45
Serge_007 Дата: Вторник, 27.11.2012, 23:20 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Code
   Range("A2:I2").Copy Sheets(1).Cells(lt + 2, 13)
[/vba]
в первом модуле замените на
[vba]
Code
   Range("A2:I2").Copy Sheets(1).Cells(lt + 1, 13)
[/vba]
ЗЫ Нафига 11 пустых модулей в проект напихали-то?
Что бы запутать всех?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Code
   Range("A2:I2").Copy Sheets(1).Cells(lt + 2, 13)
[/vba]
в первом модуле замените на
[vba]
Code
   Range("A2:I2").Copy Sheets(1).Cells(lt + 1, 13)
[/vba]
ЗЫ Нафига 11 пустых модулей в проект напихали-то?
Что бы запутать всех?

Автор - Serge_007
Дата добавления - 27.11.2012 в 23:20
Kocc Дата: Среда, 28.11.2012, 09:05 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Нет у меня файл за 500 кб вылезал, сдесь ограничение же 100 кб вот по удалял криво..
 
Ответить
СообщениеНет у меня файл за 500 кб вылезал, сдесь ограничение же 100 кб вот по удалял криво..

Автор - Kocc
Дата добавления - 28.11.2012 в 09:05
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!