Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
ЗАКРЫТО! ВСЕМ СПАСИБО ГОСПОДА!!!
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
gling, Спасибо Вам тоже очень отличная идея но ниже прям то что мне нужно!!!
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
ПавелW, Спасибо работает идеально!!!
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
jakim, Спасибо работает, но данный метод нам не подходит
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
Sanja, да это работает отлично, но мне нужно еще фамилию вывести и сколько открыто, в реальном файле все почти тоже самое
В общем есть фамилии и статус открыт, мне нужно выводить фамилию если она встречается больше одного раза при этом чтобы статус был "открыт"
Изменено: astepaa - 08.06.2025 11:36:28
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
Sanja, Привычка, исправил
Формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ
 
Всем привет!
Как формулой ФИЛЬТР вывести только повторяющие значение у которых статус ОТКРЫТ?
Файл ниже прикладываю там всё описал и пример привёл, заранее Вам спасибо!!!
Изменено: astepaa - 08.06.2025 11:03:57
Подсвечивать только повторяющие значения у которых статус "ОТКРЫТ" (УФ формула)
 
ПавелW, Спасибо помогло!
Подсвечивать только повторяющие значения у которых статус "ОТКРЫТ" (УФ формула)
 
BodkhiSatva, Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Подсвечивать только повторяющие значения у которых статус "ОТКРЫТ" (УФ формула)
 
Всем привет!

Помогите пожалуйста с формулой УФ

Как подсвечивать только повторяющие значения у которых статус открыт?

Файл ниже, заранее спасибо!
Убрать разделение на страницы (пунктир) после печати
 
Sanja, и снова Вы помогаете, спасибо большое!
Убрать разделение на страницы (пунктир) после печати
 
Всем привет как методом VBA убрать пунктирную линию после печати?
Заранее спасибо!
При получение данных из другой книги убрать значение 0
 
Sanja, Спасибо работает!!!!!!!!!!!!!!!!!!!!!!!!!
При получение данных из другой книги убрать значение 0
 
Sanja, Так пробовал файл виснет
Код
iWb.Worksheets(sShName).Range("C3").Copy Range("C3:C13").Value

А если ставлю PasteSpecial то в конце он выделяет весь диапазон что мне не нужно

При получение данных из другой книги убрать значение 0
 
Sanja, Второй вариант мне подошёл отлично огромное спасибо Вам, а еще один вопрос а как копировать только значения без УФ и тд. только значения
При получение данных из другой книги убрать значение 0
 
Sanja, Мне бы менять ноль на empty но мне не подходит не replace (потом поиск не работает) не for each (виснет файл)
А  как ещё заменить ноль на пустоту и чтобы файл не вис пока не могу придумать и найти
Изменено: astepaa - 05.06.2025 12:20:52
При получение данных из другой книги убрать значение 0
 
Sanja, Не работает что-то первую строку только вставляет и то вместе с путем
[ Закрыто] Доработать формулу которая вставляется на лист с помощью VBA
 
Доброго времени суток!

Помогите доработать формулу чтобы значение 0 меняло на пустоту всю голову сломал себе

Код VBA вставляет формулу на лист и преобразовывает в значение

Нужно чтобы ноль формула если ноль выдавала пустоту
Код
    With Range("A2:A10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A3"
        .Value = .Value
    End With  
При получение данных из другой книги убрать значение 0
 
Hugo, Так работает
Код
Range("A3:A10000").Replace What:="0", Replacement:="", LookAt:=xlWhole
Изменено: astepaa - 05.06.2025 09:22:43
При получение данных из другой книги убрать значение 0
 
Hugo, Спасибо за помощь, но я даже не понимаю как это записать (
При получение данных из другой книги убрать значение 0
 
Hugo, Можно заменой 0 на ничего.

Этот вариант мне больше всего нравится.

Но я не могу понять как реализовать пробую If ошибку выдаёт
При получение данных из другой книги убрать значение 0
 
Всем привет !
У меня есть код который получает данные из другой книги
Код
Private Sub Worksheet_Activate()

    Dim sPath As String, sFile As String, sShName As String
    
    sPath = ThisWorkbook.Path & "\"
    sFile = "Файл.xlsx"
    sShName = "Лист"
    
    Application.DisplayAlerts = 0
    
    With Range("A3:A10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A3"
        .Value = .Value
    End With
    
    With Range("B3:B10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B3"
        .Value = .Value
    End With
    
    Application.DisplayAlerts = 1

End Sub


Как мне убрать значение 0 чтобы если ячейка пуста то и пустоту он вставлял?

Заранее спасибо!
Изменено: astepaa - 05.06.2025 08:55:38
Вставка формулы в ячейку с помощью VBA
 
ЗАКРЫТО
Как получить данные из другой книги с помощью VBA
 
Всем привет!

У меня есть две книги База.xlsx и Фильтр.xlsm

Как мне при нажатию на кнопку копировать все данные из книги База.xlsx (A1:O10000) в книгу Фильтр.xlsm

Формула мне не подходит потому что База всегда обновляется, поэтому нужен макрос. Весь интернет перерыл ничего не нашёл, а что нашел не работает(

Если проще просто при нажатию на кнопку копировать данные из книги1 в книгу2. Кому не сложно помогите)!!!
Вставка формулы в ячейку с помощью VBA
 
sokol92, у меня всего три пк открывают этот файл и все на RUS LOCAL
Вставка формулы в ячейку с помощью VBA
 
Alex, А что делать если в формуле есть кавычки ""?
Код
Range("A1").Formula2Local = "=ФИЛЬТР('[База.xlsx]Усть-Луга'!$A$3:$A$10000;ЕЧИСЛО(ПОИСК(" * "&C1&" * ";'[База.xlsx]Усть-Луга'!$A$3:$A$10000)))"
Вставка формулы в ячейку с помощью VBA
 
Всем спасибо, но думаю будут ещё вопросы)
Вставка формулы в ячейку с помощью VBA
 
Alex, А так все равно добавляет @ и у меня там формула будет длинная и вот как бы её вставить без ошибок всяких (
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    Application.EnableEvents = False
    Range("A1").FormulaLocal = "=ФИЛЬТР(Лист2!A1:A7;ЕЧИСЛО(ПОИСК(C1;Лист2!A1:A7)))"
    Application.EnableEvents = True
 
End Sub
Изменено: astepaa - 04.06.2025 16:56:00
Вставка формулы в ячейку с помощью VBA
 
Alex, Спасибо понял, принял
Вставка формулы в ячейку с помощью VBA
 
Alex,  
Страницы: 1 2 3 След.
Наверх