Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » IgorFad
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Проблема удаления строки при проверке данных
 
#
13.08.2017 11:09:51
сорри поторопился  - в эта книга его засунул     сорри за невнимательность  и огромная благодарность за помощь !  все заработало как надо
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 11:01:43
В примере выше некорректность удаления можно посмотреть - некорректность заключается в том что строка не удаляется а очищается + выскакивает MsgBox при удалении

Уважаемый Sanja  - скрипт внедрил в приложенном файле - но к сожалению
При удалении: строка удаляется при выпадании MsgBox  а потом почему то при закрытии MsgBox очищается следующая строка
в примере это видно
Изменено: IgorFad - 13.08.2017 11:04:24
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 09:44:54
пример  скрипта прилагаю
Изменено: IgorFad - 13.08.2017 09:49:05
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 09:32:22
так вообще непонятно что получается если Target = Empty на Target.EntireRow.Delete Shift:=xlUp  заменить
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 09:17:45
так же все - - также выскакивает MsgBox и строка не удаляется - в строке просто стираются значения и строка не удаляется  
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 08:54:16
к сожалению при этом варианте (проверил)  при попытке удалении строки - также выскакивает MsgBox и строка не удаляется - в строке просто стираются значения и строка не удаляется
 
Перейти    
Проблема удаления строки при проверке данных
 
#
13.08.2017 08:15:56
Добрый день всем !

Написал макрос для проверки данных на числовые значения в таблице.
Но вот незадача - макрос выводит MsgBox при удалении строки в диапазоне проверки и некорректно удаляет строку.
Что надо поправить в макросе чтоб такого не было ?
Код
If Not Intersect(Target, [AF4:AF5003, AH4:AH5003, AI4:AI5003, AJ4:AJ5003, AK4:AK5003, AL4:AL5003, AN4:AN5003, AO4:AO5003, AP4:AP5003, AR4:AR5003, AT4:AT5003, AU4:AU5003, AV4:AV5003, AX4:AX5003, AY4:AY5003, AZ4:AZ5003]) Is Nothing Then
If Not IsNumeric(Target) Then
MsgBox "Нельзя вводить значения - только цифры!", 48, " Ошибка!"
Target = ""
End If
End If
 
Перейти    
Очистить содержимое ячеек в диапазоне по условию
 
#
12.08.2017 20:09:44
благодарю - заработало !
 
Перейти    
Очистить содержимое ячеек в диапазоне по условию
 
#
12.08.2017 19:44:56
Добрый вечер всем !

Как внедрить в макрос очистить содержимое ячеек в диапазоне по условию -  если ячейка в диапазоне содержит значение начинающееся с  "https:\\" (разные ссылки мб но начало у них одинаковое) то очищаем содержимое только этих ячеек в диапазоне.

Есть макрос  -  диапазон задан
Range(Cells(4, 29), Cells(i, 68))
Код
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 4 To LastRow
        If Cells(i, 2) <> "" Then
            'Range(Cells(4, 29), Cells(i, 68)).Clear - как в этом диапазоне очистить только ячейки со значениями начинающимися с https://  - остальные ячейки не трогать
        End If
Next
 
Перейти    
Закрас ячейки по условию
 
#
10.08.2017 11:04:50
Благодарю  Сергей и SAS888  за поддержку - все заработало как надо !
 
Перейти    
Закрас ячейки по условию
 
#
10.08.2017 10:28:30
большое спасибо Сергей конечно но на строке   if chr(left(cells(x,y),1))=126 then    ошибка вылазит
пример свой прилагаю
Изменено: IgorFad - 10.08.2017 10:43:56
 
Перейти    
Закрас ячейки по условию
 
#
10.08.2017 10:12:36
один символ ~ встречается в начале значений    еще вот нашел так для извлечения самого первого символа можно воспользоваться также функцией Mid, например

iOneSynbol = Mid(Range('A1'), 1, 1)
 
Перейти    
Закрас ячейки по условию
 
#
10.08.2017 10:02:30
знаком - - но как определить первый   знак у значения  - значения же разные
такое вот нашел поиском iOneSynbol = Left(Range('A1'), 1)   но как  применить к диапазону пока не знаю
Изменено: IgorFad - 10.08.2017 10:05:13
 
Перейти    
Закрас ячейки по условию
 
#
10.08.2017 09:53:48
Добрый день всем !

Столкнулся с трудностью как реализовать макрос
- Диапазон B4:BA5000
- В диапазоне лежат значения типа  aaaaa, bbbbbbbb,  ccccccccc,  ~bbbbbbbb, ~cccccc,  ~aaaaaaaaaaaa
те часть значений имеет вначале "~"
- Нужно закрасить в диапазоне  ячейки  - которые имеют вначале  "~"  (типа ~bbbbbbbb, ~cccccc,  ~aaaaaaaaaaaa) и после этого удалить у закрашенных этот знак "~" вначале значения  (не знаю как определить первый знак у значений)
 
Перейти    
Отметить цветом совпадающие ячейки в 2 диапазонах
 
#
09.08.2017 14:04:26
поставил ваш скрипт  Nordheim  все замечательно - заработало как надо    большое спасибо вам и всем кто откликнулся !
 
Перейти    
Отметить цветом совпадающие ячейки в 2 диапазонах
 
#
09.08.2017 13:29:43
нет  щас посмотрю  - там есть похожее ?
 
Перейти    
Отметить цветом совпадающие ячейки в 2 диапазонах
 
#
09.08.2017 13:03:19
Доброго дня всем !

Есть исходный Диапазон 1 значений (B3:O) и диапазон 2  (P3:U) - как макросом отметить совпадающие значения в ячейках в Диапазоне 1 с Диапазоном 2 в строке (если совпадает то залить ячейку в Диапазоне 1  зеленым цветом ?). Пример ниже приложил.
 
Перейти    
Страницы: 1
Наверх