Страницы: [1]   Вниз
Автор Тема: Спасибо Artemius_69!  (Прочитано 1242 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Gaaa
  • Hero Member
  • *****
  • Автор темы

  • Russian Federation Москва

    ODO 0 km

  • Оффлайн Оффлайн
  • Сообщений: 829

  • Благодарности
    -Выданные: 1
    -Полученные: 0


Я тут по Exel-ю вопрос задавал. Да и не только тут. Мне наприсылали достаточно много вариантов решения, но все немного сучковатые чтоль. Либо громоздкие. Наш одноклубник Artemius_69 предложил легкое и изящное решение которое мне пригодится в будущем не раз! Спасибо тебе от души!  beer Ты очень помог!
Записан
Artemius_69
  • Full Member
  • ***

  • Russian Federation Тверь

    ODO 106000 km

  • Оффлайн Оффлайн
  • Сообщений: 187

  • Благодарности
    -Выданные: 2
    -Полученные: 0

« Ответ #1 : Июль 23, 2019, 23:27:25 pm »
0

 beer
Записан

Rollings
  • Новичок
  • *

  • Niger

    ODO 9000 km

  • Оффлайн Оффлайн
  • Сообщений: 36

  • Благодарности
    -Выданные: 0
    -Полученные: 1

« Ответ #2 : Июль 24, 2019, 06:32:44 am »
0

Наш одноклубник Artemius_69 предложил легкое и изящное решение
Решение в студию!
Записан
Gaaa
  • Hero Member
  • *****
  • Автор темы

  • Russian Federation Москва

    ODO 0 km

  • Оффлайн Оффлайн
  • Сообщений: 829

  • Благодарности
    -Выданные: 1
    -Полученные: 0

« Ответ #3 : Июль 24, 2019, 08:11:54 am »
1

Sub macros()
    Set ra = Range([D2], Range("D" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If (cell.Text Like "*не поступило*") or (cell.Text Like "*е залито*") Then
            Set rb = cell.Offset(0, 2)
            rb.Value = "Сбой КАСУ, ТРК, ККМ"
        End If
    Next cell
End Sub
Записан
Rollings
  • Новичок
  • *

  • Niger

    ODO 9000 km

  • Оффлайн Оффлайн
  • Сообщений: 36

  • Благодарности
    -Выданные: 0
    -Полученные: 1

« Ответ #4 : Июль 24, 2019, 09:13:28 am »
0

Вариант.
Но свое решение с помощью функций ЕСЛИОШИБКА, ПРОСМОТР, ПОИСК считаю и проще и гибче, хотя и его можно сделать макросом конечно.

Мне наприсылали достаточно много вариантов решения
А спасибо только Artemius_69  sux
А люди напрягались, думали над задачкой...
Записан
Gaaa
  • Hero Member
  • *****
  • Автор темы

  • Russian Federation Москва

    ODO 0 km

  • Оффлайн Оффлайн
  • Сообщений: 829

  • Благодарности
    -Выданные: 1
    -Полученные: 0

« Ответ #5 : Июль 24, 2019, 09:34:50 am »
-3

Друже, не обижайся пожалуйста!  beer Скажем так - это то, что у меня влетело без всяких танцев! На самом деле спасибо всем кто откликнулся!  beer
Записан
Страницы: [1]   Вверх

Чтобы прокомментировать данную тему, или создать новую зарегистрируйтесь или зайдите на форум под своей учетной записью.


 

Новые фотографии галереи. Добавь и свою!
СМОТРЕТЬ ЕЩЕ! :)...
     4   настроить
или быстрая регистрация и вход через ВК

Новые фотографии ↓
Вce новые фото →
Лучшие темы за сегодня ↓ продам детский трёх колёсный велосипед Neo 1 

Рейтинг автосервисов kia ↓
Каширка 39 (Москва) →  70 

FAVORIT MOTORS СЕВЕР (Москва) →  51 


АвтоГЕРМЕС (Москва) →  39 

АВТО-СТАРТ 15 КМ МКАД (Москва) →  35 


Весь рейтинг сервисов kia →
Чтобы добавить свой отзыв о сервисе - зарегистрируйся


  Мобильная версия Контакты администрации