Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Копирование и вставка ячеек со сдвигом
 
#1
24.09.2009 08:47:27
Доброго вам суток.  
Подскажите пожалуйста новичку, как правильно написать код чтоб вставлял выделенный диапазон ячеек со сдвигом вниз  
вот мой код:  
If s > 2 Then  
oSheet.Range("A24:M24").Select  
Selection.Copy  
oSheet.Range("A25:M25").Select  
Selection.Paste    
End If
 
 
 
#2
24.09.2009 09:02:55
я немного не понял ваш код, но он не работает(
 
 
 
#3
24.09.2009 09:08:33
У меня имеется таблица, которая автоматически заполняется. Но бывает что строк не хватает. Приходиться от определенных условий добавлять еще строки.  
вот я и хочу диапазон  ("A24:M24") копировался в ("A25:M25" со сдвигом вниз
 
 
 
#4
24.09.2009 09:32:39
ldar, Вы макрорекордером попробуйте.  
Может Вы это хотели получить?  
   Range("A24:M24").Select  
   Selection.Copy  
   Range("A25").Select  
   Selection.Insert Shift:=xlDown
Bite my shiny metal ass!      
 
 
 
#5
24.09.2009 09:55:46
Вот что получается, если нужно выделенный диапазон вставить ниже:  
Sub Макрос1()  
   Selection.Copy  
   ActiveCell.Offset(Selection.Rows.Count, 0).Insert Shift:=xlDown  
End Sub  
С уважением, Александр.
 
 
 
#6
24.09.2009 09:57:55
The_Prist я наверно просто не понимаю немного(  
f s > 2 Then  
oSheet.Range("A24:M24").Select  
oSheet.Selection.Copy oSheet.Selection.Offset(oSheet.Selection.Rows.Count)  
end if  
и ничего не получается(((  
----------------------------------------------------------------------------  
Лузер™!... да да да.то что надо..только почему то не сдвигается все содержимое после строки A25 вниз а копирует в  нее. Может подскажите как вставлять строку между строками((
 
 
 
#7
24.09.2009 10:24:59
все решил проблему!  
вставил строку:  
oSheet.Range("A25").Select  
   Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove  
 
Спасибо!!!
 
 
 
Страницы: 1
Читают тему
Наверх