Вывод отчета в Excel

[Настя Белова]

поэтому и прошу помощи

[Hugo121]

Нужно делать пример.

[Настя Белова]

я правильно думаю что необходима прописать код на CheckBox и ComboBox. а потом на саму кнопку.

[Настя Белова]

а если использовать процедуры create report, enter monetary results,enter product results,enter resource results

[Настя Белова]

индексу в Worksheets нужно передавать либо индекс, либо имя листа. а как?

[Настя Белова]

Private Sub CommandButton1_Click()
Set wsh = Worksheets.Add
wsh.Name = UserForm3.ComboBox1.Text & "_" & UserForm3.ComboBox2.Text
With Worksheets(UserForm3.ComboBox2.Text )
.Rows(1).Copy Cells(1, 1): r2 = 2
For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(r1, 10) = UserForm3.ComboBox1.Text Then .Rows(r1).Copy Cells(r2, 1): r2 = r2 + 1
Next
End With
End Sub

всё равно ошибка,блин

[Настя Белова]

Private Sub CommandButton1_Click()
Set wsh = Worksheets.Add
wsh.Name = UserForm3.ComboBox1.Text & "_" & UserForm3.ComboBox2.Text
With Worksheets(UserForm3.ComboBox1.Text )
.Rows(1).Copy Cells(1, 1): r2 = 2
For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(r1, 10) = UserForm3.ComboBox2.Text Then .Rows(r1).Copy Cells(r2, 1): r2 = r2 + 1
Next
End With
End Sub

[Настя Белова]

копирует шапку.а не все данные

[Настя Белова]

учет.zip что не так а?!

[Hugo121]

Не в том столбце ищите, так нужно:

If CStr(.Cells(lngRow1, "I")) = strFamilyName Then