Вставить и удалить значения, в диапазоне ячеек.

[segail]

Здравствуйте.
Подскажите как на основание условия (в примере) вставить выбранное значение UserForm4.ComboBox2 в ячейки, начиная с Cells(i, 30) и до тридцать одной ячейки включительно, и удалить значения диапазонов в ячейках, начиная с Cells(i, 30) и с Cells(i, 31)и до тридцать одной ячейки вниз включительно?

[segail]

Как удалить разобрался

.Cells(i, 30).Resize(31) = "": .Cells(i, 31).Resize(31) = ""

А как вставить?

[SAS888]

А в чем вопрос? Какая разница, что вставлять: пустое значение

.Cells(i, 30).Resize(31) = ""

или любое другое:

.Cells(i, 30).Resize(31) = UserForm4.ComboBox2

[segail]

Я так пробовал

Public Sub Normativ_Потери()
    Dim i As Integer
    For i = 1 To 450
        With Sheets("Отчет")
            If UserForm4.ComboBox1.Text = .Cells(i, 27).Text Then
                .Cells(i, 30).Resize(31).Value = UserForm4.ComboBox2
            End If
        End With
      Next
End Sub

не вставляется значение ComboBox2...

[segail]

Разобрался, условие немного было не правильным.

только вот при выполнение кода (вставка числовых значений)
.Cells(i, 30).Resize(31).Value = UserForm4.ComboBox2
числовые значения формируются в текстовые, value не помогает, функция преобразования CInt переменной в значение, строки CInt (UserForm4.ComboBox2) , тоже не помогает.
Как преобразовать в числовое значение?

[SAS888]

Попробуйте после вставки значений выполнить код:

With .Cells(i, 30).Resize(31)
    a = .Value
    .NumberFormat = "General"
    .Value = a
End With

[Hugo121]

Попробуйте так (без примера не проверял):
.Cells(i, 30).Resize(31).NumberFormat = "0.00"
.Cells(i, 30).Resize(31).Value = UserForm4.ComboBox2

[segail]

Попробовал оба кода
У SAS888 целые числа формируются в числовые, а с десятичными знаками через запятую нет...
У Hugo121 без изменений…

[SAS888]

value не помогает, функция преобразования CInt переменной в значение, строки CInt (UserForm4.ComboBox2) , тоже не помогает.

В ComboBox всегда находится текстовое значение. Value должно помочь. Смотря как это применять. Попробуйте так:

.Cells(i, 30).Resize(31) = Val(Replace(UserForm4.ComboBox2, ",", "."))

[segail]

Здравствуйте, применил функцию CSng

.Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)

Только не знаю, как эта функция работает с национальными настройками, если в настройках будет стоять точка…
А так вроде работает нормально…