Изменить часть кода

[СтаСС]

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

With Sheets("FORM-1")
Range(.Range("A" & .Rows.Count).End(x1Up), .Range("WSJ" & Rows.Count).End(x1Up)).Copy
End With

Это почти из серии: не знал, не знал и забыл.. а метод "тыка" увы не помогает..

[Aleksandr H.]

В гугла " vba excel copy entire row" спрашивали ведь?

[СтаСС]

Сообщение от Aleksandr H.

В гугла

Как копировать строку целиком я в общих чертах представляю.. а вот связать с "последней" невыходит... точно так же с заменой на 3-ю снизу... знаю что вроде кудато надо минус 2 впихнуть )) а вот куда...

[Aleksandr H.]

Гугл по запросу "vba excel copy entire last row" ввашпе ничего не говорит?

[СтаСС]

Сообщение от Aleksandr H.

"vba excel copy entire last row"

Такое впечатление что я обратился в гугл переводчик.. и теперь знаю как по-английски звучит моя проблема.. сорри просто вы второй раз отправляете меня в гугл.. поверте я полдня убил прежде чем сюда написать... ну-да ладно проехали..

[IgorGO]

хотите получить ответ на свой вопрос? - потрудитесь описать задачу, которую Вы решаете, а не метод, которым Вы пытаетесь ее решить

[SAS888]

Из Вашего описания не совсем понятно, что требуется. Скопировать только эту строку, или диапазон строк от ячейки "A1" до последней заполненной строки в диапазоне столбцов "A:WSJ"?
1. Для строки:
1.1 Если неизвестно какой из столбцов "длиннее", то можно использовать

With Sheets("FORM-1")
    .[A:WSJ].Find("*", .[A1], , , xlByRows, xlPrevious).EntireRow.Copy
End With

Для третьей с конца строки:

With Sheets("FORM-1")
    .[A:WSJ].Find("*", .[A1], , , xlByRows, xlPrevious).Offset(-2).EntireRow.Copy
End With

1.2 Если последнюю заполненную строку можно определить, например, по последней заполненной ячейке в столбце "A", то так:

Sheets("FORM-1").Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy

Для третьей с конца строки:

Sheets("FORM-1").Cells(Rows.Count, 1).End(xlUp).Offset(-2).EntireRow.Copy

2. Для диапазона ячеек от ячейки "A1" до последней заполненной строки в диапазоне столбцов "A:WSJ"
2.1 Если неизвестно какой из столбцов "длиннее", то можно использовать

With Sheets("FORM-1")
    .Range(.[A1], .Cells(.[A:WSJ].Find("*", .[A1], , , xlByRows, xlPrevious).Row, "WSJ")).Copy
End With

Для третьей с конца строки:

With Sheets("FORM-1")
    .Range(.[A1], .Cells(.[A:WSJ].Find("*", .[A1], , , xlByRows, xlPrevious).Row - 2, "WSJ")).Copy
End With

2.2 Если последнюю заполненную строку можно определить, например, по последней заполненной ячейке в столбце "A", то так:

With Sheets("FORM-1")
    .Range("A1:WSJ" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy
End With

Для третьей с конца строки:

With Sheets("FORM-1")
    .Range("A1:WSJ" & .Cells(Rows.Count, 1).End(xlUp).Row - 2).Copy
End With

[IgorGO]

Сергей, это зачетный пост)))

но судя по молчанию ТС возможны варианты:
1. не угадал ни разу
2. угадал, но ТС еще не проверил рабочую комбинацию
3. ТС в шоке и ответит не скоро
4. жизнь многообразна и полна сюрпризов - можно продолжать генерировать варианты решения

[SAS888]

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

...возможны варианты...

Согласен. Но, невозможно забить гол, если вовсе не бить по воротам. Чем больше вариантов охвачено, тем выше вероятность "гола", при остальных промахах и попаданий в штангу.

[СтаСС]

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

Из Вашего описания

Вот как обычно - хочешь как лучше а получается как всегда...
Понятно что я не "шарю" в макросах и думал что той части кода и моих пояснений достаточно чтоб не забивать людям голову лишним.. оказалось наоборот ((
С екселем я практически вообще не сталкиваюсь но понадобилось изменить пару книг и по мере возможности стараюсь это сделать сам но как видете часто обращаюсь за помощью.. и как оказалось вынуждаю еще и делать людей лишнюю работу.. ((
Вот эти варианты то что мне и надо было:

Sheets("FORM-1").Cells(Rows.Count, 1).End(xlUp).EntireRow.Copy

Sheets("FORM-1").Cells(Rows.Count, 1).End(xlUp).Offset(-2).EntireRow.Copy

Большое Вам спасибо и отдельно спасибо за понимание то что кто-то ничего в екселе не понимает ))