Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Exit Sub

Else

End If

Счётчик2.Visible = True

Предосмотр.Visible = True

Вплатёжку 'функция сохраняющая данные в платёжке

ActiveWorkbook.Save

Windows("Платёжки" & Year(Date)).Activate

СохранитьНов.Visible = False

Создать.Visible = True

X = 1

While Len(Worksheets(№ПЛ).Range("A" & X)) 0

X = X + 1

Wend

Worksheets(№ПЛ).Select

Range("A" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets(№ПЛ).Range("A" & X) = X

Range("g" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets(№ПЛ).Range("g" & X) = CDbl(Деньги)

Worksheets(№ПЛ).Range("c" & X) = Банк

Worksheets(№ПЛ).Range("d" & X) = Счёт

Worksheets(№ПЛ).Range("b" & X) = Клиент

Worksheets(№ПЛ).Range("e" & X) = КодБанка

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки