Cохранить данные (без формул) с диапазона в новую книгу

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Cохранить данные (без формул) с диапазона в новую книгу (Макросы/Sub)

Ёжж

Дата: Понедельник, 30.11.2015, 13:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Подскажите, как сохранить данные (без формул) с диапазона A1:E33 (с учетом фильтра) в новую книгу с именем "Накладная № C2 от E2" с одним листом ("Лист1") в эту же папку?

К сообщению приложен файл: 20151106.xlsx (22.6 Kb)

Ответить

Мурад

Дата: Понедельник, 30.11.2015, 14:45 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 520

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Ёжж,
1. Выделите диапазон A1:E33.
2. Нажмите Alt + Я Ф В Г (зажмите Alt и далее буквы по очереди)
3. Выберите "только видимые ячейки", ОК.
4. Нажмите Ctrl + С.
5. Перейдите в книгу "Накладная № C2 от E2" на лист ("Лист1")
6. Выберите специальную вставку (Alt + Я V Т) - выберите ширины столбцов, ОК
7. Выберите специальную вставку (Alt + Я V Т) - выберите значения, ОК
8. Выберите специальную вставку (Alt + Я V Т) - выберите форматы, ОК

Ответить

Ёжж

Дата: Понедельник, 30.11.2015, 15:17 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Мурад, а тоже самое возможно средствами VBA?

Ответить

Мурад

Дата: Понедельник, 30.11.2015, 16:12 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 520

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Ёжж, возможно. Код небольшой на самом деле. Но я не знаю, какой код нужен для копирования только видимых ячеек.

Ответить

Ёжж

Дата: Понедельник, 30.11.2015, 16:17 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Уважаемые форумчане! Подскажите код для копирования только видимых ячеек.

Ответить

Manyasha

Дата: Понедельник, 30.11.2015, 17:02 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Ёжж, так подойдет?
[vba]

Код

Sub copySheet()
    Set sh = ThisWorkbook.Sheets("Накладная")
    Set newBook = Workbooks.Add(1)
    sh.UsedRange.SpecialCells(xlCellTypeVisible).copy
    With newBook.Sheets(1)
        .Paste
        .DrawingObjects.Delete
        .[a1].Select
    End With
    Application.CutCopyMode = False
    newName = "Накладная №" & sh.[c2] & "от " & sh.[e2].Text & ".xlsx"
    newBook.SaveAs ThisWorkbook.Path & "\" & newName, 51
End Sub

[/vba]

К сообщению приложен файл: 20151106.xlsm (29.9 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Понедельник, 30.11.2015, 20:11 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще вариант
[vba]

Код

Sub Макрос3()
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    fn_ = "Накладная №" & [c2] & "от " & [e2].Text & ".xlsx"
    Sheets("Накладная").Copy
    Range("$E$8:$E$999").AutoFilter Field:=1, Criteria1:="0"
    Range("E9:E999").SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Selection.AutoFilter
    With Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
        .Value = .Value
    End With
    Range("A1").Select
    ActiveSheet.DrawingObjects.Delete
    ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\" & fn_
    Application.DisplayAlerts = 1
    MsgBox "Файл '" & fn_ & "' сохранён"
End Sub

[/vba]

К сообщению приложен файл: 20151106_1.xlsm (30.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995