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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить скрытые строки при сохранении листа в новую книгу - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить скрытые строки при сохранении листа в новую книгу
Удалить скрытые строки при сохранении листа в новую книгу
mihalix Дата: Вторник, 03.02.2015, 10:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Добрый день.
В книге два листа "Выгрузка" и "Регистр12".
Есть вшитый в лист "Выгрузка" фильтр скрывающий строки листа "Регистр12":
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
      Sheets("Регистр12").Range("G3:G23").AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=0
End Sub
[/vba]

Есть код в книге сохраняющий лист "Регистр12" на рабочий стол:

[vba]
Код
Sub Save_list()
' Сохранение листа
   Sheets("Регистр12").Select
   ActiveSheet.Buttons.Delete
   Sheets("Регистр12").Copy
Set wbReg = ActiveWorkbook
      Dim rRng As Range, rArea As Range
      Dim i As Integer
      i = 5
      While Range("A" & i) <> ""
          wbReg.Sheets(1).Range("D" & i & ":E" & i).Select
          On Error Resume Next
          If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Selection.SpecialCells(12).Count > 0 Then
          Set rRng = Selection.SpecialCells(12)
              For Each rArea In rRng.Areas
                 rArea.Value = rArea.Value
              Next rArea
          End If
          i = i + 1
      Wend
wbReg.SaveAs Filename:="d:\Users\user-zuk\Desktop\" & "Регистр12 " & Date & ".xlsx"
wbReg.Close
ActiveSheet.Buttons.Add(15.75, 6.75, 255, 25.5).Select
      Selection.OnAction = "ЭтаКнига.Save_list"
      Selection.Characters.Text = "Сохранить на рабочий стол"
      Range("F1").Select
End Sub
[/vba]

Вопрос:
Как удалить скрытые строки при сохранении листа в новую книгу. В иходной книге скрытые не трогать.
К сообщению приложен файл: _-.xlsm (31.2 Kb)


Сообщение отредактировал mihalix - Вторник, 03.02.2015, 10:30
 
Ответить
СообщениеДобрый день.
В книге два листа "Выгрузка" и "Регистр12".
Есть вшитый в лист "Выгрузка" фильтр скрывающий строки листа "Регистр12":
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
      Sheets("Регистр12").Range("G3:G23").AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=0
End Sub
[/vba]

Есть код в книге сохраняющий лист "Регистр12" на рабочий стол:

[vba]
Код
Sub Save_list()
' Сохранение листа
   Sheets("Регистр12").Select
   ActiveSheet.Buttons.Delete
   Sheets("Регистр12").Copy
Set wbReg = ActiveWorkbook
      Dim rRng As Range, rArea As Range
      Dim i As Integer
      i = 5
      While Range("A" & i) <> ""
          wbReg.Sheets(1).Range("D" & i & ":E" & i).Select
          On Error Resume Next
          If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Selection.SpecialCells(12).Count > 0 Then
          Set rRng = Selection.SpecialCells(12)
              For Each rArea In rRng.Areas
                 rArea.Value = rArea.Value
              Next rArea
          End If
          i = i + 1
      Wend
wbReg.SaveAs Filename:="d:\Users\user-zuk\Desktop\" & "Регистр12 " & Date & ".xlsx"
wbReg.Close
ActiveSheet.Buttons.Add(15.75, 6.75, 255, 25.5).Select
      Selection.OnAction = "ЭтаКнига.Save_list"
      Selection.Characters.Text = "Сохранить на рабочий стол"
      Range("F1").Select
End Sub
[/vba]

Вопрос:
Как удалить скрытые строки при сохранении листа в новую книгу. В иходной книге скрытые не трогать.
Автор - mihalix
Дата добавления - 03.02.2015 в 10:19
Manyasha Дата: Вторник, 03.02.2015, 11:37 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Пожалуйста, на счет скрытых строк, что-то у меня не получается их удалять, наверное потому что они скрыты автофильтром.
Сделала так: выключила автофильтр и удалила строки, в которых итоговые значения = 0

[vba]
Код
    Selection.AutoFilter
     While Range("A" & i) <> ""
         wbReg.Sheets(1).Range("D" & i & ":F" & i).Select
         On Error Resume Next
         If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
             For Each cell In Selection
                cell.Value = cell.Value
             Next cell
         ElseIf Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
             Rows(i & ":" & i).Delete
             i = i - 1
         End If
         i = i + 1
     Wend
