Здравствуйте! Уважаемые форумчане нужна ваша помощь. Почему не работает очистка диапазона?
Код
Sub Кнопка3_Щелчок()
Dim Row As Long
Dim Range As Excel.Range
Dim ThisWorkbook As Excel.Workbooks
Dim Sheets As Excel.Sheets
Dim ws As Worksheet
Const limit As Integer = 0
Set ws = Sheets("Лист1")
For Row = 4 To 30
If Cells(Row, 12).Value = limit Then
Range(ws.Cells(Row, 12), ws.Cells(28, 12)).ClearContents
Else: Value = Cells(Row, 5).Value
End If
Next Row
End Sub
Sandri написал: Почему не работает очистка диапазона?
В Вашем коде очень много ненужного, поэтому придется много писать. Я поэтому не буду описывать, почему у Вас не работало, а просто выкладываю свой код:
Макрос
Код
Sub Кнопка3_Щелчок()
Dim Value, r As Long
Const limit As Integer = 0
For r = 4 To 30
If Cells(r, 12).Value = limit Then
Range(Cells(r, 12), Cells(28, 12)).ClearContents
Exit For
Else
Value = Cells(r, 5).Value
End If
Next r
End Sub