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

Страницы: 1 2 3 4 5 6 7 След.
Удаление данных в нескольких строках с учетом строки над найденной
 
#
09.09.2019 22:18:55
Работает. Спасибо огромное :)
 
Перейти    
Удаление данных в нескольких строках с учетом строки над найденной
 
#
09.09.2019 21:59:56
Хм. Не хочет.
 
Перейти    
Удаление данных в нескольких строках с учетом строки над найденной
 
#
09.09.2019 21:36:48
Добрый День.
Имеется такой рабочий макрос. Хотелось бы что бы он теперь захватывал и 1 строку сверху (в добавок к текущим четырем строкам).
Подскажите пожалуйста как это сделать.
Спасибо.
Код
'удаляем слово ИТОГ АРТИКУЛ и 3 строки ниже во второй колонне
 Set Sheet = ActiveSheet 
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(2) Like "Итог Артикул" Then Row.Resize(4).Clear
Next
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 22:39:48
Пошел обдумывать и тестировать оба варианта. Спасибо.
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 22:31:26
Во всех трех не будет. Только в одном из трех.

Цитата
Юрий М написал: Нашли во всех трёх - что дальше делать?
Может есть просто возможность сделать поиск на всем листе? А не только в 4ом столбце?
Так как "Итог" будет присутствовать только строго в одном столбце. В других его не будет.
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 22:11:08
Может есть возможность как то добавить and, or или что то в этом духе?
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 20:56:41
Так как это несколько листов, нужно что бы учитывались все возможные позиции. Если к примеру (раньше) это был четко 4 столбец, то теперь это значение стало "плавать" на всех страницах.
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 20:50:16
Все верно, может быть и там и там и там :)  
 
Перейти    
Изменить способ поиска по столбцам.
 
#
13.06.2019 20:33:49
Название темы: Изменить способ поиска по столбцам.


Всем Добрый вечер, когда то давным давно, тут на форуме мне помогли с одним макросом:
Код
Dim shs As Object, rs As Range
    Application.ScreenUpdating = False
    For Each shs In Worksheets
        With shs
            Set rs = .Columns(4).Find("Итог")
            If Not rs Is Nothing Then
                .Columns(rs.Column).Resize(, 1).Copy .Range("Q1")
                .Columns(rs.Column).Resize(, 1).Delete Shift:=xlToLeft
            End If
        End With
    Next
    Application.ScreenUpdating = True
По стечению разных обстоятельств, Set rs = .Columns(4).Find("Итог"),  слово "Итог" теперь находится и в 4 и в 5 и иногда даже в 6 столбце.
Как это можно исправить и какие есть варианты решения проблемы?
Всем спасибо за помощь.
Изменено: karim81 - 13.06.2019 21:07:44
 
Перейти    
После обновления ошибка выполнения формулы: ошибка выполнения 5
 
#
30.01.2018 15:17:23
Цитата
Казанский написал:
"=(F1-I1>10)+(F1-I1<-10)"
Работает, спасибо :)
Обновление самого офиса. Ну те которые регулярно выходят.
Спасибо за помощь.
 
Перейти    
После обновления ошибка выполнения формулы: ошибка выполнения 5
 
#
30.01.2018 15:03:05
Добрый День, подскажите пожалуйста какая тут ошибка?
Всегда все работало а после обновления перестало работать
Цитата
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ИЛИ(F1-I1>10;F1-I1<-10)"

Спасибо
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
11.11.2016 19:03:20
тестирую неделю. макрос просто гениальный. немного подпил еще под себя но в любом случае выполняет полностью свои функции.
ОГРОМНОЕ ПРИОГРОМНОЕ СПАСИБО.
Изменено: karim81 - 11.11.2016 21:06:36
 
Перейти    
Макрос для вставки строки если ячейка содержит слово
 
#
11.11.2016 14:24:15
домастерил сам )))
если кому то надо
Код
Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(5) Like "П.С." Then Row.Cells(5).Offset(1).Value = "Test2"
Next
 
Перейти    
Макрос для вставки строки если ячейка содержит слово
 
#
11.11.2016 14:16:48
Код
Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(5) Like "П.С." Then Row.Offset(1).Value = "Test2"
Next

как то так но он вставляет имя по всей строке. а как сделать только ячейку снизу?
 
Перейти    
Макрос для вставки строки если ячейка содержит слово
 
#
11.11.2016 13:59:11
а не подскажите как сразу вписать название в ячейке снизу?
ну точно таким же макросом только вместо вставки строки сделать вставку имени ячейки
 
Перейти    
Макрос для вставки строки если ячейка содержит слово
 
