cut paste

[Aqil_f]

Как можно програмно ( или с помощи макроса) выбранного строку удалить из 1-го листа, и эту строку добавить 2-й лист?

[SAS888]

Вобщем случае, т.е. если допускается множественный выбор, допускается выделение как строки, так и ячеек в строке, а также допускаются несвязанные диапазоны, то так:

Dim r As Range: Application.ScreenUpdating = False
For Each r In Selection.Rows
    Rows(r.Row).Copy: Sheets(2).Rows(r.Row).Insert
Next: Selection.EntireRow.Delete

Если случай частный, то макрос можно упростить.

[Aqil_f]

Спасибо, SAS888. Все нормально работает. Но, как можно осуществить добовленние только после последного записа во 2-м листе?

SAS888, если можно отвечайте пожалуйста и в этом вопросе:

Эта команду хочу использувать в макросе: "ActiveSheet.ShowDataForm".

1. Форма открывается, но на форме видно все время данные из 1-го строка. Как можно делать так что на форме видно была данные от выбранного строка в листе?

2. Если сделать общий доступ, кнопка "Добавить" будет не активен. Можно ли решить этот вопрос?

[SAS888]

как можно осуществить добовленние только после последного записа во 2-м листе?

Все зависит от того, что считать последней записью на 2-м листе. Так, например, если требуется переместить выделенные на 1-м листе строки (также, можно выделять не строки целиком, а по 1-й ячейке в требуемой строке) на 2-й лист, после последней заполненной ячейки в столбце "A", то можно так:

Selection.EntireRow.Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Selection.EntireRow.Delete

Т.к. не требуется запоминать номер перемещаемой строки, то можно обойтись без цикла и дополнительной переменной. Если последняя запись на 2-м листе определяется другими критериями - поясните, как мы должны ее идентифицировать.

...если можно отвечайте пожалуйста и в этом вопросе

Вопрос простой. Но ответ будет понятен, если я приведу пример файла. Извините, но у меня нет ни малейшего желания создавать форму самостоятельно, и нет времени взламывать Ваш проект.

[Aqil_f]

Selection.EntireRow.Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Selection.EntireRow.Delete

Спасибо, мне это нужно была.

[Aqil_f]

Selection.EntireRow.Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Selection.EntireRow.Delete

Selection.EntireRow- я так понимаю что это выделенная строка. Это так ли? А если надо будет копировать не выделенный, а следуюший (после выделенный) тогда как нужно будет менять этот код? Я никак не могу.

[SAS888]

Selection.EntireRow - Это диапазон строк, в который входят все выделенные ячейки. Так, например, если выделить ячейки "A1:C3" и "F8", то Selection.EntireRow будет содержать все ячейки в строках 1,2,3 и 8.

А если надо будет копировать не выделенный, а следуюший (после выделенный) тогда как нужно будет менять этот код? Я никак не могу.

Да, код будет другой. Объясните, что Вам нужно. Если, например, пользователь выделил диапазон, содержащий несколько ячеек и строк (при чем, не обязательно связанных), то что нужно?

[alebed]

как ходить по ячейкам было здесь
http://www.programmersforum.ru/showthread.php?t=111241

[Aqil_f]

Сообщение от SAS888

Да, код будет другой. Объясните, что Вам нужно. Если, например, пользователь выделил диапазон, содержащий несколько ячеек и строк (при чем, не обязательно связанных), то что нужно?

На моем примере выделяется только вся строка.
А не так как отдельные ячейки "A1:C3" и "F8" и т.д.,
Иногда приходится не выделенную, а следюшие строку копировать.

[SAS888]

Если выделить одну строку (!), то переместить следующую, после выделенной, строку на 2-й лист после последней записи в столбце "A" можно так:

Selection.Offset(1).Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Selection.Offset(1).Delete