создание ведомости(отчета) в VBA

[aigula]

Курсовая. есть 2 таблицы: Прейскурант и продажи. надо создать ведомость о проданных товарах на указанную дату, и получить отчет популярных показаний за месяц. выдает ошибки в формулах, помогите пожалуйста.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim h As Byte
If ComboBox1 = "" Then
h = MsgBox("Для вывода ведомости необходимо выделить из списка Количество", vbYes + vbQuestion, "Ведомость")
If h = vbYes Then GoTo 12 Else GoTo e
End If
Dim pr As Object, nx As Object
Dim prez As Object, nex As Object
Dim cur As Object, fol As Object
Dim nam As String, schet As String
Dim y As Integer, r As Integer, j As Integer
nam = ComboBox1.Text
ActiveWorkbook.Sheets("Ведомость продаж").Activate
ActiveWorkbook.Sheets("Ведомость"). Range("d3") = 0
For i = 3 To 15
ActiveWorkbook.Sheets("Ведомость"). Cells(i, 2) = ""
ActiveWorkbook.Sheets("Ведомость"). Cells(i, 3) = ""
ActiveWorkbook.Sheets("Ведомость"). Cells(i, 4) = ""
ActiveWorkbook.Sheets("Ведомость"). Cells(i, 5) = ""
ActiveWorkbook.Sheets("Ведомость"). Cells(i, 6) = ""
Next i
Sheets("Ведомость продаж").Select
Set prez = Sheets("Ведомость продаж").Range("B3")
Do Until IsEmpty(prez)
If prez = nam Then
kod = prez.Offset(0, 1)
kol = prez.Offset(0, 2)
Else: GoTo 1
End If
Sheets("Регистрация наличия лекарств").Select
Set cur = Sheets("Регистрация наличия лекарств").Range("a2")
Do Until IsEmpty(cur)
If cur = kod Then
namt = cur.Offset(0, 1)
Z = cur.Offset(0, 2)
Exit Do
End If
Set fol = cur.Offset(1, 0)
Set cur = fol
Loop
Sheets("Ведомость").Select
Set pr = Sheets("Ведомость").Range("b3")
Do Until IsEmpty(pr)
Set nx = pr.Offset(1, 0)
Set pr = nx
Loop
Sheets("Ведомость").Range("a3") = nam
pr.Value = kod
pr.Offset(0, 1) = namt
pr.Offset(0, 2).Value = Z
pr.Offset(0, 3).Value = kol
summ = Z * kol
pr.Offset(0, 4).Value = summ
1: Set nex = prez.Offset(1, 0)
Set prez = nex
Loop
Sheets("Ведомость").Range("g3").Act ivate
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[196]C[-1])"
12 ComboBox1 = ""
UserForm4.Hide
e: End Sub


Private Sub Frame1_Click()

End Sub

Private Sub UserForm_activate()
Dim pr As Object, x As Object
UserForm4.ComboBox1.Clear
ActiveWorkbook.Sheets("Ведомость продаж").Select
Set pr = ActiveSheet.Range("C2")
Do While Not IsEmpty(pr)
Set x = pr.Offset(1, 0)
ComboBox1.AddItem pr
Set pr = x
Loop
End Sub


где желтым выделено, выдает ошибку: метод из класса ранг завершен неверно

[kalbasiatka]

пробел в "Act ivate"?

[aigula]

нет, это только здесь так вышло.

[Hugo121]

Без пробела работает.

[Step_UA]

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

Sheets("Ведомость").Activate

[aigula]

Sheets("Ведомость").Range("g3").Act ivate
вот так у меня, все равно не получается.
Пробел когда сюда добавляю только выходит.

[VictorM]

Sheets("Ведомость").Range("g3").Act ivate

вот так у меня, все равно не получается.

и не будет так работать
или пишите

Sheets("Ведомость").Activate
Range("g3").Activate

или одной строкой

Application.GoTo Reference:=Worksheets("Ведомость").[g3]

[Hugo121]

Виктор, у меня сработало, без проблем.
Вот, взял из кода:

ActiveWorkbook.Sheets("Ведомость продаж").Activate

Sheets("Ведомость продаж").Select

Sheets("Ведомость").Select
Sheets("Ведомость").Range("g3").Activate

[aigula]

я пробовала подставлять эти коды, нажимаю потом на кнопку на листе в эксель, обратно возвращает в VBA. но ошибку не выдает.

[kalbasiatka]

Еще пару постов со словами "мамой клянусь не работает" и созреем до файла