Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
VBA поиск (при необходимости) не первого, а следующего совпадения
 
Цитата
МатросНаЗебре написал:
2021 10:59:55
Да вы ГЕНИЙ!!!!спасибо огромное!
VBA поиск (при необходимости) не первого, а следующего совпадения
 
Цитата
Marat Ta написал:
https://coderoad.ru/39685676
Добрый день, первая ссылка это формула а нужен именно код.
Сейчас данный код ищет только первое совпадение а бывает нужно то третье то пятое то второе и т.д
Поэтому в 34 столбце стоит цифра которая означает какое совпадение нужно вывести
VBA анализ ячейки на нестабильное изменение
 
Цитата
sokol92 написал:  у Вас в ячейке C4 "летучая" формула
Во это то что необходимо! прошу прощения не сразу понял код! Огромное спассибо
VBA анализ ячейки на нестабильное изменение
 
Цитата
sokol92 написал:
О завершении пересчета формул говорит другое событие листа.
Согласен но файл находится в облаке и после завершения расчета данный код ждет изменений с моей стороны, а этого не будет происходить. Изменения будут делать с другого компьютера а данный код этого не увидет и не запустится на пересчет. В этом то вся и беда
VBA анализ ячейки на нестабильное изменение
 
Цитата
vikttur написал: в одной строке.
аааааа, я то перенес на другую строку)))) теперь условие понял!
VBA анализ ячейки на нестабильное изменение
 
Не смею спорить но она не работала пока не поставил end if.
VBA анализ ячейки на нестабильное изменение
 
vikttur, спасибо
End If не хватает. Работает спасибо сейчас буду тестировать запуск с другого компьютера
VBA поиск (при необходимости) не первого, а следующего совпадения
 
Спасибо Вам
VBA анализ ячейки на нестабильное изменение
 
Да вы гений!
Удалить размноженное условное форматирование и воссоздать по новой
 
Попробую! надеюсь получится

ВОт решение!!!!
https://www.youtube.com/watch?v=sc9xyMl1uu8
Изменено: Артур Рахматуллин - 18.04.2021 06:00:44
VBA анализ ячейки на нестабильное изменение
 
Спасибо за ответ но я использую Office 365 и из другого компьютера в ячейку С2 приходит информация и формула видит и меняет свой расчет, а код не работает
VBA анализ ячейки на нестабильное изменение
 
Добрый день, ни как не могу решить, прошу помочь.
Есть ячейка "C4" в ней стоит формула
Код
=ЕСЛИ(МИН(C2:C3)<ТДАТА();"";1)

И когда значение становиться = 1 должен запускаться код analiz
Дело в том, что он должен срабатывать сразу же без задержки.

Код
Sub analiz()

If Range("C4") = 1 Then
Application.EnableEvents = False
 Call smotrim
 Application.EnableEvents = True
 Range("C2") = 0
 End If

End Sub
VBA поиск (при необходимости) не первого, а следующего совпадения
 
Доброе утро! Ребят этот код работает хорошо, НО не всегда нужно именно первое совпадение, бывает так что нужно второе. К примеру в 34 столбце появляется цифра которая будет определять какое совпадение нужно выводить, в случае если 34 столбец пустой то искать и выдававть первое. Я понял что не разберусь в VBA сам поэтому обращаюсь к Вам. Спасибо
Код
Private Sub Worksheet_Change(ByVal Target As Range)

'If Target.Cells.Count > 1 Then Exit Sub
'If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("P1:P100000")) Is Nothing Then

EE = ActiveCell.Row - 1

If IsEmpty(Cells(EE, 17)) = True Then

R = Cells(EE, 9) & " " & Cells(EE, 10) & " " & Cells(EE, 12) & "х" & Cells(EE, 13) & " - " & Cells(EE, 14) & "х" & Cells(EE, 15) & " марка-" & Cells(EE, 20)
R = LCase(R)
Cells(EE, 53) = R

Dim FoundValue As Range

     With Worksheets("База АоРПИ")
     TT = Cells(EE, 53)
      
       Set FoundValue = .Columns(53).Find(TT, , xlValues, xlWhole)
       If FoundValue Is Nothing Then Exit Sub
       
         .Range(.Cells(FoundValue.Row, 9), .Cells(FoundValue.Row, 22)).Copy Cells(EE, 17)
   
     End With

Else: Exit Sub
End If
End If

End Sub
Удалить размноженное условное форматирование и воссоздать по новой
 
Добрый день)))Пример прилагаю
Удалить размноженное условное форматирование и воссоздать по новой
 
Если кто то ранее задавал такой вопрос (я к сожалению не нашел) можете скинуть ссылку?
Удалить размноженное условное форматирование и воссоздать по новой
 
Здравствуйте! Проблема с условными форматированиями они все распростроняются на все строки "А:А" и при этом все равно успевают размножаться.
Можно ли макросом их удалить и воссоздать по новой?
Изменено: Артур Рахматуллин - 16.04.2021 10:36:54
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
Цитата
New написал:
Попробуйте так
Спасибо!!! забыл точку поставить перед

Код
.Rows(i).Copy
ThisWorkbook.Sheets("Сварка").Cells(x, 1).PasteSpecial xlPasteValues
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
Спасибо!!!!
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
Добрый день. у меня не получилось вставить код в другом виде, если кто то покажет то буду благодарен
Проблема одна не могу вставить строку как значения.
Спасибо

Код
Sub stroki2()
    Dim Linia As String, RD As String, i As Long, kol_vo As Long, kol_vo2 As Long, x As Long, r As Long, t As Long
    If Not Range("AB24, AB26") Is Nothing Then
     x = 2
      r = 2
       
        Linia = ThisWorkbook.Sheets("АООК").Range("AB26")
        RD = ThisWorkbook.Sheets("АООК").Range("AB24")
        
        With Workbooks("Накопительная ТК.xlsm").Sheets("Сварка")
            kol_vo = .Cells(Rows.Count, 2).End(xlUp).Row
            For i = 1 To kol_vo
                If .Cells(i, 4) = Linia Then
                    If .Cells(i, 2) = RD Then
                    
                        x = x + 1

                   Rows(i).Copy ThisWorkbook.Sheets("Сварка").Cells(x, 1)
                     
                        
                    End If
                End If
            Next
        End With

    End If
    
    Application.EnableEvents = True 'а тут не помешает
End Sub
Изменено: Артур Рахматуллин - 08.04.2021 18:34:39
Страницы: 1
Наверх