Замена константы, переменной

[valerij]

Где я ошибаюсь?
Жирным красным шрифтом выделена моя вставка!
Было в формуле, в место dost константа 195

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Sh.CodeName
Case "Лист1" To "Лист12", "Лист2" To "Лист9"
dost = 195
If Intersect(Target, _
Sh.Range("B3:B1477,D3:K1477")) Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
For iCount& = 0 To 30 '
With Sh.Range("B3:B37,D3:K37").Offset(iC ount& * 48)
If Not Intersect(Target, .Cells) Is Nothing Then
With .Columns(10)
.FormulaR1C1 = "=(RC[-7]+RC[-9])*RC[-1]*dost/1000"
.Value = .Value
End With
End If
End With
Next
.EnableEvents = True
.ScreenUpdating = True
End With
End Select
End Sub

[SAS888]

Дело в том, что "=(RC[-7]+RC[-9])*RC[-1]*dost/1000" - нужно понимать как текстовую строку. Чтобы не нарушать синтаксис написания формулы, нужно вместо

.FormulaR1C1 = "=(RC[-7]+RC[-9])*RC[-1]*dost/1000"

вставить

.FormulaR1C1 = "=(RC[-7]+RC[-9])*RC[-1]*" & dost & "/1000"

[valerij]

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

" & dost & "

Наконец то форум нормально заработал
Спасибо, все ОК!