Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка не всех столбцов в новую книгу (Макросы/Sub)
вставка не всех столбцов в новую книгу
Gustav Дата: Пятница, 17.09.2021, 23:04 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1913
Репутация: 771 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
У меня нормально работает (Range от вас скопирован):
[vba]
Код
ActiveSheet.Range("AK:AM,AQ:AS").Delete
[/vba]
А у вас перед точкой объект в With нормально определен? Что за ошибка-то хоть? Может, чуть больше кода покажете?


Мой tip box - яд 41001663842605
 
Ответить
СообщениеУ меня нормально работает (Range от вас скопирован):
[vba]
Код
ActiveSheet.Range("AK:AM,AQ:AS").Delete
[/vba]
А у вас перед точкой объект в With нормально определен? Что за ошибка-то хоть? Может, чуть больше кода покажете?

Автор - Gustav
Дата добавления - 17.09.2021 в 23:04
micholap_denis Дата: Суббота, 18.09.2021, 12:34 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

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 завершен неверно
К сообщению приложен файл: 8589904-1-.xlsb(53.9 Kb)


Сообщение отредактировал micholap_denis - Суббота, 18.09.2021, 12:37
 
Ответить
Сообщение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 завершен неверно

Автор - micholap_denis
Дата добавления - 18.09.2021 в 12:34
Pelena Дата: Суббота, 18.09.2021, 13:25 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 17943
Репутация: 3997 ±
Замечаний: ±

Excel 2016 & Mac Excel
Может, так подойдет
[vba]
Код
        For Each ar In .Range("AK:AM,AQ:AS").Areas
            ar.Delete
        Next ar
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожет, так подойдет
[vba]
Код
        For Each ar In .Range("AK:AM,AQ:AS").Areas
            ar.Delete
        Next ar
[/vba]

Автор - Pelena
Дата добавления - 18.09.2021 в 13:25
micholap_denis Дата: Суббота, 18.09.2021, 15:28 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

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,
заменить на такую строку (указания столбцов) - не пашет
[vba]
Код
For Each ar In .Range("K:L,N,P,R:S,U,X:AG,AI:CV").Areas
ar.Delete
        Next ar
[/vba]
выделяет ее желтым

Автор - micholap_denis
Дата добавления - 18.09.2021 в 15:28
Pelena Дата: Суббота, 18.09.2021, 17:13 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 17943
Репутация: 3997 ±
Замечаний: ±

Excel 2016 & Mac Excel
Вместо N надо писать N:N


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВместо N надо писать N:N

Автор - Pelena
Дата добавления - 18.09.2021 в 17:13
micholap_denis Дата: Суббота, 18.09.2021, 19:26 | Сообщение № 26
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо большое
 
Ответить
Сообщениеспасибо большое

Автор - micholap_denis
Дата добавления - 18.09.2021 в 19:26
micholap_denis Дата: Суббота, 18.09.2021, 23:48 | Сообщение № 27
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, подскажите пожалуйста а как сделать чтоб в создаваемых файлах закреплялись области...шапка таблицы....
записал макрос через рекордер а куда вставить не пойму....
К сообщению приложен файл: 1847072.xlsb(55.1 Kb)
 
Ответить
СообщениеPelena, подскажите пожалуйста а как сделать чтоб в создаваемых файлах закреплялись области...шапка таблицы....
записал макрос через рекордер а куда вставить не пойму....

Автор - micholap_denis
Дата добавления - 18.09.2021 в 23:48
micholap_denis Дата: Суббота, 18.09.2021, 23:56 | Сообщение № 28
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - micholap_denis
Дата добавления - 18.09.2021 в 23:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка не всех столбцов в новую книгу (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!