вставка не всех столбцов в новую книгу - Страница 2

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка не всех столбцов в новую книгу (Макросы/Sub)

вставка не всех столбцов в новую книгу

Gustav

Дата: Пятница, 17.09.2021, 23:04 | Сообщение № 21

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2730

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

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

начинал с Excel 4.0, видел 2.1

У меня нормально работает (Range от вас скопирован):
[vba]

Код

ActiveSheet.Range("AK:AM,AQ:AS").Delete

[/vba]
А у вас перед точкой объект в With нормально определен? Что за ошибка-то хоть? Может, чуть больше кода покажете?

МОИ: Ник, Tip box: 41001663842605

Ответить

micholap_denis

Дата: Суббота, 18.09.2021, 12:34 | Сообщение № 22

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

Gustav, вот часть макроса--он есть в файле от Елены..в
[vba]

Код

.Range(.Columns("AK"), .Columns("AK").End(xlToRight)).Delete

[/vba]
Елена помогла сделала чтоб в создаваемых файлах все столбцы от АК удалялись.....сейчас хочу подправить что бы удалялись указанные группы либо просто одиночные столбцы.. АК:АМ, АS, AT:AX например
[vba]

Код

Sub ÐàçáèòüíàÁàëàíñû()
    If expired Then Exit Sub
    SUBP = Application.ScreenUpdating
    CABP = Application.Calculation
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    If Val(Application.Version) >= 12 Then
        appfileformat = ".xlsx"
    Else
        appfileformat = ".xls"
    End If
    'Set newrqstbk = onewsbk
    ThisWorkbook.Worksheets("ÔÁ").Copy    'before:=newrqstbk.Worksheets(1)
    Set newrqstbk = ActiveWorkbook
    With newrqstbk.Worksheets("ÔÁ")


       .Range(.Columns("AK"), .Columns("AK").End(xlToRight)).Delete

        .Range(.Range("E1:E11"), .Range("E1:E11").End(xlToRight)).ClearContents

        If .AutoFilterMode Then .AutoFilter.ShowAllData
        .ListObjects("Áàëàíñ").Sort.SortFields.Clear
        .ListObjects("Áàëàíñ").Sort.SortFields.Add key:=Range("Áàëàíñ[Áàëàíñ]"), _
                    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .ListObjects("Áàëàíñ").Sort.SortFields.Add key:=Range("Áàëàíñ[Äàòà ïëàòåæà]"), _
                    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .ListObjects("Áàëàíñ").Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        .UsedRange.Copy
        .UsedRange.Select
        Selection.PasteSpecial Paste:=xlPasteValues
    End With

[/vba]

при замене строки на вашу- выдает ошибку- метод delete из класса range завершен неверно

Gustav, вот часть макроса--он есть в файле от Елены..в
[vba]

Код

.Range(.Columns("AK"), .Columns("AK").End(xlToRight)).Delete

Код

[/vba]

при замене строки на вашу- выдает ошибку- метод delete из класса range завершен неверноmicholap_denis

К сообщению приложен файл: 8589904-1-.xlsb (53.9 Kb)

Сообщение отредактировал micholap_denis - Суббота, 18.09.2021, 12:37

Ответить

СообщениеGustav, вот часть макроса--он есть в файле от Елены..в
[vba]

Код

.Range(.Columns("AK"), .Columns("AK").End(xlToRight)).Delete

Код

[/vba]

при замене строки на вашу- выдает ошибку- метод delete из класса range завершен неверно

Автор - micholap_denis
Дата добавления - 18.09.2021 в 12:34

Pelena

Дата: Суббота, 18.09.2021, 13:25 | Сообщение № 23

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

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

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

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

Код

        For Each ar In .Range("AK:AM,AQ:AS").Areas
            ar.Delete
        Next ar

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Суббота, 18.09.2021, 15:28 | Сообщение № 24

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

Pelena,
заменить на такую строку (указания столбцов) - не пашет
[vba]

Код

For Each ar In .Range("K:L,N,P,R:S,U,X:AG,AI:CV").Areas
ar.Delete
Next ar

[/vba]
выделяет ее желтым

Ответить

Pelena

Дата: Суббота, 18.09.2021, 17:13 | Сообщение № 25

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

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

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Вместо N надо писать N:N

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Суббота, 18.09.2021, 19:26 | Сообщение № 26

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

спасибо большое

Ответить

micholap_denis

Дата: Суббота, 18.09.2021, 23:48 | Сообщение № 27

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

Pelena, подскажите пожалуйста а как сделать чтоб в создаваемых файлах закреплялись области...шапка таблицы....
записал макрос через рекордер а куда вставить не пойму....

К сообщению приложен файл: 1847072.xlsb (55.1 Kb)

Ответить

micholap_denis

Дата: Суббота, 18.09.2021, 23:56 | Сообщение № 28

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

Pelena,
извиняюсь.....методом научного тыка разобрался))

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка не всех столбцов в новую книгу (Макросы/Sub)

Страница 2 из 2
«
1
2