Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранение форматирования при переносе массива на новый лист
 
Добрый день. С помощью кода данные вставляются на новый лист(добавляется при изменении значения комбобокса на форме).Подскажите пожалуста,что нужно добавить в код,чтобы переносились не только значения, но и все форматирование т.е ширина столбцов,высота строк,УФ.
Спасибо.
Код:
Код
a = Sheets("Îøèáêè".[a1].CurrentRegion.Value
ReDim d(1 To UBound(a), 1 To 5)
 Sheets(Me.ComboBox1.Value).[a1].Resize(UBound(a), 5) = a
Sheets(Me.ComboBox1.Value).Select
 
Код
Sheets("Îøèáêè".[a1].CurrentRegion.Copy Destination:=Sheets(Me.ComboBox1.Value).[a1]
 
Dima S,Спасибо за помощь,но получается немного не то,что хотелось.В приложенном файле Лист1 как должно быть,Лист2 как получается перенос по Вашему коду.Наверно придется отказаться от переноса массива,а просто копировать и вставлять через специальную всавку(что не очень хотелось).
Страницы: 1
Читают тему (гостей: 1)