есть макрос который это все делает как мне надо проблема только в том что он при копировании съедает "," запятую копируется 1,222 вставляет 1222 вот код макроса:
Sub сохр_база_зак()
Dim z As Integer, q As String, w As String, s As String
z = Sheets("База").Range("K2")
q = Sheets("База").Range("K2") w = Sheets("заключение S").Range("F16") s = Sheets("заключение S").Range("L18") Sheets("База").Range("K1") = q Sheets("База").Cells(2 + z, 9) = w Sheets("База").Cells(2 + z, 10) = s
End Sub
файл выложить не могу он тяжолый
есть макрос который это все делает как мне надо проблема только в том что он при копировании съедает "," запятую копируется 1,222 вставляет 1222 вот код макроса:
Sub сохр_база_зак()
Dim z As Integer, q As String, w As String, s As String
z = Sheets("База").Range("K2")
q = Sheets("База").Range("K2") w = Sheets("заключение S").Range("F16") s = Sheets("заключение S").Range("L18") Sheets("База").Range("K1") = q Sheets("База").Cells(2 + z, 9) = w Sheets("База").Cells(2 + z, 10) = s
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