[/vba]

Кнопку удалила из созданной книги так:
[vba]
Код
wbReg.Sheets(1).Buttons.Delete
[/vba]
К сообщению приложен файл: test1.xlsm (29.6 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеПожалуйста, на счет скрытых строк, что-то у меня не получается их удалять, наверное потому что они скрыты автофильтром.
Сделала так: выключила автофильтр и удалила строки, в которых итоговые значения = 0

[vba]
Код
    Selection.AutoFilter
     While Range("A" & i) <> ""
         wbReg.Sheets(1).Range("D" & i & ":F" & i).Select
         On Error Resume Next
         If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
             For Each cell In Selection
                cell.Value = cell.Value
             Next cell
         ElseIf Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
             Rows(i & ":" & i).Delete
             i = i - 1
         End If
         i = i + 1
     Wend
[/vba]

Кнопку удалила из созданной книги так:
[vba]
Код
wbReg.Sheets(1).Buttons.Delete
[/vba]
Автор - Manyasha
Дата добавления - 03.02.2015 в 11:37
mihalix Дата: Вторник, 03.02.2015, 14:47 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Работает!, но один недочет если вдруг один из блоков весь окажется нулевым, строчки нулевых значений удаляются, и итоговая строка по блоку остается и значение выскакивает "#ссылка!".
Можно как-то видоизменить, чтоб строка удалялась, если в столбце G стоит 0. (столбец G скрыт)
 
Ответить
СообщениеРаботает!, но один недочет если вдруг один из блоков весь окажется нулевым, строчки нулевых значений удаляются, и итоговая строка по блоку остается и значение выскакивает "#ссылка!".
Можно как-то видоизменить, чтоб строка удалялась, если в столбце G стоит 0. (столбец G скрыт)
Автор - mihalix
Дата добавления - 03.02.2015 в 14:47
Manyasha Дата: Вторник, 03.02.2015, 15:01 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Найдите в коде строчку
[vba]
Код
ElseIf Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
[/vba]
Она расшифровывается так: Если в книге wbReg ячейка первого столбца в i-й строчке не содержит текст "Выручка" (т.е. не является итоговой) И сумма ранга D:F в i-й строчке = 0, тогда...
и далее идет удаление i-й строчки.

Соответственно, если Вам нужно, чтобы итоговые строчки тоже удалялись, если сумма по ним = 0, то нужно убрать проверку на итоговую строчку из кода:
[vba]
Код
ElseIf Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
[/vba]
ну, или ориентируясь на Ваш столбец G
[vba]
Код
ElseIf Range("G" & i) = 0 Then
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеНайдите в коде строчку
[vba]
Код
ElseIf Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
[/vba]
Она расшифровывается так: Если в книге wbReg ячейка первого столбца в i-й строчке не содержит текст "Выручка" (т.е. не является итоговой) И сумма ранга D:F в i-й строчке = 0, тогда...
и далее идет удаление i-й строчки.

Соответственно, если Вам нужно, чтобы итоговые строчки тоже удалялись, если сумма по ним = 0, то нужно убрать проверку на итоговую строчку из кода:
[vba]
Код
ElseIf Application.Sum(Range("D" & i & ":F" & i)) = 0 Then
[/vba]
ну, или ориентируясь на Ваш столбец G
[vba]
Код
ElseIf Range("G" & i) = 0 Then
[/vba]
Автор - Manyasha
Дата добавления - 03.02.2015 в 15:01
mihalix Дата: Вторник, 03.02.2015, 17:45 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Вставил [vba]
Код
ElseIf Range("G" & i) = 0 Then
[/vba] :

[vba]
Код
While Range("A" & i) <> ""
         wbReg.Sheets(1).Range("D" & i & ":E" & i).Select
         On Error Resume Next
         If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
             For Each cell In Selection
                cell.Value = cell.Value
             Next cell
         ElseIf Range("G" & i) = 0 Then
             Rows(i & ":" & i).Delete
             i = i - 1
         End If
         i = i + 1
     Wend
[/vba]

Но все равно ссылка выпадает. Что я сделал не так?
 
Ответить
СообщениеВставил [vba]
Код
ElseIf Range("G" & i) = 0 Then
[/vba] :

[vba]
Код
While Range("A" & i) <> ""
         wbReg.Sheets(1).Range("D" & i & ":E" & i).Select
         On Error Resume Next
         If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
             For Each cell In Selection
                cell.Value = cell.Value
             Next cell
         ElseIf Range("G" & i) = 0 Then
             Rows(i & ":" & i).Delete
             i = i - 1
         End If
         i = i + 1
     Wend
[/vba]

Но все равно ссылка выпадает. Что я сделал не так?
Автор - mihalix
Дата добавления - 03.02.2015 в 17:45
Manyasha Дата: Вторник, 03.02.2015, 18:49 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Цитата mihalix, 03.02.2015 в 17:45, в сообщении № 5
Но все равно ссылка выпадает

Потому что я не углядела, что ошибка появляется раньше проверки))
Заменила все ячейки с ошибкой на "0", и вынесла цикл удаления строк отдельно.
Файл прилагаю, проверяйте правильно ли.
К сообщению приложен файл: test2.xlsm (29.7 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
Цитата mihalix, 03.02.2015 в 17:45, в сообщении № 5
Но все равно ссылка выпадает

Потому что я не углядела, что ошибка появляется раньше проверки))
Заменила все ячейки с ошибкой на "0", и вынесла цикл удаления строк отдельно.
Файл прилагаю, проверяйте правильно ли.
Автор - Manyasha
Дата добавления - 03.02.2015 в 18:49
mihalix Дата: Среда, 04.02.2015, 11:09 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Manyasha, спасибо работает.
Но вылез еще один нюанс, при адаптировании макроса к основной таблице выяснилось, что не во всех итоговых строках есть слово Выручка.

