Часть программы работает, а вторая часть просто никак не хочет
Подскажите, пожалуйста, в чем проблема?
[vba]Код
Option Explicit
Private Sub Frame1_Click()
Private Sub UserForm_Initialize()
Me.TextBox1.Value = ActiveSheet.Range("G14").Value
Me.TextBox2.Value = ActiveSheet.Range("G18").Value
Me.ComboBox1.List = Range("E6:E10").Value
End Sub
Private Sub ComboBox1_Change()
Range("H10").Value = Me.ComboBox1.Value
End Sub
Private Sub Frame2_Click()
Private Sub UserForm_2()
Me.TextBox3.Value = ActiveSheet.Range("L14").Value
Me.TextBox4.Value = ActiveSheet.Range("L18").Value
Me.ComboBox1.List = Range("J6:J10").Value
End Sub
Private Sub ComboBox2_Change()
Range("L10").Value = Me.ComboBox1.Value
End Sub
Private Sub CommandButton2_Click()
With ActiveSheet
.Range("G14").Value = Me.TextBox1.Value
.Range("G18").Value = Me.TextBox2.Value
End With
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
[/vba]
P.S. И, если не сложно, помогите поменять форму кнопки...
[admin]
Тема закрыта. Причина: Нарушение правил пп. 2[/admin]