Фильтр данных при открытии книги эксель

@Inessa · Регистрация: 11.03.2012

Подскажите, где я ошиблась. Я беру диапазон ("А14:А34"), а он у меня выбирает из всего столбца "А"

Visual Basic

Private Sub Workbook_Open()
    Dim M(), R
    Dim D: Set D = CreateObject("Scripting.Dictionary")
    M = Титульный.Range("A14:A34").Resize(Cells(Rows.Count, 1).End(xlUp).Row)
    For R = 1 To UBound(M)
    If D.Exists(M(R, 1)) Then
        M(R, 1) = ""
    Else
        D(M(R, 1)) = R
    End If
    Next
    Титульный.Range("A14:A34").Resize(Cells(Rows.Count, 1).End(xlUp).Row) = M
End Sub

@Inessa · 04.07.2016, 06:28 **[ТС]**

Если я прописываю так:

Visual Basic

Private Sub Workbook_Open()
   Dim M(), R
   Dim D: Set D = CreateObject("Scripting.Dictionary")
   M = Титульный.Range("A14:A34").Resize(lLastRow = Cells(1, 21).End(xlUp).Row)
   For R = 1 To UBound(M)
   If D.Exists(M(R, 1)) Then
       M(R, 1) = ""
   Else
       D(M(R, 1)) = R
   End If
   Next
   Титульный.Range("A14:A34").Resize(lLastRow = Cells(1, 21).End(xlUp).Row) = M
End Sub

то он ругается:

Подскажите как мне правльно прописать. Я запуталась

@pashulka · 04.07.2016, 08:13

Если нужен именно диапазон "А14:А34", то :

Visual Basic

1
2
3

M = Титульный.Range("A14:A34").Value
...
Титульный.Range("A14:A34").Value = M

P.S. Если хотите удалить повторы, то может Вам подойдёт такой вариант :

Visual Basic

1
2
3

Private Sub Workbook_Open()
    Титульный.Range("A14:A34").RemoveDuplicates 1, xlNo
End Sub

@Inessa · 04.07.2016, 08:54 **[ТС]**

Спасибо большое!!!!
Первый вариант подошел

Добавлено через 15 минут
pashulka, Вы можете подсказать, какой код применить при открытии шаблона эксель, чтобы удалялись пустыe строки в диапазоне c 14 строки по 34 строку

@pashulka · 04.07.2016, 09:52

Если нужно проверять на пустоту целую строку, а не одну ячейку, то :

Visual Basic

Private Sub Workbook_Open()
    For iRow& = 34 To 14 Step -1
        If Rows(iRow&).Text = "" Then Rows(iRow&).Delete
    Next
End Sub

или

Visual Basic

Private Sub Workbook_Open()
    For iRow& = 34 To 14 Step -1
        If Application.CountA(Rows(iRow&)) = 0 Then Rows(iRow&).Delete
    Next
End Sub

Добавлено через 13 минут
P.S. Если в книге больше одного листа, то разумеется, необходимо указать лист, где требуется удалить пустые строки. Проще говоря, должно быть не просто Rows(iRow) , а, например, Титульный.Rows(iRow)

@Inessa · 04.07.2016, 10:02 **[ТС]**

Visual Basic

Private Sub Workbook_Open()
* * For iRow& = 34 To 14 Step -1
* * * * If Rows(iRow&).Text = "" Then Rows(iRow&).Delete
* * Next
End Sub

А как можно сделать это не при открытии книги, а одноразово, не используя кнопки (т.е. 1 раз удалил и все)

@pashulka · 04.07.2016, 10:11

Например, сохранить в любом стандартном модуле, убрать Private, затем, закладка Разработчик, кнопка Макросы, выбор нужного макроса, и кнопка Выполнить. Правда здесь также используются кнопки, но Вы, видимо, говорили о кнопках на рабочем листе …

@Inessa · 04.07.2016, 10:14 **[ТС]**

да, о кнопках на рабочем листе. Возможно это как-то сделать при введении, например в ячейку G1 цифру 1, и тогда активировался бы макрос

@pashulka · 04.07.2016, 10:25

Скопируйте один из двух вариантов строго в модуль нужного листа, например, Титульный

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [G1]) Is Nothing Then
       If [G1].Text = "1" Then
          Application.EnableEvents = False
          For iRow& = 34 To 14 Step -1
              If Rows(iRow&).Text = "" Then Rows(iRow&).Delete
          Next
          Application.EnableEvents = True
       End If
    End If
End Sub

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, [G1]) Is Nothing Then Exit Sub
    If [G1].Text <> "1" Then Exit Sub
 
    Application.EnableEvents = False
    For iRow& = 34 To 14 Step -1
        If Application.CountA(Rows(iRow&)) = 0 Then Rows(iRow&).Delete
    Next
    Application.EnableEvents = True
End Sub

@Inessa · 04.07.2016, 10:32 **[ТС]**

pashulka, Спасибо ОГРОМНОЕ!!!
Вы мне очень помогли

@Inessa 512 / 21 / 2 Регистрация: 11.03.2012 Сообщений: 447
	04.07.2016, 08:54 [ТС]	4
	Спасибо большое!!!! Первый вариант подошел Добавлено через 15 минут pashulka, Вы можете подсказать, какой код применить при открытии шаблона эксель, чтобы удалялись пустыe строки в диапазоне c 14 строки по 34 строку 0

@pashulka 4111 / 2218 / 938 Регистрация: 01.12.2010 Сообщений: 4,625
	04.07.2016, 10:11	7
	Например, сохранить в любом стандартном модуле, убрать Private, затем, закладка Разработчик, кнопка Макросы, выбор нужного макроса, и кнопка Выполнить. Правда здесь также используются кнопки, но Вы, видимо, говорили о кнопках на рабочем листе … 1

@Inessa 512 / 21 / 2 Регистрация: 11.03.2012 Сообщений: 447
	04.07.2016, 10:14 [ТС]	8
	да, о кнопках на рабочем листе. Возможно это как-то сделать при введении, например в ячейку G1 цифру 1, и тогда активировался бы макрос 0

@Inessa 512 / 21 / 2 Регистрация: 11.03.2012 Сообщений: 447
	04.07.2016, 10:32 [ТС]	10
	pashulka, Спасибо ОГРОМНОЕ!!! Вы мне очень помогли 0