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

For i = 2 To 700
If (Cells(2, 19).Value - Cells(i, 17)) = 1 Then
Rows(i).Copy
Range("A356").Select
ActiveSheet.Paste
End If
Next i

а как вставить в последнюю, помогите
...
Рейтинг: 0 / 0
06.08.2010, 13:31
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779255
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
Внесла некоторые изменения, но копирует только в одну и туже строку

Dim iLastRow As Integer, i As Integer
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

For i = 2 To 700
If (Cells(2, 19).Value - Cells(i, 17)) = 1 Then
Rows(i).Copy
Rows(iLastRow).Select
ActiveSheet.Paste
End If
Next i

что здесь не так
...
Рейтинг: 0 / 0
06.08.2010, 13:37
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779309
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
iLastRow внутрь цикла наверное надо...
...
Рейтинг: 0 / 0
06.08.2010, 13:59
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779337
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
Код: plaintext
If (Cells( 2 ,  19 ).Value - Cells(i,  17 )) =  1  Then Rows(i).Copy Destination:=Range("A" & iLastRow)
меньше строк
...
Рейтинг: 0 / 0
06.08.2010, 14:13
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779361
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
fortik
Код: plaintext
If (Cells( 2 ,  19 ).Value - Cells(i,  17 )) =  1  Then Rows(i).Copy Destination:=Range("A" & iLastRow)
меньше строк

спасибо, получилось
а как в этой вставленной строке изменить дату, которая стоит в третьем столбце, т.е. была например 30.09.2010, нужно 30.10.2010
...
Рейтинг: 0 / 0
06.08.2010, 14:18
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779377
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
может лучше 31.10?
...
Рейтинг: 0 / 0
06.08.2010, 14:25
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779407
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
Код: plaintext
1.
2.
3.
4.
If (Cells( 2 ,  19 ).Value - Cells(i,  17 )) =  1  Then
    d = Range("C" & i).Value
    Range("C" & iLastRow).Value = WorksheetFunction.EoMonth(d,  1 )
End If
как-то так
...
Рейтинг: 0 / 0
06.08.2010, 14:33
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779409
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
fortikможет лучше 31.10?

вобщем-то да итоговый результат нужен последний день следующего месяца
...
Рейтинг: 0 / 0
06.08.2010, 14:34
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779506
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
предложенные варианты работают, но только по отдельности, а мне хотелось бы чтобы нужная строка копировалась вставлялась в первую не заполненную и в этой вставленной менялась дата
...
Рейтинг: 0 / 0
06.08.2010, 15:08
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779512
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
ну т.е. если все вставить в один цикл, то вставляется только дата в первую пустую строку
For i = 2 To 700

If (Cells(2, 19).Value - Cells(i, 17)) = 1 Then Rows(i).Copy Destination:=Range("A" & iLastRow)
d = Range("C" & i).Value
Range("C" & iLastRow).Value = WorksheetFunction.EoMonth(d, 1)
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

Next i
...
Рейтинг: 0 / 0
06.08.2010, 15:09
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779531
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
и как уже было сказано iLastRow в цикл добавить
...
Рейтинг: 0 / 0
06.08.2010, 15:14
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779543
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
ой, не заметил... переместить iLastRow перед копирование даты
...
Рейтинг: 0 / 0
06.08.2010, 15:15
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779549
fortik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fortik
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  2  To  700 
    If (Cells( 2 ,  19 ).Value - Cells(i,  17 )) =  1  Then
        iLastRow = Cells(Rows.Count,  1 ).End(xlUp).Row +  1 
        d = Range("C" & i).Value
        Rows(i).Copy Destination:=Range("A" & iLastRow)
        Range("C" & iLastRow).Value = WorksheetFunction.EoMonth(d,  1 )
    End If
Next i
...
Рейтинг: 0 / 0
06.08.2010, 15:18
| Ответить | Цитировать | Написать  
последнюю заполненную строку
    #36779560
ffflake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ffflake
Гость
fortik
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  2  To  700 
    If (Cells( 2 ,  19 ).Value - Cells(i,  17 )) =  1  Then
        iLastRow = Cells(Rows.Count,  1 ).End(xlUp).Row +  1 
        d = Range("C" & i).Value
        Rows(i).Copy Destination:=Range("A" & iLastRow)
        Range("C" & iLastRow).Value = WorksheetFunction.EoMonth(d,  1 )
    End If
Next i


Спасибо огромнейшее, очень помогли
...
Рейтинг: 0 / 0
06.08.2010, 15:22
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / последнюю заполненную строку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36779531&tid=2177816]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 146ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 206ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


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