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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос активной строки на другой лист в разные ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос активной строки на другой лист в разные ячейки (Иное)
Перенос активной строки на другой лист в разные ячейки
natkol Дата: Среда, 07.08.2013, 19:30 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Добрый день ув.программисты!!! Мне необходимо перенести активную строку (или последнюю строку) на другой лист в разные ячейки, возможно? Плииииз!!! Желательно через кнопку. Может кто делал похожий пример???
 
Ответить
СообщениеДобрый день ув.программисты!!! Мне необходимо перенести активную строку (или последнюю строку) на другой лист в разные ячейки, возможно? Плииииз!!! Желательно через кнопку. Может кто делал похожий пример???
Автор - natkol
Дата добавления - 07.08.2013 в 19:30
KuklP Дата: Среда, 07.08.2013, 21:53 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Пока тему не закрыли... Возможно.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПока тему не закрыли... Возможно.
Автор - KuklP
Дата добавления - 07.08.2013 в 21:53
RAN Дата: Среда, 07.08.2013, 23:52 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Кто скажет что это девочка, пусть первый бросит в меня камень.(с)
И активная ячейка, и перенос, и разные ячейки, и кнопка. :)
И работает! :D
[vba]
Код
Sub qq()
     Dim rowc&, colc&, i&, r As Range
     For i = 1 To Columns.Count    'In r
         Randomize
         rowc = Int((Rows.Count * Rnd) + 1)
         colc = Int((Columns.Count * Rnd) + 1)
         Sheets(2).Cells(rowc, colc).Formula = Cells(ActiveCell.Row, i).Formula
     Next
End Sub
[/vba]
К сообщению приложен файл: 4458815.xlsm (99.3 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКто скажет что это девочка, пусть первый бросит в меня камень.(с)
И активная ячейка, и перенос, и разные ячейки, и кнопка. :)
И работает! :D
[vba]
Код
Sub qq()
     Dim rowc&, colc&, i&, r As Range
     For i = 1 To Columns.Count    'In r
         Randomize
         rowc = Int((Rows.Count * Rnd) + 1)
         colc = Int((Columns.Count * Rnd) + 1)
         Sheets(2).Cells(rowc, colc).Formula = Cells(ActiveCell.Row, i).Formula
     Next
End Sub
[/vba]
Автор - RAN
Дата добавления - 07.08.2013 в 23:52
natkol Дата: Четверг, 08.08.2013, 22:25 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

RAN, у вас получилось, или я что-то не поняла? У меня почему-то не работает, :'( Я оооочень жду Вашей помощи!!!! Ну или хотя бы мысль, как можно сделать перенос!!!
 
Ответить
СообщениеRAN, у вас получилось, или я что-то не поняла? У меня почему-то не работает, :'( Я оооочень жду Вашей помощи!!!! Ну или хотя бы мысль, как можно сделать перенос!!!
Автор - natkol
Дата добавления - 08.08.2013 в 22:25
ShAM Дата: Пятница, 09.08.2013, 04:19 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата (natkol, 08.08.2013 в 22:25, в сообщении №4)
Ну или хотя бы мысль

Мысль - это, пожалуйста:
Читаем Правила, прикладываем файл!

ЗЫ: У RAN действительно получилось. Все, как Вы и хотели в посте №1. Только кидает не знамо что, не знамо куда :D


Сообщение отредактировал ShAM - Пятница, 09.08.2013, 04:23
 
Ответить
Сообщение
Цитата (natkol, 08.08.2013 в 22:25, в сообщении №4)
Ну или хотя бы мысль

Мысль - это, пожалуйста:
Читаем Правила, прикладываем файл!

ЗЫ: У RAN действительно получилось. Все, как Вы и хотели в посте №1. Только кидает не знамо что, не знамо куда :D
Автор - ShAM
Дата добавления - 09.08.2013 в 04:19
RAN Дата: Понедельник, 12.08.2013, 20:03 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
ShAM,
зачем обижать? ;)
Незнамо куда - это есть, но почему незнамо что? B)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеShAM,
зачем обижать? ;)
Незнамо куда - это есть, но почему незнамо что? B)
Автор - RAN
Дата добавления - 12.08.2013 в 20:03
Hugo Дата: Понедельник, 12.08.2013, 23:16 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3716
Репутация: 795 ±
Замечаний: 0% ±

365
А где перенос? Нету...
Копирование вижу :)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеА где перенос? Нету...
Копирование вижу :)
Автор - Hugo
Дата добавления - 12.08.2013 в 23:16
RAN Дата: Понедельник, 12.08.2013, 23:20 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Заполучи! :)
[vba]
Код
Cells(ActiveCell.Row, i).Formula = ""
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЗаполучи! :)
[vba]
Код
Cells(ActiveCell.Row, i).Formula = ""
[/vba]
Автор - RAN
Дата добавления - 12.08.2013 в 23:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос активной строки на другой лист в разные ячейки (Иное)
  • Страница 1 из 1
  • 1
Поиск:

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