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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос. Добавление данных из другого листа. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос. Добавление данных из другого листа. (Макросы/Sub)
Макрос. Добавление данных из другого листа.
Ponka Дата: Среда, 21.05.2014, 14:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, гуру Excel!
Прошу помощи :'(

Мне нужно из листа "база" столбец К в лист "месяц" столбец В поставить (подтянуть, скопировать) данные, так что бы макрос определял диапазон данных и копировал их без пустых строк.
Диапазон данных может меняться от 600 до 1500 строк.
Заранее, спасибо за помощь!!!!
К сообщению приложен файл: 1638660.xlsx (53.0 Kb)
 
Ответить
СообщениеДобрый день, гуру Excel!
Прошу помощи :'(

Мне нужно из листа "база" столбец К в лист "месяц" столбец В поставить (подтянуть, скопировать) данные, так что бы макрос определял диапазон данных и копировал их без пустых строк.
Диапазон данных может меняться от 600 до 1500 строк.
Заранее, спасибо за помощь!!!!

Автор - Ponka
Дата добавления - 21.05.2014 в 14:40
Hugo Дата: Среда, 21.05.2014, 16:40 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
[vba]
Код
Sub tt()
        Dim ra As Range
        With Sheets("база")
            Set ra = .Range(.[K13], .Range("K" & .Rows.Count).End(xlUp))
        End With
        ra.SpecialCells(xlCellTypeConstants).Copy Sheets("месяц").[b2]
End Sub
[/vba]
крч:
[vba]
Код
Sub tt()
      With Sheets("база")
           .Range(.[K13], .Range("K" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy Sheets("месяц").[b2]
      End With
End Sub
[/vba]


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
Сообщение[vba]
Код
Sub tt()
        Dim ra As Range
        With Sheets("база")
            Set ra = .Range(.[K13], .Range("K" & .Rows.Count).End(xlUp))
        End With
        ra.SpecialCells(xlCellTypeConstants).Copy Sheets("месяц").[b2]
End Sub
[/vba]
крч:
[vba]
Код
Sub tt()
      With Sheets("база")
           .Range(.[K13], .Range("K" & .Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy Sheets("месяц").[b2]
      End With
End Sub
[/vba]

Автор - Hugo
Дата добавления - 21.05.2014 в 16:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос. Добавление данных из другого листа. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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