VBA код. Очистка листа и сортировка.

[riniks17]

Здравствуйте уважаемые гуру.
Написал код. надо перед новым запуском программы очистить все записи. Сначала записал перед циклом "Сlear", но убирает и шапку и форматы дат. ClearContens лучше, но зачем чистить весь лист? Когда нужно только записи и шапку оставить. Можно, конечно перед циклом после очистки записать шапку, но как то непрофессионально. И ещё. Надо отфильтровать лист по датам по столбцу "Н". Чё то я затупил. И макрорекодером записывал, и код уважаемого EducatedFool пробовал. Не катит. Если сортирую в листе, первый столбец № по порядку сбивается.Вобщем я в панике. Помогите начинающему самоучке.

Private Sub Start_Click()
Dim sData As Date
sData = Now()
Dim iArhRow As Integer
iArhRow = 2
Dim wsArh As Worksheet
Set wsArh = Worksheets("Àðõèâ")
Dim wsPr As Worksheet
Set wsPr = Worksheets("Ïðèñóòñòâóþùèå")
Dim wsDep As Worksheet
Set wsDep = Worksheets("Ãðàôèê îòúåçäîâ")
Dim wsArr As Worksheet
Set wsArr = Worksheets("Ãðàôèê ïðèåçäîâ")
Dim iPrRow As Integer
iPrRow = 2
wsPr.Cells.ClearContents
Do While Cells(iArhRow, 9) <> ""
If Cells(iArhRow, 9) <= sData And Cells(iArhRow, 10) > sData Or Cells(iArhRow, 10) = "" Then

wsPr.Cells(iPrRow, 2) = wsArh.Cells(iArhRow, 2)
wsPr.Cells(iPrRow, 3) = wsArh.Cells(iArhRow, 3)
wsPr.Cells(iPrRow, 4) = wsArh.Cells(iArhRow, 5)
wsPr.Cells(iPrRow, 5) = wsArh.Cells(iArhRow, 6)
wsPr.Cells(iPrRow, 7) = wsArh.Cells(iArhRow, 9)
wsPr.Cells(iPrRow, 8) = wsArh.Cells(iArhRow, 10)
wsPr.Cells(iPrRow, 1) = iPrRow - 1
iPrRow = iPrRow + 1

End If

iArhRow = iArhRow + 1

Loop

'wsPr.Range("B2:H11000").Sort wsPr.Range("H2:Н1000"), xlAscending

End Sub

[DiemonStar]

например, для удаления данных со второй строки подойдёт такой код:

Range([A2], Cells(Rows.Count, 1).End(xlUp)).EntireRow.ClearContents

[riniks17]

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

например, для удаления данных со второй строки подойдёт такой код:

Range([A2], Cells(Rows.Count, 1).End(xlUp)).EntireRow.ClearContents

wsPr.Range([A2], Cells(Rows.Count, 1).End(xlUp)).EntireRow.ClearConten ts

Не работает

[DiemonStar]

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

wsPr.Range([A2], Cells(Rows.Count, 1).End(xlUp)).EntireRow.ClearConten ts

Не работает

wsPr.Range(wsPr.[A2], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.ClearContents

А если попробовать так?

[riniks17]

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

wsPr.Range(wsPr.[A2], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.ClearContents

А если попробовать так?

Поклон. Ща плюсану....

[riniks17]

С сортировкой по столбцу "Н" кто-нить могёт помочь? Начиная со второй строки.

[DiemonStar]

wsPr.Range(wsPr.[H2], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.Sort  Key1:=wsPr.[H1], Order1:=xlAscending, Header:=xlYes

всё примерно так же)

[riniks17]

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

wsPr.Range(wsPr.[H2], wsPr.Cells(wsPr.Rows.Count, 1).End(xlUp)).EntireRow.Sort  Key1:=wsPr.[H1], Order1:=xlAscending, Header:=xlYes

всё примерно так же)

Полтергейст. Вчера вечер убил. И писал то же самое (почти ). А сегодня Ваш код вставил и всё заработало. Только Range(wsPr.[H2], wsPr.Cells(wsPr.Rows.Count, 1).сюда Н1 вставил. А то код вторую строчку за Header считал. И всё заработало. А где хоть плюсануть Вас можно, уважаемый?

[DiemonStar]

А где хоть плюсануть Вас можно, уважаемый?

Слева весы есть в каждом сообщении.

[riniks17]

Ыщо одна задача. Хочу, что в код вставить формулу для определения номера недель. Просто вставить в код, получается.
wsPr.Range("I2").FormulaLocal = "=Номнедели(G2;21)"
а вставляю в цикл, ругаеццо.
Do While Cells(iArhRow, 9) <> ""
If Cells(iArhRow, 9) <= sData And Cells(iArhRow, 10) >= sData Or Cells(iArhRow, 10) = "" Then

wsPr.Cells(iPrRow, 2) = wsArh.Cells(iArhRow, 2)
wsPr.Cells(iPrRow, 3) = wsArh.Cells(iArhRow, 3)
wsPr.Cells(iPrRow, 4) = wsArh.Cells(iArhRow, 5)
wsPr.Cells(iPrRow, 5) = wsArh.Cells(iArhRow, 6)
wsPr.Cells(iPrRow, 7) = wsArh.Cells(iArhRow, 9)
wsPr.Cells(iPrRow, 8) = wsArh.Cells(iArhRow, 10)
wsPr.Cells(iPrRow, 9).FormulaLocal = "=Номнедели(ArhRow, 9;[21])"
wsPr.Cells(iPrRow, 1) = iPrRow - 1
iPrRow = iPrRow + 1

End If

iArhRow = iArhRow + 1