Диапазон ячеек равен 0

[segail]

Здравствуйте.
Подскажите, как диапазон ячеек приравнять 0

Private Sub UserForm_Initialize()
	[Отчет!$U$41;Отчет!$U$78;Отчет!$U$115;Отчет!$U$152;Отчет!$U$189;Отчет!$U$226;Отчет!$U$263;Отчет!$U$300;Отчет!$U$337;Отчет!$U$374;Отчет!$U$411;Отчет!$U$448]=0
End Sub

[EducatedFool]

Замените ; на ,

[Отчет!$U$41,Отчет!$U$78,Отчет!$U$115] = 0

[segail]

А произвести удаление найденной строки переменной I столбца 26 удаление 31 ячейки (то есть все)

Cells(i, 26 & ":" & i + 30).Clear

[alex77755]

А произвести удаление найденной строки переменной I

вы уверены, что хотите именно этого?

 Rows(i & ":" & i).Select
 Selection.Delete Shift:=xlUp

[segail]

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

вы уверены, что хотите именно этого?

 Rows(i & ":" & i).Select
 Selection.Delete Shift:=xlUp

Не уверен...
Немного по-другому. Переменная (i) это найденная ячейка, от нее влево на -1 ячейку и вниз на 30 (включая все 30 ячеек с найденной ячейкой, значит 31) удалить.

Так что ли?

Private Sub ComboBox1_Change()

    
    Dim i As Integer
    
    For i = 1 To 1000
        
        If Cells(i, 27).Text = ComboBox1.Text Then
        Rows(i, -1 & ":" & i + 30).Select
        Selection.Delete Shift:=xlUp
        End If
    Next
End Sub

Тоже не идет...

[Dophin]

так удалить или очистить? это две большие разницы

для очистить (с оффсетом поиграйте как Вам точно надо - не понял) :
Private Sub ComboBox1_Change()


Dim i As Integer

For i = 1 To 1000

If Cells(i, 27).Text = ComboBox1.Text Then
range(cells(i,27).offset(0,-1),cells(i,27).offset(30,-1)).clear
End If
Next
End Sub

[segail]

Clear нормально

А как проверить диапазон от минус 27 тридцать одну ячейку и если найдено значение больше “” то удалить данное значение (то есть удалять не полностью а выборочно).

If Cells(i, 27).Offset(, -1).Resize(31).Value>”” Then Cells(i, 27).Offset(, -1).Resize(31).Clear

код конечно не правильный.

[Dophin]

так же циклом по каждой ячейке диапазона

Private Sub ComboBox1_Change()
Dim i As Integer
Dim cell As Range
For i = 1 To 1000
If Cells(i, 27).Text = ComboBox1.Text Then
For Each cell In Range(Cells(i, 27).Offset(0, -1), Cells(i, 27).Offset(30, -1))
If cell > "" Then cell.Clear
Next cell
End If
Next i
End Sub

[segail]

Здравствуйте, как произвести поиск ячейки, без переменной, по совпадению текстов от строки 2 до строки 444 столбца 27
If .Cells(2+444,27).Text =.Range("AA1").Text

[Dophin]

что значит без переменной? поиск это метод Find