Если в книге wbReg ячейка первого столбца в i-й строчке не содержит текст "Выручка" (т.е. не является итоговой) И сумма ранга D:F в i-й строчке = 0, тогда... и далее идет замена формул на значение.

Как заменить на :
Если значение в столбец B по i -ой строке не пустое,( то есть любое число или текст) , тогда... и далее идет замена формул на значение.
 
Ответить
СообщениеManyasha, спасибо работает.
Но вылез еще один нюанс, при адаптировании макроса к основной таблице выяснилось, что не во всех итоговых строках есть слово Выручка.

Если в книге wbReg ячейка первого столбца в i-й строчке не содержит текст "Выручка" (т.е. не является итоговой) И сумма ранга D:F в i-й строчке = 0, тогда... и далее идет замена формул на значение.

Как заменить на :
Если значение в столбец B по i -ой строке не пустое,( то есть любое число или текст) , тогда... и далее идет замена формул на значение.
Автор - mihalix
Дата добавления - 04.02.2015 в 11:09
mihalix Дата: Среда, 04.02.2015, 11:27 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Сам дошел:
заменил 1 строку на :

[vba]
Код
If wbReg.Sheets(1).Range("B" & i) <> "" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
[/vba]

Manyasha, , Огромное списибо!
Тема закрыта.

 
Ответить
СообщениеСам дошел:
заменил 1 строку на :

[vba]
Код
If wbReg.Sheets(1).Range("B" & i) <> "" And Application.Sum(Range("D" & i & ":F" & i)) <> 0 Then
[/vba]

Manyasha, , Огромное списибо!
Тема закрыта.

Автор - mihalix
Дата добавления - 04.02.2015 в 11:27
Manyasha Дата: Среда, 04.02.2015, 11:30 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
mihalix, ну Вы что-то совсем не хотите подумать, вопрос ведь совсем легкий.
У Вас было условие:
[vba]
Код
If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" ... Then
[/vba]
Проверяется столбец А на содержание текста "Выручка". Теперь у Вас должен проверяться столбец В на отсутствие текста. Пустая ячейка в VBA обозначается так: ""
Попробуйте поменять условие самостоятельно, если не получится - тогда помогу.

Я в Вас верю!)

[p.s.]Извините, увидела Ваше сообщение только после отправки своего. Вы МОЛОДЕЦ!

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Среда, 04.02.2015, 11:43
 
Ответить
Сообщениеmihalix, ну Вы что-то совсем не хотите подумать, вопрос ведь совсем легкий.
У Вас было условие:
[vba]
Код
If Left(wbReg.Sheets(1).Range("A" & i), 7) <> "Выручка" ... Then
[/vba]
Проверяется столбец А на содержание текста "Выручка". Теперь у Вас должен проверяться столбец В на отсутствие текста. Пустая ячейка в VBA обозначается так: ""
Попробуйте поменять условие самостоятельно, если не получится - тогда помогу.

