Здравствуйте. Прошу помощи. Самому мне не написать т к уже за 50 и закончил только школу.
А сейчас появилась такая необходимость. Нашол вот такой макрос он переносит строки
по условию с Листа1 на Лист2 но шапка на Листе2 проподает т к он вставляет с первой строки.
И приходится каждый раз делать шапку. Может можно этот макрос как то подправить.
С уважением
Sub qq()
Dim rng As Range, x: Application.ScreenUpdating = False
x = "True" 'Это,то что будем искать
If Sheets("Лист1").[A:A].Find(x) Is Nothing Then Exit Sub
With Sheets("Лист2")
.Cells.ClearContents
Sheets("Лист1").UsedRange.Copy .[A1]
.[A:A].ColumnDifferences(.[A:A].Find(x)).EntireRow.Delete
End With
End Sub
А сейчас появилась такая необходимость. Нашол вот такой макрос он переносит строки
по условию с Листа1 на Лист2 но шапка на Листе2 проподает т к он вставляет с первой строки.
И приходится каждый раз делать шапку. Может можно этот макрос как то подправить.
С уважением
Sub qq()
Dim rng As Range, x: Application.ScreenUpdating = False
x = "True" 'Это,то что будем искать
If Sheets("Лист1").[A:A].Find(x) Is Nothing Then Exit Sub
With Sheets("Лист2")
.Cells.ClearContents
Sheets("Лист1").UsedRange.Copy .[A1]
.[A:A].ColumnDifferences(.[A:A].Find(x)).EntireRow.Delete
End With
End Sub