#
11.11.2016 13:39:18
всем спасибо за помощь
работает
 
Перейти    
Макрос для вставки строки если ячейка содержит слово
 
#
11.11.2016 13:13:10
пожалуйста помогите откорректировать макрос что бы вставлял 1 строку ниже если ячейка содержать слово "итог". сейчас он удаляет строку. а надо что бы вставлял одну пустую ниже. всем спасибо за помощь
Код
 Set Sheet = ActiveSheet ' объект Sheet - это обрабатываемый лист Excel
    For Each Row In Sheet.UsedRange.Rows
        If Row.Cells(1) Like "итог" Then Row.Resize(1).Delete
Next
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
06.11.2016 19:28:00
понимаю конечно что это не правильно но вписал пока вот так.
Код
 d.Offset(-1).Value = Evaluate(Replace(Replace("IF(~="""","""",IF(~=0,3,CEILING(~*VLOOKUP(#,{-100,1;1,1.3;3,1.6},2),3)))", "~", d.Address(, , s)), "#", d.Offset(3).Address(, , s)))
-100 это самый крайне воображаемый минус. но хотелось бы как то сделать грамотнее типа =<0
но увы так не получается.
ждем Алексея Казанского.
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
06.11.2016 12:59:58
Код
d.Offset(-1).Value = Evaluate(Replace(Replace("IF(~="""","""",IF(~=0,3,CEILING(~*VLOOKUP(#,{0,1;1,1.3;3,1.6},2),3)))", "~", d.Address(, , s)), "#", d.Offset(3).Address(, , s)))
это наверняка как то можно сделать в этой строке изменив вот это.
Код
(~*VLOOKUP(#,{0,1
но я не понимаю как это сделать.
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
06.11.2016 09:09:42
эта ситуация получается из за того что в параметрах "ль" бывает не только 0 но и значения меньше нуля. (это я не учел когда писал задание)
и где есть -1 там в расчетах выдает Н/Д
можно ли сделать изначально так что бы минусовые значения приравнивались к 0?
Изменено: karim81 - 06.11.2016 09:10:06
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
06.11.2016 08:52:40
заменил. делает сумму но выдает ошибку 1008.
что сделать?
я понял в чем проблема. в одной ячейке стоит Н/Д поэтому он останавливается. как то можно сделать так что бы игнорировал значения Н/Д?
Изменено: karim81 - 06.11.2016 09:01:06
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 21:06:03
во всех других ячейках вроде работает но где написано "Продано" в первой ячейке просто перерисовывается наверх а не делает сумму всего вычисленного в "Продано"

вот полный код
Код
Sub Macro3()



Dim c As Range, d As Range, a$, s
  Set c = Columns("D").Find("Продано", , xlValues, xlWhole)
 If c Is Nothing Then Exit Sub
  a = c.Address
  s = Application.ReferenceStyle
 Do
    With Range(Cells(c.Row, "F"), Cells(c.Row, Columns.Count).End(xlToLeft))
      For Each d In .Cells
        d.Offset(-1).Value = Evaluate(Replace(Replace("IF(~="""","""",IF(~=0,3,CEILING(~*VLOOKUP(#,{0,1;1,1.3;3,1.6},2),3)))", "~", d.Address(, , s)), "#", d.Offset(3).Address(, , s)))
      Next
      Cells(c.Row - 1, "E").Value = Evaluate(Replace("=SUM(~)", "~", .Address(, , s)))
    End With
    Set c = Columns("D").FindNext(c)
  Loop Until c.Address = a


End Sub
Изменено: karim81 - 05.11.2016 21:08:15
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 19:30:37
теперь убрал и вроде запустилось. сейчас пробую как все работает.
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 19:29:01
нет я ничего не трогал.
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 18:57:48
заменил но ничего не работает
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 18:50:38
что то не получается. а можете показать весь код?
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 18:47:01
offset? was ist das?
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 18:39:08
да спасибо это я уже понял)). но как вписать результат на одну строку выше? как в примере
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 18:26:47
добрый вечер
но изначально Find("Ïðîäàíî" это наверно какая то ошибка. что там должно быть написано?
наверно это "Продано" а можно результат вписать на одну строку выше как это сделано в примере?
Изменено: karim81 - 05.11.2016 18:35:34
 
Перейти    
Макрос на умножение по нескольким параметрам
 
#
05.11.2016 10:45:40
добрый день, подскажите пожалуйста макрос что бы выполнить умножение по параметрам. файл с объяснениями прилагаю.
спасибо за помощь.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 След.
Наверх