Я в Вас верю!)

[p.s.]Извините, увидела Ваше сообщение только после отправки своего. Вы МОЛОДЕЦ!
Автор - Manyasha
Дата добавления - 04.02.2015 в 11:30
mihalix Дата: Четверг, 05.02.2015, 13:54 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Manyasha, надеюсь еще раз на Вашу помощь.
Бывает идет несколько итоговых строк подряд первая остатся, вторая удаляется.
На примере удаляется красная строка.
Каким образом сделать чтоб она оставалась?
К сообщению приложен файл: test2-1-.xlsm (30.9 Kb)
 
Ответить
СообщениеManyasha, надеюсь еще раз на Вашу помощь.
Бывает идет несколько итоговых строк подряд первая остатся, вторая удаляется.
На примере удаляется красная строка.
Каким образом сделать чтоб она оставалась?
Автор - mihalix
Дата добавления - 05.02.2015 в 13:54
Manyasha Дата: Четверг, 05.02.2015, 14:38 | Сообщение № 11
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
mihalix, посмотрите на столбец G. В красной строке в этом столбце ничего не стоит. Нужно протянуть формулу.

А вообще, лучше поменяйте проверку столбца G на сумму E:F:
[vba]
Код
Application.Sum(Range("D" & i & ":F" & i)) = 0
[/vba]

тогда столбец G Вам вообще не понадобится, и таких ошибок не будет.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеmihalix, посмотрите на столбец G. В красной строке в этом столбце ничего не стоит. Нужно протянуть формулу.

А вообще, лучше поменяйте проверку столбца G на сумму E:F:
[vba]
Код
Application.Sum(Range("D" & i & ":F" & i)) = 0
[/vba]

тогда столбец G Вам вообще не понадобится, и таких ошибок не будет.
Автор - Manyasha
Дата добавления - 05.02.2015 в 14:38
RAN Дата: Четверг, 05.02.2015, 14:50 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Мяукнуть, чтоли?
[vba]
Код
Sub Мяу()
     ThisWorkbook.Sheets("Регистр12").UsedRange.SpecialCells(xlCellTypeVisible).Copy
     With Workbooks.Add(xlWBATWorksheet)
         .Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
         .Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
         .BreakLink Name:=ThisWorkbook.FullName, Type:=xlExcelLinks
         .SaveAs Filename:="d:\" & "Регистр12 " & Date & ".xlsx"
         '        .SaveAs Filename:="d:\Users\user-zuk\Desktop\" & "Регистр12 " & Date & ".xlsx"
         .Close
     End With
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМяукнуть, чтоли?
[vba]
Код
Sub Мяу()
     ThisWorkbook.Sheets("Регистр12").UsedRange.SpecialCells(xlCellTypeVisible).Copy
     With Workbooks.Add(xlWBATWorksheet)
         .Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
         .Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
         .BreakLink Name:=ThisWorkbook.FullName, Type:=xlExcelLinks
         .SaveAs Filename:="d:\" & "Регистр12 " & Date & ".xlsx"
         '        .SaveAs Filename:="d:\Users\user-zuk\Desktop\" & "Регистр12 " & Date & ".xlsx"
         .Close
     End With
End Sub
[/vba]
Автор - RAN
Дата добавления - 05.02.2015 в 14:50
mihalix Дата: Четверг, 05.02.2015, 16:18 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Manyasha, пример неправильно сделал.
Вот еще сделал пример, но суть вопроса та же. Как сделать чтоб красная строка не удалялась.
К сообщению приложен файл: test3.xlsm (30.9 Kb)
 
Ответить
СообщениеManyasha, пример неправильно сделал.
Вот еще сделал пример, но суть вопроса та же. Как сделать чтоб красная строка не удалялась.
Автор - mihalix
Дата добавления - 05.02.2015 в 16:18
mihalix Дата: Четверг, 05.02.2015, 16:25 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
RAN, проблема с красной строкой:
- формула слетает. (Должна суммировать те же промежуточные итоги)
К сообщению приложен файл: test4cat.xlsm (30.0 Kb)
 
