вставить данный из другого листа в значениях

[Iskin]

Всем доброго утра!
Во вложение таблица. Ручками заполняется лист "декларация". Надо чтобы данные (через кнопку или при сохранении файла) в значениях копировались на лист "дек", "ин", но только начиная со 2 строки и до строк где эти значения есть. Если копировать лист полностью, то при дальнейшей обработке (в другой программе) появляются строки с нулями.
Смотрел готовые решения, не подходят

[Iskin]

блин извините, тупанул конкретно. можно не отвечать)
Sub макрос1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("дек").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "дек"
Sheets("декларация").Select
Range("A2:T722").Select
' вот тут затык, как Т722 поменять на самую нижнюю строку где есть значения. хотя работе не мешает...
Selection.Copy
Sheets("дек").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub

[Aleksandr H.]

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

до строк где эти значения есть.

как это?
Если на "ДЕКЛАРАЦИЯ" есть 3 записи: смотрим по столбце А, строки 3-5, то их и копируйте, или определитесь какой столбец критерий для подсчета количества строк для копирования

[Iskin]

т.е. до первой пустой строки

[Aleksandr H.]

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

т.е. до первой пустой строки

в соседней же теме

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

для определения занятых строк имеется море способов:

lLastRow = Cells(Rows.Count,1).End(xlUp).Row
lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
LastRow = Worksheets(1).Cells(1, 1).CurrentRegion.Rows.Count

[Iskin]

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

в соседней же теме

Еще бы знать куда это все вставить, с моими познаниями...
Range("A2:T722").Select - не работает на практике, вроде и ячейки пустые, но программа обработки (куда все загружается) видит все 722 строки
Помогите победить пожалуйста. Мой кривой макрос во вложение.

[Aleksandr H.]

Sub макрос1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("дек").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "дек"
' вот тут затык, как Т722 поменять на самую нижнюю строку где есть значения. хотя работе не мешает...
Sheets("декларация").Range("A2:T" & Sheets("декларация").Cells(Sheets("декларация").Rows.Count, 2).End(xlUp).Row).Copy
Sheets("дек").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

[Iskin]

Спасибо! Теперь все загружается как надо. Да и в макросе поменьше мусора стало) Если что-то надо будет растаможить, обращайтесь)

[Aleksandr H.]

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

Если что-то надо будет растаможить

В Татарстане? Пока спасибо, экспансии не планируем

[Iskin]

Александр, а если на листе нет значений, но есть формулы, то как быть при таком переносе? С предыдущим модулем рисует нули...
Кстати, я живу 8-ми подъездном доме, 6 из них заселены украинцами. Сам по национальности казах, жена еврейка. А дом величают - китайским))