Извините но у меня не работает.
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий
Перенос данных из одной ячейки в другую
Перенос данных из одной ячейки в другую
Перенос данных из одной ячейки в другую
07.09.2025 16:49:30
Здравствуйте.
Можете пояснить, у меня вышла ошибка If Cells(1, 2) = "" Then lrow = 0 это должно работать на два листа? исправил на Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then lrow = Cells(Rows.Count, "B").End(xlUp).Row If Cells(1, 2) = "" Then lrow = 0 Cells(lrow + 1, "B") = Cells(1, 1).Value Cells(1, 1).ClearContents End If Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub но работает через раз, и не переходит на следующую строку Спасибо
Изменено: |
|
|
Поиск одного значения по двум условиям, при отсутствии одного из условий, Нужно найти одно название по двум условиям, если одно условие отсутствует, то поиск проходит по одному из этих условий