очистка ячеек

Автор Asante, 27.12.2011, 13:41

« назад - далее »

Asante

Подскажите ,пожалуйста с макроса заполняются ячейки,к-во не ограничено, как очистить 2 ряда ячеек через 2.
первая так
Sub Очистить()
If Range("C1") > 0 Then
US = Range("C1") - 1
Range("C1") = 0
Range("A12:T13").ClearContents
Range("A14").Select
End If
End Sub
а как последующие если их к-во может изменятся

Asante

при нажатии кнопки "аванс",удаляются с 16 числа

nilem

Попробуйте так:
Sub Очистить()
Dim i As Long: i = 10
Do While Len(Cells(i, 1))
    Cells(i, 1).Offset(, 4).Offset(2).Resize(2, 16).ClearContents
    i = i + 4
Loop
End Sub

kuklp

Вариант:
Public Sub www()
   Dim i&, lr&
   Application.EnableEvents = 0
   lr = [e65536].End(xlUp).End(xlUp).Row
   For i = 10 To lr Step 4
       Range(Cells(i + 2, 5), Cells(i + 3, 20)).ClearContents
   Next
   Application.EnableEvents = -1
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Wasilic

Никак не добьёшь?  :)
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

ОК,тема закрыта,спасибо огромное всем кто помог