Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование строки (.Paste), ошибка
 
#1
05.04.2014 21:34:19
Здравствуйте. Подскажите что делаю не так?
Код
    Cells(ActiveCell.Row, "A").Select    
    ActiveCell.EntireRow.Select         
    Selection.Copy 
    Sheets("SC2").[A1].Paste
 
 
 
#2
05.04.2014 21:37:23
Метод Paste должен выполняться с ативного листа. А делаете Вы вообще все не так. Проще так:
Код
ActiveCell.EntireRow.Copy Sheets("SC2").[A1]
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
05.04.2014 21:41:23
Не знал. Спасибо. Работает.  
Изменено: cifrus89 - 15.05.2014 19:51:01
 
 
 
#4
16.05.2014 09:36:00
Уважаемые форумчане, помогите пожалуйста,
Смысл задачи:
Есть большой список товара (около 2 тыс.), выделяем ячейку товара и он копирует всю строку в другой лист в 1-ую строку. Потом находим еще один товар, выделяем ячейку и он копирует всю строку в другой листа в следующую пустую строку. И так далее.
Выше смысл задачи был похож, только там заменяла строку в другой листе постоянно, а мне нужно чтобы вставляла в новую строку (примерный код высылаю, но не могу оформить условие пустой строки).
Код
Dim a As Integer
a = 1
Cells(ActiveCell.Row, "A").Select
If Cell.Text = "" Then
    ActiveCell.EntireRow.Copy Sheets("Лист2").Rows(a)
    Else
    a = a + 1
    ActiveCell.EntireRow.Copy Sheets("Лист2").Rows(a)
End If
Заранее спасибо!
 
 
 
#5
16.05.2014 11:06:11
Скопируйте в модуль листа, с которого копируете:
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LastRow As Long
    If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
        With Sheets("Лист2")
            LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
            Rows(Target.Row).Copy .Cells(LastRow + 1, 1)
        End With
    End If
    Cancel = True
End Sub
Копирование будет происходить по двойному клику по ячейке столбца А.
 
 
 
#6
16.05.2014 11:29:04
Юрий М, большое спасибо! Всего доброго!
 
 
 
Страницы: 1
Наверх