ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление новой строки
15 сообщений из 15, страница 1 из 1
Добавление новой строки
    #37150329
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
Добрый день, уважаемые.

Ситуация следующая:
Существует книга Excel2003, c двумя листами, после выделения строки (произвольной) на первом листе,
мне надо её удалить из первого листа и вставить во второй лист, но в качестве новой строки, не трогая
данных которые там уже есть.

Пробовал сам записать макрос, но он у меня не добавляет новую строку, а заменяет старую.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Sheets("Лист2").Select
ActiveSheet.Paste
Sheets("Лист1").Select
Selection.Delete Shift:=xlUp

Подскажите, как можно реализовать?
Буду очень благодарен, в любом случае, ну а если с примером, сильнее.
...
Рейтинг: 0 / 0
05.03.2011, 09:25
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37150419
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Выбираете любую ячейку в строке, и...
Код: plaintext
1.
    ActiveCell.EntireRow.Copy (Sheets("Лист2").UsedRange.End(xlDown).Offset( 1 ,  0 ))
    ActiveCell.EntireRow.Delete (xlUp)
...
Рейтинг: 0 / 0
05.03.2011, 10:02
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37150492
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
AndreTM, спасибо большое, все отлично.
Заказывай поощрение (в пределах разумного)
...
Рейтинг: 0 / 0
05.03.2011, 10:34
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37150525
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
?AndreTM, спасибо большое, все отлично.
Заказывай поощрение (в пределах разумного)

Извиняюсь, поторопился.
Что-то не корректно работает.
С листа1 удалет всегда, а на лист2 вставлет нормально,
но иногда проскакивает вставка не новой записи а вместо существующей.
...
Рейтинг: 0 / 0
05.03.2011, 10:49
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37150675
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
?, я бы чуть усложнил на случай , если на листе 2 менее 2х записей(одна или ниодной)

Sub ddd()
On Error GoTo er
ActiveCell.EntireRow.Copy (Sheets("Лист2").UsedRange.End(xlDown).Offset(1))
ActiveCell.EntireRow.Delete (xlUp)
Exit Sub
er: ActiveCell.EntireRow.Copy (Sheets("Лист2").UsedRange.Offset(1))
End Sub


ну а почему иногда заменяет - надо смотреть на ваши записи..

скорее всего первая ячейка в какой то строке пустая, вот оно и принимает ее за конец записей
...
Рейтинг: 0 / 0
05.03.2011, 12:14
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37150691
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
_slan_, спасибо большое, Вы были правы, действительно была проблема из-за пустых ячеек в начале строки.

?AndreTM, спасибо большое, все отлично.
Заказывай поощрение (в пределах разумного)
Предложение снова в силе.

_slan_ и AndreTM, спасибо еще раз.

Вопрос снят окончаиельно, проблема решена.
...
Рейтинг: 0 / 0
05.03.2011, 12:23
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37155850
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
Еще раз добрый день, уважаемые!
Снова к Вам за помощью.
Мне требуется реализовать приблизительно тоже самое, что и было описано выше, но

Курсор находится в определенной строке, после нажатия кнопки, надо скопировать эту строку, на другой лист, в конец диапазона строк и на этот же лист в конец диапазона строк, при этом удалить строку, в которой находился курсор и переместить курсор на последнюю строку этого же листа, т.е. на вновь скопированную строку.

Заранее спасибо.
...
Рейтинг: 0 / 0
09.03.2011, 16:09
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37155942
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Замените в коде Copy на Cut
...
Рейтинг: 0 / 0
09.03.2011, 16:43
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37155950
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Что-то я не совсем суть уловил, но наверное так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub ddd()
with ActiveCell.EntireRow
.Copy (ActiveSheet.UsedRange.End(xlDown).Offset( 1 ))
.Copy (Sheets("Лист2").UsedRange.End(xlDown).Offset( 1 ))
.Delete (xlUp)
End with
ActiveSheet.UsedRange.End(xlDown).Select
End Sub
...
Рейтинг: 0 / 0
09.03.2011, 16:48
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37156003
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
The_PristЧто-то я не совсем суть уловил, но наверное так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub ddd()
with ActiveCell.EntireRow
.Copy (ActiveSheet.UsedRange.End(xlDown).Offset( 1 ))
.Copy (Sheets("Лист2").UsedRange.End(xlDown).Offset( 1 ))
.Delete (xlUp)
End with
ActiveSheet.UsedRange.End(xlDown).Select
End Sub

Все отлично, ни чего не работает.

запись копируется на другой лист, но не копируется также на этом же листе
и курсор становится не в последнюю строку, а в первую в первый столбец.

Вы уж меня простите, но я мало (чуть-чуть) в этом понимаю. Помогите.
...
Рейтинг: 0 / 0
09.03.2011, 17:14
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37156017
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
?апись копируется на другой лист, но не копируется также на этом же листе
и курсор становится не в последнюю строку, а в первую в первый столбец.Было бы неплохо увидеть файл, чтобы понять причину. Если у Вас на обоих листа кол-во заполненных строк можно вычислить по столбцу А(реально любой столбец можно подставить), то можно попробовать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub ddd()
with ActiveCell.EntireRow
.Copy (Cells(rows.count,"A").End(xlUp).Offset( 1 ))
.Copy (Sheets("Лист2").Cells(Sheets("Лист2").rows.count,"A").End(xlUp).Offset( 1 ))
.Delete (xlUp)
End with
Cells(rows.count,"A").End(xlUp).Select
End Sub
...
Рейтинг: 0 / 0
09.03.2011, 17:23
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37156038
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
?,
?запись копируется на другой лист, но не копируется также на этом же листе
и курсор становится не в последнюю строку, а в первую в первый столбец.
ИМХО, строка копируется, становится активной и удаляется
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub ddd()
dim k&
k = ActiveCell.Row
with ActiveCell.EntireRow
.Copy (ActiveSheet.UsedRange.End(xlDown).Offset( 1 ))
.Copy (Sheets("Лист2").UsedRange.End(xlDown).Offset( 1 ))
'.Delete (xlUp)
End with
ActiveSheet.Rows(k).Delete
ActiveSheet.UsedRange.End(xlDown).Select
End Sub
...
Рейтинг: 0 / 0
09.03.2011, 17:30
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37156042
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
The_Prist , шама-ан.
Все отлично, работает, именно то что нужно.
Спасибо большо-ое.
...
Рейтинг: 0 / 0
09.03.2011, 17:32
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37156075
?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?
Гость
Всем спасибо.
Последнее предложение The_Prist, наиболее подходит.
пробуй камнем, все происходит тоже самое как и первое предложение The_Prist (не работает), но все равно спасибо.
...
Рейтинг: 0 / 0
09.03.2011, 17:44
| Ответить | Цитировать | Написать  
Добавление новой строки
    #37160627
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Именно поэтому я предпочитаю (прости, Shamanus!) использовать никак не .EntireXXX и .UsedRange, а обычную (СУБД) нумерацию по одному из столбцов первичным ключом и далее... далее хоть бинарным поиском, хоть взятием максимума из справочника...
...
Рейтинг: 0 / 0
11.03.2011, 23:20
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление новой строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37156042&tid=2177095]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 179ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 252ms
total:  548ms
созд. / загр.: 548ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]