Ответить
СообщениеRAN, проблема с красной строкой:
- формула слетает. (Должна суммировать те же промежуточные итоги)
Автор - mihalix
Дата добавления - 05.02.2015 в 16:25
RAN Дата: Четверг, 05.02.2015, 16:35 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И что? Строка-то на месте. Где про формулу упоминалось?
[p.s.]И, кстати, о птичках. Не нужно мозги пудрить. В красной строке остается та-же самая формула.[/p.s.]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 05.02.2015, 16:42
 
Ответить
СообщениеИ что? Строка-то на месте. Где про формулу упоминалось?
[p.s.]И, кстати, о птичках. Не нужно мозги пудрить. В красной строке остается та-же самая формула.[/p.s.]
Автор - RAN
Дата добавления - 05.02.2015 в 16:35
RAN Дата: Четверг, 05.02.2015, 16:58 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Понял, где собака порылась.
И неча на зеркало пенять, нужно формулы писать правильно.
Для красной строки
Код
=ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Во*";$A$5:$A$100;0);СТОЛБЕЦ())+ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Пр*";$A$5:$A$100;0);СТОЛБЕЦ())+ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Выр*";$A$5:$A$100;0);СТОЛБЕЦ())

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 05.02.2015, 16:58
 
Ответить
СообщениеПонял, где собака порылась.
И неча на зеркало пенять, нужно формулы писать правильно.
Для красной строки
Код
=ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Во*";$A$5:$A$100;0);СТОЛБЕЦ())+ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Пр*";$A$5:$A$100;0);СТОЛБЕЦ())+ИНДЕКС($A$5:$F$100;ПОИСКПОЗ("Выр*";$A$5:$A$100;0);СТОЛБЕЦ())
Автор - RAN
Дата добавления - 05.02.2015 в 16:58
mihalix Дата: Четверг, 05.02.2015, 17:14 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
RAN, а без изменения формулы для красной строки никак не получится? Ибо для кого предназначен выгруженный отчет - долго будет осозновывать эту формулу.
 
Ответить
СообщениеRAN, а без изменения формулы для красной строки никак не получится? Ибо для кого предназначен выгруженный отчет - долго будет осозновывать эту формулу.
Автор - mihalix
Дата добавления - 05.02.2015 в 17:14
Manyasha Дата: Четверг, 05.02.2015, 17:27 | Сообщение № 18
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Свой макрос поправила, но по-моему Ваш
Цитата mihalix, 05.02.2015 в 16:25, в сообщении № 14
К сообщению приложен файл: test4cat.xlsm(30Kb)

тоже работает. Чем он Вам не понравился?)
К сообщению приложен файл: test_new.xlsm (30.7 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеСвой макрос поправила, но по-моему Ваш
Цитата mihalix, 05.02.2015 в 16:25, в сообщении № 14
К сообщению приложен файл: test4cat.xlsm(30Kb)

тоже работает. Чем он Вам не понравился?)
Автор - Manyasha
Дата добавления - 05.02.2015 в 17:27
RAN Дата: Четверг, 05.02.2015, 17:40 | Сообщение № 19
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А как? номера строк сменились, ссылки тоже. Можно, конечно, макросом поизголяться, и сделать. Дерзайте.
Цитата mihalix, 05.02.2015 в 17:14, в сообщении № 17
Ибо для кого предназначен выгруженный отчет - долго будет осозновывать эту формулу.

Значит вообще даже не задумается. :D

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА как? номера строк сменились, ссылки тоже. Можно, конечно, макросом поизголяться, и сделать. Дерзайте.
Цитата mihalix, 05.02.2015 в 17:14, в сообщении № 17
Ибо для кого предназначен выгруженный отчет - долго будет осозновывать эту формулу.

Значит вообще даже не задумается. :D
Автор - RAN
Дата добавления - 05.02.2015 в 17:40
mihalix Дата: Пятница, 06.02.2015, 08:54 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

2010
Цитата
тоже работает. Чем он Вам не понравился?)


Формула в красной строке ссумирует итоги отдельных блоков, после выгрузки она слетает и уже суммирует не итоги по блоком, а какие то непонятные строки в блоках.


Сообщение отредактировал mihalix - Пятница, 06.02.2015, 09:01
 
Ответить
Сообщение
Цитата
тоже работает. Чем он Вам не понравился?)


Формула в красной строке ссумирует итоги отдельных блоков, после выгрузки она слетает и уже суммирует не итоги по блоком, а какие то непонятные строки в блоках.
Автор - mihalix
Дата добавления - 06.02.2015 в 08:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить скрытые строки при сохранении листа в новую книгу
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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