7483798775

33

>************************************************************************* Sub KoniecO Usunjnemt AcIiveWindow. Close End Sub

i*************************************************************************

Sub Auto_open()

Workbooks(ThisWorkbook.Name).Sheets("Tabelka").Activate Ustaw_menu Start End Sub Sub Wyczysc()

With Okno Dialogowe . TextBoxI. Text = ""

. TextBox2. Text = ""

. TextBox3. Text = ""

.TextBox4.Text = ""

. TextBox5. Text = ""

End With End Sub

3. Sprawdź działanie nowopowstałej opcji w menu głównym Mała Baza.