Удаление ячейки не могу отследить

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

Удаление ячейки не могу отследить (Макросы/Sub)

olugr76

Дата: Пятница, 15.09.2017, 09:20 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Добрый день!
Посмотрите код пожалуйста - что-то я уже своим замыленным глазом не разберусь.
Файл это часть проекта, весь не стал выкладывать.
Суть проблемы: На листе Расписание выбираем Темы из списка с листа Темы, при выборе любой темы - первая тема почему-то удаляется - почему?

Заранее спасибо

К сообщению приложен файл: 0014950.xlsm (30.3 Kb)

Сообщение отредактировал olugr76 - Пятница, 15.09.2017, 09:28

Ответить

_Boroda_

Дата: Пятница, 15.09.2017, 09:24 | Сообщение № 2

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Переназовите тему согласно п.2 Правил форума

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

KuklP

Дата: Пятница, 15.09.2017, 09:31 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Вы в пустую ячейку выбрали значение.
[vba]

Код

If Sheets("Темы").Cells(i, 2) = b Then
у Вас весь 2-й столбец пустой и b пустое
Sheets("Темы").Cells(i, 2) = "" там и так пусто
Sheets("Темы").Cells(i, 1).Value = b а это удаляет значение "первая тема почему-то удаляется"
Exit Do

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

olugr76

Дата: Пятница, 15.09.2017, 09:39 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Но эта ветка должна выполняться тогда, когда b не пустое значение
[vba]

Код

If Not IsEmpty(b) Then

[/vba]

Ответить

olugr76

Дата: Пятница, 15.09.2017, 09:43 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Т.е. IsEmpty - это не тождественно ""
Правильно?

Ответить

KuklP

Дата: Пятница, 15.09.2017, 09:56 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Попробуйте:
[vba]

Код

Public Sub www()
    Dim a
    Debug.Print VarType(a)
    Debug.Print IsEmpty(a)
    a = ""
    Debug.Print VarType(a)
    Debug.Print IsEmpty(a)
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

olugr76

Дата: Понедельник, 18.09.2017, 06:03 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

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

Ответить

Удаление ячейки не могу отследить (Макросы/Sub)

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