Автоматическое удаление текста

Дата: Четверг, 25.10.2012, 06:46 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

Доброго времени суток, уважаемые! Помогите пожалуйста с написанием макроса. Нужно следующее: если в ячейке столбца Е отсутствует заливка, то в ячейке правее через одну удаляется текст. Буду благодарен за помощь!

Сообщение отредактировал zahrim - Четверг, 25.10.2012, 06:47

Дата: Четверг, 25.10.2012, 07:28 | Сообщение № 2

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

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

Сообщений: 2369

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

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

2003-2010

[vba]

Code

Sub www()
     Dim c As Range
     For Each c In Intersect(ActiveSheet.UsedRange, Columns(5)).Cells
         If c.Interior.ColorIndex = xlNone Then c(1, 3) = ""
     Next
End Sub

[/vba]
Только подозреваю, что Вам не это надо.

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

Дата: Четверг, 25.10.2012, 08:46 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 4

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

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

наверно... потому что этот мне не помог((

Дата: Четверг, 25.10.2012, 08:49 | Сообщение № 4

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

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

Сообщений: 2369

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

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

2003-2010

А это значит, ув. zahrim, что Ваши пояснения никуда не годятся. Прочитайте правила и выложите пример с толковым описанием.

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

RAN

Дата: Четверг, 25.10.2012, 08:59 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Подозреваю, чтов очередной раз возжелалась процедура обработки события изменения цвета заливки.
zahrim, такого события в Excel нет.

Быть или не быть, вот в чем загвоздка!

Дата: Четверг, 25.10.2012, 09:01 | Сообщение № 6

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

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

Сообщений: 2369

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

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

2003-2010

А еще возможно, речь об УФ. Так что, гадать будем?

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

Дата: Четверг, 25.10.2012, 09:13 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 4

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

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

Вот, программа ГЛОНАСС дает выгрузку документа в excel по простоям техники в таком виде. Мне нужно что бы там где детально описывает простои удалялись данные из столбца Смена и Длительность работ.... Прошу прощение за сумбурное объяснение!

К сообщению приложен файл: Online_report.xlsx (59.2 Kb)

Дата: Четверг, 25.10.2012, 09:18 | Сообщение № 8

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

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

Сообщений: 2369

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

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

2003-2010

Quote (zahrim)

Мне нужно что бы там где детально описывает простои

А где "детально описывает простои"?

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

Дата: Четверг, 25.10.2012, 09:22 | Сообщение № 9

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

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

Сообщений: 2369

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

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

2003-2010

[vba]

Code

Sub www()
       Dim c As Range
       For Each c In Intersect(ActiveSheet.UsedRange, Columns(5)).Cells
           If c.Interior.ColorIndex = 2 Then c(1, 2).Resize(, 2) = ""
       Next
End Sub

[/vba]

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

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

Сообщение отредактировал KuklP - Четверг, 25.10.2012, 09:31

_Boroda_

Дата: Четверг, 25.10.2012, 09:46 | Сообщение № 10

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

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

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще такой вариант
[vba]

Code

Sub Макрос1()
     r_ = Range("A" & Rows.Count).End(xlUp).Row
     For i = 1 To r_
         If Rows(i).Rows.OutlineLevel > 1 Then Range("F" & i).Resize(, 2).ClearContents
     Next i
End Sub

[/vba]

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

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

Дата: Четверг, 25.10.2012, 10:52 | Сообщение № 11

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

Ранг: Прохожий

Сообщений: 4

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

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

_Boroda_, KuklP, спасибо огромное! все работает!