Ошибка при выполнении процедуры.

[segail]

Здравствуйте. Подскажите, почему выдается ошибка?

Оформил код (s=3) в виде процедуры.

Public Sub Rasxod()
	s=3 ’Код
End Sub

Затем вставил процедуру в код

‘…………………………………
Module2.Rasxod
‘…………………………………

При выполнение Выдается ошибка на строку кода которая установлена в процедуре Sub
.Cells(i, 28).Value = Round(([d13] + [d16] + [d19] + [d22]), 0) + .Cells(i, 28).Value
При выполнении s=3 без процедуры ошибки нет.
___________________________________ _____________________
Сообщение об ошибке при выполнении процедуры.

[Dophin]

крайне информативный скрин, но файл с кодом был бы чуть чуть понаглядней

вообще не понял что Вы хотели получить от строки Module2.Rasxod

Public s

Sub pp()
s = 3
End Sub

Sub mm()
Dim m
Module1.pp
m = s + 1
End Sub

[segail]

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

вообще не понял что Вы хотели получить от строки Module2.Rasxod

Выполнение кода (s=3), который оформлен в виде процедуры

Если кратко, то так.

Private Sub Cmd_Select_Списание_Click()
‘…
‘Module2.Rasxod
‘…
End Sub

[Dophin]

ну а смысл? ну выполнится он и что дальше должно произойти?

Вам тяжело читать большие сообщения? Мой предыдущий ответ Вас не устроил или Вы не дочитали?

[segail]

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

ну а смысл? ну выполнится он и что дальше должно произойти?

Вам тяжело читать большие сообщения? Мой предыдущий ответ Вас не устроил или Вы не дочитали?

Короче процедура выглядит так.

Public Sub Rasxod()
    
    Dim i As Integer
    For i = 1 To 444
                With Sheets("Îò÷åò")
                If Form_SelectDate.chb_Time.Value = True Then Sheets("Îò÷åò").Cells(i, 2).Value = Form_SelectDate.Label_Hour.Caption + ":" + Form_SelectDate.Label_Minute 'Ââîä âðåìåíè åñëè chb_Time îáîçíà÷åí ãàëî÷êîé
                If Form_SelectDate.chb_Time.Value = False Then Sheets("Îò÷åò").Cells(i, 2).Value = "" 'Óäàëåíèå âðåìåíè åñëè chb_Time íå îáîçíà÷åí ãàëî÷êîé
                .Cells(i, 3).Value = UserForm1.TextBox1.Text + .Cells(i, 3).Value
                .Cells(i, 4).Value = UserForm1.TextBox2.Text + .Cells(i, 4).Value
                .Cells(i, 5).Value = VBA.Val(VBA.Replace(UserForm1.TextBox3.Text, ",", ".")) + .Cells(i, 5).Value
                .Cells(i, 6).Value = VBA.Val(VBA.Replace(UserForm1.TextBox5.Text, ",", ".")) + .Cells(i, 6).Value
                .Cells(i, 7).Value = VBA.Val(VBA.Replace(UserForm1.TextBox6.Text, ",", ".")) + .Cells(i, 7).Value
                .Cells(i, 8).Value = UserForm1.TextBox7.Text + .Cells(i, 8).Value
                .Cells(i, 9).Value = UserForm1.TextBox8.Text + .Cells(i, 9).Value
                .Cells(i, 21).Value = Range("F10").Value
                .Cells(i, 22).Value = Range("G10").Value
                .Cells(i, 28).Value = Round(([d13] + [d16] + [d19] + [d22]), 0) + .Cells(i, 28).Value
                If .Cells(i, 31).Value > "" Then .Cells(i, 31) = .Cells(i, 31) & Range("A9").Value & "    " & Range("G8").Value & "    " & UserForm1.TextBox1.Text & " ë. " & UserForm1.TextBox2.Text & " êã.  /  " Else .Cells(i, 31) = "/  " & Range("A9").Value & "    " & Range("G8").Value & "    " & UserForm1.TextBox1.Text & " ë. " & UserForm1.TextBox2.Text & " êã.  /  "
                End With
                UserForm1.Label6.Caption = "Ââîä äàííûõ ïðèõîäà íà " & Form_SelectDate.TextBox_Äàòà & " ïðîèçâåäåí"
                UserForm1.Label6.ForeColor = &HC00000
    Next
End Sub

Она должна выполниться при клике по кнопке Private Sub Cmd_Select_Списание_Click()
Не выполняется, выходит ошибка.

[Dophin]

и что? Вы предлагаете мне сделать файл со всеми перечисленными формами и текстбоксами на кривой кодировке? Выложить файл - никак?

[segail]

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

и что? Вы предлагаете мне сделать файл со всеми перечисленными формами и текстбоксами на кривой кодировке? Выложить файл - никак?

Да зачем формы.
В чистом виде код выполняется. А в виде процедуры нет. Если ошибка в коде, а не в правильности оформления процедуры тогда вопрос снят.

[Dophin]

какой код? какая процедура? где между ними связь? что такое чистый вид? чем отличается от процедуры? когда научитесь вопросы задавать?

[Dophin]

аааааааа. Вам видимо надо это

Private Sub Cmd_Select_Списание_Click()
‘…
call Module2.Rasxod
‘…
End Sub

хотя один фиг все работает. без файла непонятно что там у Вас не выходит

[segail]

Я попростому:

Так выполняется

Private Sub Cmd_Select_Списание_Click()
‘…
Код ‘ Код который указан выше без процедуры
‘…
End Sub

Так не выполняется

Private Sub Cmd_Select_Списание_Click()
‘…
Module2.Rasxod ’Код который указа выше
‘…
End Sub