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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка значений с позиционированием - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка значений с позиционированием (Макросы/Sub)
Вставка значений с позиционированием
Tina90 Дата: Среда, 25.05.2016, 22:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
добрый ночер!! люди, как правильно написать вот такое??
[vba]
Код

Sub CD6()
Range("J7:V329").Copy Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1)
'чтоб вставлялось на определенную позицию НО!! только как внизу одни значения!
Range("J7:V329").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'зы второй макрорекордерский и вставляет значения , а первый вставляет позицию НО не вставляет значения ячеек а их содержимое (а мне так не нужно! мне нужно вставлять в позицию значения!)

End Sub
[/vba]
 
Ответить
Сообщениедобрый ночер!! люди, как правильно написать вот такое??
[vba]
Код

Sub CD6()
Range("J7:V329").Copy Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1)
'чтоб вставлялось на определенную позицию НО!! только как внизу одни значения!
Range("J7:V329").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'зы второй макрорекордерский и вставляет значения , а первый вставляет позицию НО не вставляет значения ячеек а их содержимое (а мне так не нужно! мне нужно вставлять в позицию значения!)

End Sub
[/vba]

Автор - Tina90
Дата добавления - 25.05.2016 в 22:41
Manyasha Дата: Среда, 25.05.2016, 22:52 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1721
Репутация: 722 ±
Замечаний: 0% ±

Excel 2007, 2010
Tina90, так хотите?
[vba]
Код
Sub CD6()
Set rng = Range("J7:V329")
Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
End Sub
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеTina90, так хотите?
[vba]
Код
Sub CD6()
Set rng = Range("J7:V329")
Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 25.05.2016 в 22:52
Tina90 Дата: Среда, 25.05.2016, 22:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 45
Репутация: -16 ±
Замечаний: 60% ±

Excel 2013
так хотите?

Маняша , спасибищеее! хочу именно так!! hands
 
Ответить
Сообщение
так хотите?

Маняша , спасибищеее! хочу именно так!! hands

Автор - Tina90
Дата добавления - 25.05.2016 в 22:58
SLAVICK Дата: Среда, 25.05.2016, 23:00 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 650 ±
Замечаний: 0% ±

2007,2010,2013,2016
Можно так:
[vba]
Код
Sub CD6()
Range("J7:V329").Copy
Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно так:
[vba]
Код
Sub CD6()
Range("J7:V329").Copy
Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 25.05.2016 в 23:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка значений с позиционированием (Макросы/Sub)
Страница 1 из 11
Поиск:

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