[aa100] - это не переменная, а адрес ячейки
То же самое что Range("aa100")
Можно перед цифрой добавить буквы. Например АП-0004
Я не против
Меняем на такое: [vba]Код
Private Sub CommandButton1_Click()
With ActiveWorkbook.Worksheets("отчет")
[aa100] = q
[D7] = Label1.Caption
[E7] = TextBox1.Value & " " & "от" & CDate(TextBox2)
[C9] = ComboBox1.Value
[D9] = ComboBox2.Value
End With
End Sub
[/vba] и такое:
[vba]Код
Private Sub UserForm_Initialize()
Dim q
q = [aa100] + 1
ComboBox1.List = Array("основной", "арендованый")
ComboBox2.List = Array("яблоки", "груши")
TextBox1 = "АП-0004 " & q
End Sub
[/vba]