zhaaskar (Автор тем)

Пустая ячейка <> 0 ошибка, Выдает ошибку Метод Delete из класса Range завершен не верно

Пользователь

Сообщений: 8 Регистрация: 19.04.2013

13.11.2013 18:02:21

Здраствуйте! Нужно с помощью макроса удалить строки в таблице.

Код

Sub Макрос1()
Dim r As Integer
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count    'определяем размеры таблицы
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1           'проходим от последней строки до первой
        If Application.CountA(Rows(r)) <> 0 Then Rows(r).Delete   'если в строке пусто - удаляем ее
    Next r
End Sub

После выполнения макроса, выдает ошибку: Метод Delete из класса Range завершен не верно.
Что нужно исправить?

Изменено: zhaaskar - 13.11.2013 18:10:40 (Прикрепил файл)

Перейти

Увеличение числа +1 раз в год

zhaaskar

Пользователь

Сообщений: 8 Регистрация: 19.04.2013

24.10.2013 15:57:25

Всем доброго времени суток! Никак не могу составить формулу, макрос.
Имеется ячейка с датой: =СЕГОДНЯ()
Имеется столбец на каком курсе учится студент со списком 1, 2, 3, 4, 5, X.
Нужно составить формулу, чтобы значение курса увеличивался на 1 каждый год (01.09.2014), а после 5 курса ставилось значение X.

Перейти

Список имен, вывод номер тенлефона

zhaaskar

Пользователь

Сообщений: 8 Регистрация: 19.04.2013

19.04.2013 22:16:36

Доброго времени суток. Excel плохо я знаю. Так вот не могу решить задачку. Как ее реализовать?
Имеется столбец А, в нем записаны Имена, в столбце B записаны номера телефонов (лист 2). Нужно, чтобы при выборе имени из списка допустим Михаил, выводился вместо его имени его номер телефона (лист 1).

Изменено: zhaaskar - 19.04.2013 22:17:56

Перейти